|
|
马上注册，结识高手，享用更多资源，轻松玩转三维网社区。
您需要 登录 才可以下载或查看，没有帐号？注册
x
曾经下载过这样类似的lisp语句，现在找不到了，
) `9 D! z0 F* d3 U7 L( q3 n
" w& x5 v( N, \4 n大家都知道，AUTOCAD里的打断命令，BREAK。, X& W1 g% @% O! B! J I' J
% Q N1 o& k4 s% q% V- K' c命令: br
& e) d& [5 Y5 B3 O" y) A$ \; DBREAK 选择对象:$ V' q% T2 _# }5 I+ |8 X
指定第二个打断点 或 [第一点(F)]: f' j' [" K) q) y3 O
指定第一个打断点:
7 M6 c: [9 G$ l3 ^指定第二个打断点:
h8 B& |7 B5 L7 M5 W9 a) r
1 o" O) m! p& S; V. m8 \1 \9 U- V每次运行BR后，还要手动输入下F，来选择第一点，非常不爽。0 e/ ~* j$ j6 ^( {
. p# W- T7 P/ o/ k; v# ]3 H( U# J0 L9 h: y- W7 Y: N
所以希望在acad.lsp文件里，自定义一个函数 dad
- P/ `) ^8 ]* R9 | T0 l2 g. K& X. [. V) W- Z+ V
加载acad.lsp后，输入dad，就能直接选择第一点，而不要再输入m。
0 c0 }1 O @: A! {2 l! I1 w8 F+ z2 q& n: B
功能很简单，具体这个程序怎么编写，还请高手指点下。 s, |. G- U$ W
; J( j! l* S0 _& `" y是不是类似与下面的
* x, _5 Y' S. C4 Z5 }8 G
Z( I; B# q/ U* V4 J S(defun c:dad()
# A5 n1 V$ Z H' M' R" w (command "break" ........"") ! p- a) H7 S7 U3 m% z' ~ F" e' ^7 ?
)
- ^) I# G( y7 p$ C! Q5 a% |/ {2 `; }9 j+ I
0 i) V# c8 W( V ^1 k% k/ y" j
; J0 O2 I9 g: {7 m) c' W================= 补充一下 ==========================
8 G8 b# K, \4 @0 G4 w j* @. ~+ ~9 x' f) n+ j% ^2 v
( B# _1 c: w+ t. P! F7 A$ }( r上面只是举个例子，其实我是想把打断尺寸的命令 dimbreak 。实现自动输入m# K/ G6 I: Y B% t% _
8 d/ g3 w$ D$ n. N" g, o' ?) x5 d8 \3 W
命令: _DIMBREAK
/ r* ^# N0 V9 N& R% A6 Z8 L选择标注或 [多个(M)]:+ Z9 a; Y; p4 W+ V! Z: H1 y7 F1 k
选择要打断标注的对象或 [自动(A)/恢复(R)/手动(M)] <自动>: m( |: X% J6 j5 y$ P, u
指定第一个打断点:+ i4 j! }" n# E( O6 J) r
指定第二个打断点:) \; x9 ]. n1 a5 F1 T% V) }
# k5 a J" |! o+ W$ x) t我想编个lisp，用快捷键实现打断尺寸，自动帮我输入m
" B+ q5 C( @% O: E
- m) Q1 f6 a0 N* \5 A（因为我喜欢手动打断标注对象）' G; w5 F7 ?( C! r5 R) K) z7 v
- M3 L) `: [: a# A9 o$ _8 P! J
楼下的大大，你的方法，我看过，但是不能进行重复操作（我是指，点了图标后，按空格或单击邮件来重复命令）。) H4 C/ y$ _$ ~
& Z4 | |. _3 r9 k- F* U" H如果用lisp，建立一个快捷键，就可以重复操作了。。
" K! C7 c# `/ J. X8 q" U
# i. o1 g: J. G1 F, Y- N4 c
+ K- a3 i v9 W9 T7 J$ ~1 h; v2 u" [4 R% a5 Z' I( t! `% Q8 I8 S
& V' ^$ y: q x# _3 t============= 被我忽悠出来了 ===================
2 |) |" l& r0 C9 I/ M' A/ P6 e5 a1 k
- }4 ?# q/ w+ A5 Q$ u) T
2 U/ h+ [6 m3 Z+ K(defun c:dbr()
J. h: t+ i/ _9 @. B( R (command "dimbreak" pause "m" pause pause)
' J" a( K9 l d7 Z4 k5 G2 h( v) l# e )
9 J! m- u% q% A n. P, g _! d# s3 j
输入dbr后，可以直接打断尺寸线，（手动点2个打断点）。。6 V+ w% y# w) b7 ]2 U
/ R) ?; y& {6 q* H2 r9 J/ q3 _而且可以重复命令。。6 S9 r+ h4 I2 `: {, G
. G5 g h% b: z# v+ I1 a* t呵呵。。! [2 U4 Z" X9 n8 `) K% g
6 w, j8 O S% Q$ ^& k
[ 本帖最后由 ok22ko 于 2009-12-11 15:40 编辑 ] |
|
发表于 2009-12-11 13:52:10
发表于 2009-12-11 14:59:17
楼主