|
|
我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：8 D" ^5 z/ `) f% C, k1 ?
. G+ ]9 H. \% x8 p7 W
说明：: e6 T$ a+ p8 Y# s
0 C$ Q. R5 U! Z" q将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
# j% r- b! y8 M3 j4 i' k) p* n( x) O! t) O x6 {& N/ S
用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。
: g3 c+ x1 G1 v; Z; H
. F7 |7 r, R$ L- (defun C:MJN(/ obj)
H ^) m4 }. c, V3 G: V I - (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))# P, `4 m0 A' n
- (command "pedit" "M" "P" "" "Y" "J" "" "")
+ x1 X) P$ D2 @* ^/ f - (princ)5 S/ m! m- K2 K4 q) r1 R
- ): `3 y1 s1 t* |7 M/ K; c+ z5 A5 |
*LINE,ARC,LWPOLYLINE 这部分大家还可以添加，但必须要用 “，” 隔开: J. V; l2 y' R% n! c6 ]
9 P% H* q# W+ z可以同时选择多组进行组合。 |
|
发表于 2008-5-23 09:24