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

ryyhui

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

大家都知道，AUTOCAD里的打断命令，BREAK。
: f( d0 Q  M4 V0 ^4 ~
命令: br
BREAK 选择对象:
指定第二个打断点 或 [第一点(F)]: f
指定第一个打断点:
! m: D/ w& S6 e7 z* j% m指定第二个打断点:
+ z4 T, I7 K6 J& u1 o! Q# F1 j
/ U* k" ~4 r5 Y: _" @5 n# v每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。

3 {( d' K; N, e- U
2 N# P, r* g' g1 M0 u所以希望在acad.lsp文件里，自定义一个函数 dad
) n7 l) h0 v1 U
加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。
. I0 ~' s" W) O) D9 S5 Y
功能很简单，具体这个程序怎么编写，还请高手指点下。
8 n2 m7 Q% Z8 S: V! n! ?
6 ~; f: I: o) P# d: L是不是类似与下面的
7 y5 z- Y4 H6 A6 c& j
(defun c:dad()
! N$ Q, q4 i# R. x6 y- e      (command "break" ........"")  
        )

( z5 W; l3 p' z5 L

=================     补充一下    ==========================


上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m

+ g0 f- k  I+ Q3 g/ z* Q7 K
命令: _DIMBREAK
* o! Y) }) f" z6 O选择标注或 [多个(M)]:
. P4 m& g5 _0 e* w4 \选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
2 }# U, ?2 \4 `) U8 D0 }指定第一个打断点:
# r; ]) {6 n; p9 E9 `+ r2 }# `指定第二个打断点:
/ N2 c" N% _1 ]4 ^( _/ |" h) B# W
我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m
# S% h$ K$ o9 Y3 N/ g8 r. D+ n+ l# A
（因为我喜欢手动打断标注对象）

楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。
6 X+ U6 b+ I. {& f# g/ }! ]
% W# f& A. }% \% w/ o) Y6 F) M如果用lisp，建立一个快捷键，就可以重复操作了。。
" `& C! W; {) p# y



5 e4 W' _% x5 d0 }! d$ e=============   被我忽悠出来了  ===================
: N2 H* o0 I) {( M: Z
7 ^3 n# T# `: J8 N2 y3 r+ K2 [
" @3 K' n. n6 u9 z(defun c:dbr()
# B" }( X: [( w      (command "dimbreak" pause "m" pause pause)  
) v  a; Q+ r, T% d9 q& K/ i2 V        )
' h& ~' s, p. T5 Q2 A% z
9 M4 `. \% J1 E5 e输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。

而且可以重复命令。。

( w2 h0 o+ t* a3 Y, ?6 x1 V, u呵呵。。

[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

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

也可以自己定义，按图二里的宏定义命令；

[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m
2 ^2 L8 E( T$ D; B% F4 I$ |7 P
而且还可以重复命令。。