|
|
我们很多时候相把线段、弧等组合为一个整体，CAD虽然有提供但不是很方便，我自己改良了一下：& ^/ ]; ^0 e' a" D3 m& j* H/ l" |6 {! I
' d, g5 b0 {1 t" X/ ]% S
说明：. F# W; t% Q9 |) A
3 ^5 ?1 V% ]; o3 O/ u9 C将下列代码复制后保存为MJN.LSP或其他文件名，但扩展名必须是LSP
) X: V" C# f4 A. z t" z5 @% e9 S2 p0 V0 h
用命令AP加载后。输入MJN，选择要组合的线段、弧、多段线等。
* E' g9 V7 r. C, z$ W, e. O
: |- u3 g# b+ E1 q- (defun C:MJN(/ obj)- J% m4 a* q- F8 M* R6 a4 W
- (setq obj(ssget(list(CONS 0 "*LINE,ARC,LWPOLYLINE"))))
# ]) S8 q! ?1 L+ Q1 a( p; q - (command "pedit" "M" "P" "" "Y" "J" "" "")" J. T+ D0 U2 p4 c
- (princ)) [6 x# r9 H+ X- B2 I; @% [
- )! z& f" N4 z! i
*LINE,ARC,LWPOLYLINE 这部分大家还可以添加，但必须要用 “，” 隔开; v4 r. M! J6 E) I, l* g
& L! C. U6 ?9 l! p: r/ ~
可以同时选择多组进行组合。 |
|
发表于 2008-5-23 09:24