CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
( i2 G$ b$ q" x# n: ?第一步     lengthen(修改---拉长)；
6 d2 n  ^" d5 w; ~第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)

1 x  T# W0 b% ^* n" h% d( y我的想法是能否把这三步合并为一个命令，
输入命令后，选中实体即可动态延伸。
4 q! h4 m, p, ?( I
/ G4 P- T! A8 C& p请教各位高手，
% \7 ^6 t1 U# f9 h这能否实现，
2 g/ |$ x- g; `授之以鱼，不如授之以渔，
* w2 f4 V) A& m1 n4 j' a4 g' \能授之方法更好了。

SunVei

1. ;;; for Test only
   
2. (defun C:DyL ()
   & r4 B( \9 J& K7 G& F
3.    (command "Lengthen" "Dy" Pause)
   
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
2 C! b7 U; N% f. E! p) J9 I需要每次手动加载还是能设置成启动就自动加载？
, k. L3 G4 I5 ^- n4 {/ [) W7 G
3 _4 p5 L9 ~3 d0 E6 b1 \3 X# t还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
（只想用2004，体积小速度快呵）。

$ q# N2 F4 z/ W$ Z5 @先谢谢啦！

SunVei

请参阅 AppLoad 的帮助
! {$ m1 }/ ], B9 g, ACommand: appload

4 _7 H; w1 ~. g' k4 l. [( E( M....在2004中把复制命令默认为多重复制....
需自定义....
(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
3 H' x: }! q3 e8 a   (setq ss (ssget))
# c+ Z6 b" m# ~  W2 p   (command "copy" ss "" "M")
)

wayh

都搞定了，多谢老大的帮助。
! N5 N% L  W* f" C
$ l' T( G! k$ U" z, E* y8 g0 d. S还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
1. 打断标注  amdimbreak
2. 检查标注  amcheckdim
7 m, j$ ?% }. q我也想把这两个命令移植到2004中去，
7 X3 L. p' w( F1 g能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007
8 v: a# g* A& A3 D( u* x

# e9 [3 V( S# t. n! O具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。