CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
2 s7 x3 R# i. D, d第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)
( O& g* _/ r2 |9 ]0 W, h/ D3 l+ T
我的想法是能否把这三步合并为一个命令，
2 z, \, P6 \$ M5 G+ s2 w4 r输入命令后，选中实体即可动态延伸。
9 m6 g  r) X6 [! [- T; ^' p
请教各位高手，
1 l* y* X% r( A3 `$ C9 A这能否实现，
授之以鱼，不如授之以渔，
能授之方法更好了。

SunVei

2 {8 {0 r5 n; ~; q# G

1. ;;; for Test only
   2 S$ _% d5 f& U+ u& _! q4 d$ Q& a4 o
2. (defun C:DyL ()
   
3.    (command "Lengthen" "Dy" Pause)
   2 \1 Z" I- \2 s$ f
4. )

复制代码

得依实际使用状况订正

wayh

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

还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
; \! m3 o* P3 H% _* [9 z（只想用2004，体积小速度快呵）。

' A3 _' F! p6 \先谢谢啦！

SunVei

: G! \9 L3 I9 J请参阅 AppLoad 的帮助
: p5 J. x; _5 ^# k4 QCommand: appload
9 f# {, n1 A2 j, \0 L* x
* k  P9 q* r5 T3 g....在2004中把复制命令默认为多重复制....
需自定义....
! @8 k) W5 }/ |* _# v( l(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
/ |9 p3 v1 p: L% j! i   (setq ss (ssget))
2 L3 s7 P+ y# `   (command "copy" ss "" "M")
)

wayh

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

/ _( H' s% l+ E( l3 o: D还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
3 i. \" ?3 @4 z! z. W9 c5 U6 L1. 打断标注  amdimbreak
, G! C: A  U/ g2. 检查标注  amcheckdim
5 y6 U- J7 `/ ~& _+ S# y5 W我也想把这两个命令移植到2004中去，
* F( x; T: x0 a8 M* |能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007

) T2 s# v# j' q2 R' y
具体要学习些什么内容，怎么提取软件中的LISP程序，
麻烦讲清楚点。

zmhpcy

请大家讲解细点。