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

ryyhui

曾经下载过这样类似的lisp语句，现在找不到了，
5 h* F: M  x3 D/ X
( Q0 x4 K; u" f" X1 _. Q大家都知道，AUTOCAD里的打断命令，BREAK。
* @6 r: }0 j' t; b! `/ G) f  L
7 z' }; [" E+ H6 S命令: br
BREAK 选择对象:
指定第二个打断点 或 [第一点(F)]: f
指定第一个打断点:
指定第二个打断点:
# p, j; v* h. H2 X+ d
每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。


( L% ?9 y3 N! b" [所以希望在acad.lsp文件里，自定义一个函数 dad
8 T6 j$ v: g/ q
$ y" z: e* ^  w/ F# j加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。

功能很简单，具体这个程序怎么编写，还请高手指点下。
+ J5 C5 o" \  D5 L) d: f& k9 T# U  A
7 r* `; ]& J  C( Q6 L是不是类似与下面的

4 W# [# k) L0 t: ^! d(defun c:dad()
; {' m! V- d$ b' {      (command "break" ........"")  
+ h8 Q7 r4 p8 w' [9 J        )
- i* n7 R9 {2 h


# g) v, T1 a4 q2 g% ?2 x+ O=================     补充一下    ==========================
% m( Z: }$ `: D" ~0 `7 H2 G$ k

) x3 W& w5 g( Y5 ^+ l( v& a6 Z上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m

$ }( V7 d7 n8 P# k
& g* B& }) G( D7 q/ N% Z& O命令: _DIMBREAK
选择标注或 [多个(M)]:
选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
指定第一个打断点:
+ R+ _$ u1 d7 m7 A% h3 e2 A' }指定第二个打断点:
# F8 J! _9 r- ?9 n# d7 h
* @2 {3 h& L/ F9 I) S1 g5 ]我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m
6 s# w% ?  X3 p
# H0 e3 P" u9 L3 ~6 L8 j（因为我喜欢手动打断标注对象）

. g2 S5 |4 x. ?1 x. X楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。

如果用lisp，建立一个快捷键，就可以重复操作了。。
" O, u1 F7 r% j' z& `# V


; ^0 X  i$ V* V7 x0 Z: F
( [2 q, Y8 M+ g6 L% u2 j5 c0 `=============   被我忽悠出来了  ===================

$ {/ q3 V+ ]9 D$ \* v" {
(defun c:dbr()
5 F' |1 V" Q& G" e; y, [      (command "dimbreak" pause "m" pause pause)  
9 g/ Y4 C3 O$ W        )
: c' Q8 m- L5 g1 H; a
输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。
5 Y+ \, |5 ^# Z8 R7 r
  W4 ~+ I: u4 l2 A( i, Q8 Y而且可以重复命令。。

呵呵。。
- A0 m' s2 X3 [2 N) ]( j6 t/ p
[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

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

% B: v4 @8 w- A! O' u0 b也可以自己定义，按图二里的宏定义命令；
1 p8 z$ Y1 T7 I9 n# T5 c' e
' p" e) c5 v4 I$ K2 a[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m

0 v" U2 y5 I- ?0 _5 d而且还可以重复命令。。