|
|
发表于 2010-5-27 18:24:40
|
显示全部楼层
来自: 中国北京
本帖最后由 woaishuijia 于 2010-5-28 15:04 编辑
/ R- {- U* N- \$ W( o G( |% }1 K$ @- `, c8 m6 P
镜像命令本身很方便啊,是不是有点多此一举啊 ,- ( ~+ I6 \# v* W7 U+ G
- (defun c:mio(/ ss ent entlist b)
4 h" ^% @2 Y0 N+ j- }+ ? - (setq ss(ssget "i" ))
/ y1 k" w- T9 I& f - (if (not ss)
$ [5 N- A) Z, s/ r% K, { - (setq ss(ssget))
/ z) `# Z: ?) z9 @4 Y9 u, ~2 k! q - )5 D* e0 p: _8 q8 D: H6 A' H3 \5 ^
- (if ss" s2 I l, m }4 U1 n
- (progn
( E t, U# J6 u5 ^ i' R - (setq ent(entsel "\n选择做为镜像线的直线:" ))
' y# P9 x- \7 y- `0 h: T" S - (if ent
' v. |7 P; J0 L! X - (progn! D4 p5 u, [! T9 @: ?
- (setq entlist(entget(car ent)))
/ \1 U9 P9 b- V+ a/ B - (if (= (cdr(assoc 0 entlist)) "LINE" )3 C; ]/ I' q- X. ^) a3 J0 z
- (progn; W! k) a3 M0 `& W
- (initget "y n" )
1 n% W2 e; S7 @. Q# `" w - (setq b(getkword "\n要删除源对象吗?[是(Y)/否(N)] <N>:" ))& |, A& N4 s: W- P) r+ F5 b7 w
- (if (not b)
* g5 R/ a; v7 }" e6 D @ - (setq b "n" )2 n" s3 }. S+ G" n0 j( w0 `; ?
- )
% g6 A' a' q* u J" p - (setvar "CMDECHO" 0)2 F, H5 p5 B7 x
- (command "mirror" ss "" (cdr(assoc 10 entlist)) (cdr(assoc 11 entlist)) b)
7 j; Q4 m! M$ u: h - (setvar "CMDECHO" 1)3 l& ?/ a* O$ H+ j/ p- f9 W* ^% z9 Y
- )! ] y" l7 \! v
- ); _- z4 a1 [9 O+ Z% B0 [
- ). T% B/ b/ v! W+ P+ H/ Y4 J0 L
- )& x3 H: C4 J$ D) g3 z( k3 O
- )
( t; {9 x' l; w3 E& | - )6 E+ }( M6 _! l) y* D9 G" ]1 V
- (princ)
2 @. q2 \! b p& o* D - )
. f7 M% }) C% z
复制代码 |
评分
-
查看全部评分
|