CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
第一步     lengthen(修改---拉长)；
8 b0 f& l! f8 h' p4 z第二步     选中实体：直线或圆弧；
第三步     然后输入DY(动态延伸)
" |! ^' t8 ^5 ~0 b5 \
我的想法是能否把这三步合并为一个命令，
: h7 O3 d1 e' Z8 y5 Q输入命令后，选中实体即可动态延伸。
$ j) K: }$ K. O# F) a% A
9 l: L/ q, V0 _" @1 v0 l* _3 i请教各位高手，
8 m$ e' G. M8 u& R8 P$ Q7 }1 W这能否实现，
$ q/ {7 w. M8 d8 D授之以鱼，不如授之以渔，
) M! h' [) x( R) w3 ]! t& P* W能授之方法更好了。

SunVei

1. ;;; for Test only
   
2. (defun C:DyL ()
   / Q+ X. q4 ?1 z& q3 [
3.    (command "Lengthen" "Dy" Pause)
   
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
' v# I  R  ^2 k% D# x$ ^需要每次手动加载还是能设置成启动就自动加载？
7 N2 z. V1 Y3 y2 b$ ^( N/ c
还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
- ?6 n3 Q' d" ^9 p) m（只想用2004，体积小速度快呵）。

- B6 k4 u2 x$ {& ^5 v先谢谢啦！

SunVei

7 E/ z  q" q% o" C/ c请参阅 AppLoad 的帮助
: {  x( D2 F' c6 }( yCommand: appload
' w$ H3 @  ^: z8 L8 ~# F. t
7 B  a' z1 U0 G- J5 P) n. i....在2004中把复制命令默认为多重复制....
需自定义....
1 P2 ?5 s) g- k0 b6 H! [(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
  q& z) P+ r& |9 [/ H  b3 k   (setq ss (ssget))
, A/ p. p% z9 a& @# x   (command "copy" ss "" "M")
5 h( o3 _0 W% N% W2 @/ u) z, S)

wayh

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

还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
1. 打断标注  amdimbreak
) `: y7 @$ {( Y- f7 H, l' j2. 检查标注  amcheckdim
- F. e) @/ w. }# v9 a: f6 B我也想把这两个命令移植到2004中去，
能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007
& A# E0 M6 C/ H) e. C4 T
8 Y- z$ s" ^& D) ^( Z
具体要学习些什么内容，怎么提取软件中的LISP程序，
4 r; m0 K+ @/ m0 i  O& t麻烦讲清楚点。

zmhpcy

请大家讲解细点。