CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
) B( ^1 ^& e8 d. ?" n第一步     lengthen(修改---拉长)；
5 }+ l' p+ p- q% P第二步     选中实体：直线或圆弧；
; H( w+ p* @* Q- y. r4 f3 w第三步     然后输入DY(动态延伸)
! T5 E  E3 r, b+ Y7 f+ X1 d* J$ X
/ ], k) V% m: k7 u+ r4 \我的想法是能否把这三步合并为一个命令，
1 u# \2 q: j7 [, r输入命令后，选中实体即可动态延伸。

请教各位高手，
9 h8 F! p2 X# o6 k# _% U3 T这能否实现，
- m, f' ]/ u! _* `# n) s6 V授之以鱼，不如授之以渔，
0 O& f% {6 b6 A0 }$ i  a' K7 T能授之方法更好了。

SunVei

9 a+ q" u) p# _9 j1 e) ?9 V6 H' t

1. ;;; for Test only
   - y* @' {( I3 I3 g  `% d( N
2. (defun C:DyL ()
   . V8 k! `: j1 Q0 T! ^' |
3.    (command "Lengthen" "Dy" Pause)
   
4. )

复制代码

得依实际使用状况订正

wayh

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

) c; F5 b7 P& y: k还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
3 J4 i  f: _) K（只想用2004，体积小速度快呵）。

先谢谢啦！

SunVei

7 O; l' y/ F9 k; M: G! D# l. C
( |9 E& B6 U* i* d! W( K; D6 c请参阅 AppLoad 的帮助
+ G' ?* B. z4 \" I0 VCommand: appload

. Q/ E6 r$ f3 ]8 F, M....在2004中把复制命令默认为多重复制....
& L$ C7 B2 X5 ~* |4 G1 Q7 Z需自定义....
(defun c:Mc (/ ss)
! L. `$ E0 r. G3 C2 ?9 i( {   (setvar "OrthoMode" 1)
   (setq ss (ssget))
# b( K: }$ ~) u3 C$ Q% n$ v   (command "copy" ss "" "M")
)

wayh

都搞定了，多谢老大的帮助。

还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
1. 打断标注  amdimbreak
* n3 t3 \; @* b& ~/ W$ w7 ?5 `2. 检查标注  amcheckdim
我也想把这两个命令移植到2004中去，
能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007
7 s. c) n4 u5 J* j' }+ F
4 Y( x, _2 v- X+ Y3 z2 K( a) @* A- f. ]# y
具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。