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

ryyhui

曾经下载过这样类似的lisp语句，现在找不到了，
6 e  l0 I  L& J! [! C8 X
大家都知道，AUTOCAD里的打断命令，BREAK。

命令: br
2 l" S; p' [) s. w. I" DBREAK 选择对象:
5 l# X; K4 Q$ g' G- e指定第二个打断点 或 [第一点(F)]: f
9 U9 V: D( O& q+ [: N/ q8 j" X$ e+ e, z  T: k指定第一个打断点:
, Z& G2 o, N( G, O指定第二个打断点:

每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。


- H/ h; I/ E4 x所以希望在acad.lsp文件里，自定义一个函数 dad
! Y, k, F8 s/ [2 D/ V, x2 z
) u' j3 y3 N. r# t9 ^+ F5 K' O加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。

功能很简单，具体这个程序怎么编写，还请高手指点下。
4 ~$ a5 G' Q+ s! G- }; C1 u3 d
. N( ]! l$ T! h0 ~0 P" c' b5 u是不是类似与下面的
0 g- v" O  O$ m% v1 g( o
7 i" B0 K" O' I' ^(defun c:dad()
/ j+ P) S; p4 l      (command "break" ........"")  
% T, [6 A' U! ]0 y# k- l        )
1 u  y, k3 B8 ~

3 s$ x4 |" a- ]: n
. o( {, s2 [, U" d$ z=================     补充一下    ==========================
4 O5 v( @/ _0 p9 ^/ U
3 s& |5 q2 E, y: [4 R6 {
上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m
, ?7 u, h/ A/ X) Y' R

命令: _DIMBREAK
选择标注或 [多个(M)]:
选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
指定第一个打断点:
指定第二个打断点:

# A3 u, u" z$ W4 u我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m

4 N1 F  i* f$ F  c（因为我喜欢手动打断标注对象）

楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。
- X8 _' X. L( @# w" j2 h8 v
. n: z) ^1 l! @' o9 v) l  M0 U如果用lisp，建立一个快捷键，就可以重复操作了。。


- A% ]1 I1 d& b. g6 n0 f
9 x. c  h8 `1 L: I8 O1 E- s0 f
=============   被我忽悠出来了  ===================
6 c9 Z9 G4 {/ S+ }
! A" |# ~( c+ [. ^! T
" f( _& ~( Z# T9 n* y. z(defun c:dbr()
      (command "dimbreak" pause "m" pause pause)  
        )

2 B/ t0 g& m# @  l0 w输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。
+ E% P; p8 a& ]" c
而且可以重复命令。。
( x6 {7 O2 z5 Y7 R+ k: F
呵呵。。

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

sealive_leafage

autocad有此命令的，工具条上没有的话可以自己拖出来；
0 a! o* O, M- ]# \- L
' e. d* C) m5 ^也可以自己定义，按图二里的宏定义命令；

) l$ n4 q2 \, Y- V/ m3 v[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

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

0 _% W/ k& n% y而且还可以重复命令。。