CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)

8 i2 {; L  p7 U8 K: k: z/ K- d我的想法是能否把这三步合并为一个命令，
输入命令后，选中实体即可动态延伸。
+ D1 e: \- ~3 |# j/ ~% ~
8 @" C* {  m- y: A9 X请教各位高手，
这能否实现，
授之以鱼，不如授之以渔，
2 E, X  l9 b" j能授之方法更好了。

SunVei

1. ;;; for Test only
   , S1 j; m! f4 y& X$ j5 x3 g
2. (defun C:DyL ()
   
3.    (command "Lengthen" "Dy" Pause)
   
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
需要每次手动加载还是能设置成启动就自动加载？

, s8 K* Y1 p3 g6 K0 D0 _% q9 D- f5 q9 \还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
, o3 ^: {6 h# I5 e（只想用2004，体积小速度快呵）。
5 U% j7 l# l  a. S$ ~/ c0 |4 p% [
/ b' i0 Q; ~7 c# Y先谢谢啦！

SunVei

' E5 T5 R' i6 d0 n0 S
1 k+ V/ l* S/ W; B; c' y8 x! _请参阅 AppLoad 的帮助
  J) X4 a' Y9 ?0 X2 N* n) A0 G5 T, [Command: appload

" m& Z* l4 d' R+ c9 ~! R/ n! z* m....在2004中把复制命令默认为多重复制....
需自定义....
5 e4 N) K4 o) P" c(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
   (setq ss (ssget))
   (command "copy" ss "" "M")
)

wayh

都搞定了，多谢老大的帮助。
' _& ]! [( z- V4 }. O3 ]
& G  J/ w" u9 Z! V# b( W7 y还有一件小事请帮忙，
9 k  A7 N8 {! I+ Q- ~$ K' t  cmechanical 2006里面有两个命令非常有用,
1. 打断标注  amdimbreak
2. 检查标注  amcheckdim
我也想把这两个命令移植到2004中去，
8 `) d5 H& \' y6 z4 w# X' R& ]: W7 |能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007
6 ^( ?9 m* P% I& P& ~
$ Y5 I# V' b1 f0 ?
具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。