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

ryyhui

曾经下载过这样类似的lisp语句，现在找不到了，
) X5 k" ]* i6 \; v3 g4 v8 a) Z
& y9 p- D! K' W/ f大家都知道，AUTOCAD里的打断命令，BREAK。

命令: br
BREAK 选择对象:
$ u' R) ^; W5 [3 B指定第二个打断点 或 [第一点(F)]: f
# b' F0 A' h6 f0 Y指定第一个打断点:
指定第二个打断点:

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


+ y: Z( Y/ c4 w* x0 z8 G: ?1 v所以希望在acad.lsp文件里，自定义一个函数 dad

加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。
" O6 M( L3 m* r% }
功能很简单，具体这个程序怎么编写，还请高手指点下。
" @! m; U" B5 m1 r: |
# l/ a: r$ m2 S! c是不是类似与下面的
' U- Z& B  H) c/ N$ f4 n' t& h& z
(defun c:dad()
3 m) N4 z3 z, y3 s      (command "break" ........"")  
' M9 Q& [9 S( ?& @& c        )
# s" [* D- T+ ]% I
: U! r7 a- u, O( p

! I6 z, x; O9 V$ g0 H=================     补充一下    ==========================


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

* E% \& }6 F) [- [
命令: _DIMBREAK
+ X9 W* ]: L6 Q* X  f3 g. P选择标注或 [多个(M)]:
选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m
指定第一个打断点:
指定第二个打断点:

我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m

- e/ \3 Q0 h9 {( e* `0 f: Z- z0 i（因为我喜欢手动打断标注对象）
( U- ]0 v2 ?' ~7 R
$ R) W8 c- ~; }0 L+ ~1 ~5 v- q楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。

! L0 M7 N1 m' l' w如果用lisp，建立一个快捷键，就可以重复操作了。。
' N3 l! {' X. o) `# F# e

. M* {8 p- X  r' F4 _& r* f, V* }: l
4 P6 p' n& V) b" v) t. p" e
=============   被我忽悠出来了  ===================
# |8 G, W. }* L/ f% a5 i
3 }/ T, v+ P6 e+ W! J+ |+ ~
: [+ k: Y) u: G) r5 `) _; a(defun c:dbr()
7 ^7 E8 E$ A9 L: Y( W& c/ i, f      (command "dimbreak" pause "m" pause pause)  
$ U; v8 u/ s* U( g& ^        )
- F  U0 V% N" Z, i8 F
$ `! `: d3 _# a9 [2 G输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。
) i, c$ v& d, I( X! {
而且可以重复命令。。
, T/ ?$ i/ p+ u6 h3 I  T
呵呵。。
+ Z1 U% m3 [' @8 |
[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ]

sealive_leafage

autocad有此命令的，工具条上没有的话可以自己拖出来；
7 O4 \0 c* w, j" T/ t( j4 Z7 U
也可以自己定义，按图二里的宏定义命令；
  E& C) E( u" V+ x7 ~, z8 R3 d" @0 ]
[ 本帖最后由 sealive_leafage 于 2009-12-11 15:04 编辑 ]

ryyhui

我要实现 打断尺寸标注 ，自动输入m，不要手动输入m
, o6 s: r) U; O9 t4 Q9 T) g
, n" ~# I7 d0 n" q而且还可以重复命令。。