CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
/ m% z' y5 E  Q- t第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)
; Z  o  J6 @% A
我的想法是能否把这三步合并为一个命令，
) \4 S$ c* c1 M  w1 y( P输入命令后，选中实体即可动态延伸。

请教各位高手，
8 V" A3 ~- _8 `, v9 E; B. G0 m! `# x这能否实现，
, `8 r1 ?7 U7 @授之以鱼，不如授之以渔，
能授之方法更好了。

SunVei

, i4 R4 K! P* ~: c$ [# o

1. ;;; for Test only
   
2. (defun C:DyL ()
   
3.    (command "Lengthen" "Dy" Pause)
   
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
. i9 K& ~/ @0 @, y- a需要每次手动加载还是能设置成启动就自动加载？

( {: G, k- K+ l6 ?4 Y6 P  O' _还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
- f, Q+ k$ m2 F0 b/ A（只想用2004，体积小速度快呵）。
, u5 G. }, H$ O7 r8 A9 |" R
, W: `8 Z4 H" q8 Y0 n; y" T/ d4 T先谢谢啦！

SunVei

" a+ p4 ~% D) ?* q2 W: S) P1 t3 R9 S
% m# h! b* ^9 C! @请参阅 AppLoad 的帮助
Command: appload
6 M' Q# S" k3 L
4 g. }- g! I3 \- X- |4 k# I; J# ?....在2004中把复制命令默认为多重复制....
需自定义....
(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
   (setq ss (ssget))
1 v% e4 E# D2 V, ?! l' X  w8 _   (command "copy" ss "" "M")
2 x+ K) {" _, v/ t, J)

wayh

都搞定了，多谢老大的帮助。
0 q3 @5 W7 O& @) ~( e) t8 l
. l- |2 D  n! n! ?7 S5 c+ z还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
1. 打断标注  amdimbreak
2. 检查标注  amcheckdim
' S) W  O9 Q7 y- j我也想把这两个命令移植到2004中去，
能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007

# N/ s$ [! F2 [" `& }( }6 ?' ^
具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。