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

ryyhui

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

大家都知道，AUTOCAD里的打断命令，BREAK。

命令: br
BREAK 选择对象:
( k, C7 G# Q3 b, L; ^指定第二个打断点 或 [第一点(F)]: f
指定第一个打断点:
& E+ D: s( e$ d5 d+ j: m# f指定第二个打断点:
/ k& C! M- x! p' L. S
每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。


所以希望在acad.lsp文件里，自定义一个函数 dad
, X2 T* J! J7 l/ P* F" ]9 k
* N9 D8 I/ Q/ k7 U加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。

; x6 j: P; }" B6 ^  N1 k! ^6 Y9 N功能很简单，具体这个程序怎么编写，还请高手指点下。

7 B- O5 t; s4 g1 q是不是类似与下面的

(defun c:dad()
      (command "break" ........"")  
; ^% }: o* z2 Q$ {% D; F, H        )
0 B5 I: T8 @) n; @3 N$ _) t
' Z/ `) z6 T6 X9 n4 |2 \
, \2 v" H8 j5 Q) z9 W
=================     补充一下    ==========================
& `0 C0 V/ u3 Y* d: c
+ U: u2 O" S. \" g5 _
* }  L3 L) T$ s7 C上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m
! Q8 n: P9 q! d, @' P% P7 x+ W
* U! Z6 ?1 |; E$ C
命令: _DIMBREAK
7 ~; X8 r! Z4 H0 c( C选择标注或 [多个(M)]:
$ b+ w( i! k1 l' k. b选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
指定第一个打断点:
指定第二个打断点:
. x% y7 ~5 f. e- \
5 r$ B( z# [+ S  H9 Z3 l我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m
) e! H! ~4 u5 ~( T8 N' u% C
（因为我喜欢手动打断标注对象）

楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。
. v  _# ^7 i  N
如果用lisp，建立一个快捷键，就可以重复操作了。。
) X9 y, @. q5 K  L' p



=============   被我忽悠出来了  ===================
* m- ?* w- y/ l! h- d; A) O( J
- s) s) K" H9 U5 G
(defun c:dbr()
; e3 @6 R' z4 X      (command "dimbreak" pause "m" pause pause)  
; G7 x4 M  K6 Z) @5 W9 H+ q        )

输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。

而且可以重复命令。。

+ }; w" O) r6 Y% F8 @呵呵。。

+ x! \* s0 {( \  h# [$ [) v[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

autocad有此命令的，工具条上没有的话可以自己拖出来；

也可以自己定义，按图二里的宏定义命令；
- i  z0 O. b9 s# _- T" r
[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m
/ }+ I/ ^8 I! c
而且还可以重复命令。。