帮帮忙，做一个简单的lisp，实现这个功能。。

ryyhui

曾经下载过这样类似的lisp语句，现在找不到了，

; o3 j( C. j0 H大家都知道，AUTOCAD里的打断命令，BREAK。

3 m  q) I$ ^( H命令: br
BREAK 选择对象:
指定第二个打断点 或 [第一点(F)]: f
6 W5 B1 K, Q# Z3 ~指定第一个打断点:
. j) L8 m% b8 t+ f指定第二个打断点:
0 u" C3 z5 Y/ n7 p, I, l$ z0 H
每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。


所以希望在acad.lsp文件里，自定义一个函数 dad
8 v2 q) F/ u; p  I5 b
* C$ Y( O( m) Z0 r, L+ k+ u5 D4 \加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。

功能很简单，具体这个程序怎么编写，还请高手指点下。
. D3 Q" c) }0 o) s
是不是类似与下面的

(defun c:dad()
      (command "break" ........"")  
        )
5 M8 q' t1 d3 l7 j& w9 O9 b7 u: J


" l4 e, T+ S) y& j) M=================     补充一下    ==========================

5 Y& E7 z, B) t3 c, A
上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m
9 U) U$ t. }# [

! j" ~( D* @( n* G# }- L命令: _DIMBREAK
5 G, N$ ^' G3 j! h选择标注或 [多个(M)]:
; B' c7 G1 H: |+ M7 B选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
& ?* T8 F8 E2 k3 `指定第一个打断点:
3 b! F( l; |  n1 `指定第二个打断点:
* A, ?9 T* M2 C" z
3 X. Y0 f6 \3 D& O' n, C* |9 A# b我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m

" d' k: y9 Z+ m8 M) y（因为我喜欢手动打断标注对象）
) m+ g) G) m4 C+ W/ ^$ t3 L
楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。

如果用lisp，建立一个快捷键，就可以重复操作了。。



6 N$ ]" d- D/ C2 _; J
. S7 h: m5 ~; I: u6 M& m=============   被我忽悠出来了  ===================
2 [) b) J9 x! `) X' c7 G

+ N, G5 T* R! E5 a(defun c:dbr()
5 i& z( Q; F0 R& ^- ^2 k* i      (command "dimbreak" pause "m" pause pause)  
        )
' G. n( C+ I5 b* F4 F# A0 w" V) }" @5 _
输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。

而且可以重复命令。。

呵呵。。
+ I% |1 ]& ~0 {/ H
[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

autocad有此命令的，工具条上没有的话可以自己拖出来；
6 h& |! O, o& g5 O& v
也可以自己定义，按图二里的宏定义命令；
" p1 X# z# |/ r
[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m
. U! Z# G5 S1 q: t! K4 ~6 V
而且还可以重复命令。。