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

ryyhui

曾经下载过这样类似的lisp语句，现在找不到了，
. x, e& H, }4 S+ t3 c( r
大家都知道，AUTOCAD里的打断命令，BREAK。

% ?! z8 W- C% b* G命令: br
( _  g1 R' ?9 p; q( F+ F- RBREAK 选择对象:
指定第二个打断点 或 [第一点(F)]: f
! \* W) z4 R% `) p0 h+ h指定第一个打断点:
指定第二个打断点:
- O4 {7 c  }1 m5 ?/ X5 v5 J, J
每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。

3 v% B1 f! F( Z$ d9 a
所以希望在acad.lsp文件里，自定义一个函数 dad

加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。
0 ]8 s0 q* y+ j2 @9 V
功能很简单，具体这个程序怎么编写，还请高手指点下。
  n. c4 \2 z/ z
$ w9 g6 [& I# I0 {  Y) W是不是类似与下面的

(defun c:dad()
4 g. k! N# q6 |" p7 |" q. m      (command "break" ........"")  
+ @0 Y! r' p. `* M- M% k- i        )


, d4 G: f( |5 u
=================     补充一下    ==========================

- \5 j& a. I; B+ @. M4 r
上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m
/ {2 Q6 F& K) e. c7 r- e

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

我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m
1 W. U& X, Q. j$ n7 h
. w) t" x1 T3 g; U（因为我喜欢手动打断标注对象）

' u# y7 T3 j6 V+ a) ~& `楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。

8 S2 @7 M. X9 H- O$ h8 }* Z, ]如果用lisp，建立一个快捷键，就可以重复操作了。。

2 o0 x; M6 F7 N( w: b* S% w
8 A  x3 p; v0 C7 c: j7 S1 z- M8 c

=============   被我忽悠出来了  ===================
  [: c1 \8 }* E4 N9 F% Y" s
9 Y9 D4 {7 ^. p( k/ f% S' `* b& z) a
(defun c:dbr()
/ \8 W9 ^$ v" U& l, F9 R      (command "dimbreak" pause "m" pause pause)  
" c- D( w( g& [        )
0 _% P6 c* e4 d7 F
输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。
3 ~7 p8 w# B, e0 c
而且可以重复命令。。
8 I" S. Y+ G8 s+ z: Y; @1 c( A
5 O( y2 H( H% h呵呵。。
: ~; x; U6 L# W1 N$ n
# [) F" K! y0 W( \, d$ h[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

autocad有此命令的，工具条上没有的话可以自己拖出来；
& _* D6 }1 h1 V  {7 }4 @( k
也可以自己定义，按图二里的宏定义命令；

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

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m
" ^6 F1 x: K4 [7 Y6 e$ @  `
而且还可以重复命令。。