CAD能自定义命令吗？

wayh

我想自制一个无边界伸命令
第一步     lengthen(修改---拉长)；
第二步     选中实体：直线或圆弧；
* Q% G+ I% l% _1 n5 Y" j# K第三步     然后输入DY(动态延伸)
2 Y8 R/ c4 A9 y; P! k3 Y$ a- k
我的想法是能否把这三步合并为一个命令，
输入命令后，选中实体即可动态延伸。
+ ^. c2 e6 n( A+ b3 k$ Q0 }
# g3 C$ |+ i4 Q; J2 t请教各位高手，
: N# `1 ?8 }8 X  w, \这能否实现，
; W; }$ ?3 p1 u( {( m授之以鱼，不如授之以渔，
9 M% L4 l( {& {  ~, f能授之方法更好了。

SunVei

1 P$ d  X( k% H, u- h% w+ t

1. ;;; for Test only
   
2. (defun C:DyL ()
   
3.    (command "Lengthen" "Dy" Pause)
   ' P0 j/ l4 ]2 n7 O1 Z+ Z
4. )

复制代码

得依实际使用状况订正

wayh

老大，我是菜鸟，这玩意儿不懂，能说明下怎么用法吗？
1 L. p- z7 P6 [3 h" U需要每次手动加载还是能设置成启动就自动加载？

; u$ D2 r3 Z7 N还有，我想在2004中把复制命令默认为多重复制，就象在2006中那样，
（只想用2004，体积小速度快呵）。

先谢谢啦！

SunVei

请参阅 AppLoad 的帮助
, h- v- I  e1 @1 l0 S9 q( _: RCommand: appload

....在2004中把复制命令默认为多重复制....
需自定义....
& g5 E7 `) N/ z(defun c:Mc (/ ss)
3 H9 ^8 x) G" u& E' C   (setvar "OrthoMode" 1)
   (setq ss (ssget))
# @1 s. w. ~3 K$ B. `; r# H   (command "copy" ss "" "M")
)

wayh

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

8 X; y3 R+ r# O% T! k还有一件小事请帮忙，
8 I4 A  W( k) u. o% m; v8 Xmechanical 2006里面有两个命令非常有用,
. Q- N% H6 u2 A5 o% @: R2 J$ j9 m1. 打断标注  amdimbreak
2. 检查标注  amcheckdim
' [2 _) W" W) Q+ m- |7 W我也想把这两个命令移植到2004中去，
能实现么？

blc007

可以，学习autolisp就可以了

wayh

6# blc007


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

zmhpcy

请大家讲解细点。