CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
- s$ e! G" f* R' r2 m2 e第三步     然后输入DY(动态延伸)

$ [0 u* S0 n. j. B+ P% M) ?我的想法是能否把这三步合并为一个命令，
( @! S; [7 m0 n输入命令后，选中实体即可动态延伸。
* C5 Z$ a: H5 E1 z
! q) o; k# K/ E4 z$ [; q3 ?* J请教各位高手，
这能否实现，
授之以鱼，不如授之以渔，
能授之方法更好了。

SunVei

* t/ d$ z( R( k% d

1. ;;; for Test only
   1 ~6 U$ J1 A' V4 I+ R% u( V7 Z
2. (defun C:DyL ()
   
3.    (command "Lengthen" "Dy" Pause)
   " ]- c: D* w- H2 k, ?
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
) a; B; \6 Y9 i* {7 V需要每次手动加载还是能设置成启动就自动加载？

$ z, i, b8 t% h8 B# Z& _. J8 D还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
; Y- {; T* h; B; ]（只想用2004，体积小速度快呵）。

先谢谢啦！

SunVei

请参阅 AppLoad 的帮助
" b: D4 @: {2 A( p( |/ h. ?& \9 lCommand: appload

....在2004中把复制命令默认为多重复制....
需自定义....
(defun c:Mc (/ ss)
   (setvar "OrthoMode" 1)
$ U' x. Z. m3 A) l6 M; x   (setq ss (ssget))
# m  W' l+ d7 k- m8 n   (command "copy" ss "" "M")
( C" U8 ?- O% a6 m1 L: ^7 i  ~)

wayh

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

1 k/ I+ ]8 R' A/ a还有一件小事请帮忙，
mechanical 2006里面有两个命令非常有用,
- d" c. m$ t% T1. 打断标注  amdimbreak
2. 检查标注  amcheckdim
我也想把这两个命令移植到2004中去，
% e8 {) `0 C+ ]能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007


: [' ~4 B/ ~$ i) X& H* ^$ V9 r# S具体要学习些什么内容，怎么提取软件中的LISP程序，
4 w0 r9 u! L% }麻烦讲清楚点。

zmhpcy

请大家讲解细点。