CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
& y, @) w2 F5 y8 ?9 d第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)
+ a& R- T1 U  R0 b
5 f2 a6 Z2 X2 L( ]) L我的想法是能否把这三步合并为一个命令，
输入命令后，选中实体即可动态延伸。

5 @$ g& l. G" l0 d, s6 V请教各位高手，
" @: |( q9 V8 }5 d8 g- \* O. j6 @这能否实现，
授之以鱼，不如授之以渔，
能授之方法更好了。

SunVei

1. ;;; for Test only
   ; R& v' {/ D! @( C# o' ]
2. (defun C:DyL ()
   5 q+ d. J% o$ V, ~
3.    (command "Lengthen" "Dy" Pause)
   + [$ B! u7 u5 o" V) t5 \" S( f
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
需要每次手动加载还是能设置成启动就自动加载？
9 p- V( l$ A6 q) o; P3 G# q
3 U8 F! C6 ]+ u. o! M- g还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
, g% g) \! D9 ]5 \! d/ e（只想用2004，体积小速度快呵）。

7 I0 P' a  v9 j# K先谢谢啦！

SunVei

6 M0 r9 ?  O( h
请参阅 AppLoad 的帮助
+ U; S# t  c( D& W! JCommand: appload
: p5 m5 b0 T; q& I( X  ]
....在2004中把复制命令默认为多重复制....
需自定义....
(defun c:Mc (/ ss)
$ Z% a. Q2 p% {! }2 i   (setvar "OrthoMode" 1)
( e6 F+ i4 G, x5 e1 H   (setq ss (ssget))
   (command "copy" ss "" "M")
)

wayh

都搞定了，多谢老大的帮助。
7 K: A2 B, k) a0 `
2 P9 }$ u; n, Y2 n$ o+ l$ |" u5 F还有一件小事请帮忙，
( e( X' `% \& @. m6 D0 Nmechanical 2006里面有两个命令非常有用,
" f3 E6 E, [% y3 Q( h+ D/ f1. 打断标注  amdimbreak
0 D" I3 D6 V  R& k( S2. 检查标注  amcheckdim
我也想把这两个命令移植到2004中去，
1 f; X* M- l7 \6 L能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007
( n4 ]; Y7 F" |

具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。