AutoCAD-LISP实用程序.docVIP

AutoCAD-LISP实用程序 多重复制 (defun C:CM () (setq A nil) (setq OM (getvar OSMODE)) (setvar OSMODE 33) (setq PNT1 (getpoint \n拾取第一点： )) (setq PNT2 (getpoint \n拾取第二点： PNT1))(terpri) (initget 1 M E N) (prompt \n选择如下之一： ) (setq CTYPE (getkword \n(M)最大间距 (E)精确间距 (N)数量： )) (if (= CTYPE M) (setq SP (getdist \n最大对象间距： ))) (if (= CTYPE E) (setq SP (getdist \n精确对象间距： ))) (if (= CTYPE N) (setq SP (getreal \n对象数量： ))) (setq DIST (distance PNT1 PNT2)) (setq ANG (angle PNT1 PNT2)) (setq TEMP1 (/ DIST SP)) (setq TEMP2 (fix (/ DIST SP))) (setq INC1 SP) (setq INC2 (/ DIST (+ 1 (fix (/ DIST SP))))) (setq INC3 (/ DIST (- SP 1))) (if (= TEMP1 TEMP2) (setq INC INC1) (setq INC INC2)) (if (= CTYPE E) (setq INC INC1) (setq INC INC)) (if (= CTYPE N) (setq INC INC3) (setq INC INC)) (setq TMS (FIX (+ 0.00001 (/ DIST INC)))) (setvar OSMODE 0) (setq A (ssget)) (setq INCR 0) (repeat TMS (setq INCR (+ INCR INC)) (setq NEWPT (polar PNT1 ANG INCR)) (command copy A PNT1 NEWPT) ) (setvar OSMODE OM) (setq A nil) );end cm.lsp 绘制箭头 (defun C:jt() (prompt \n绘制箭头) (setq oldmode (getvar osmode) cm (getvar cmdecho)) (setvar osmode 0) ;关闭扑捉 (setvar cmdecho 0) (initget A B C) (setq enda (getkword \n直箭头A/弯箭头B/大弯箭头C A) enda (if enda enda A)) (while (setq p1 (getpoint \n箭头的尖端位置:)) (setq pp1 (getpoint \n箭头的长,宽: ) dd (car pp1) w (cadr pp1)) (setq p2 (getpoint p1 \n箭头的方向: ) an (angle p1 p2) p2 (polar p1 an dd)) (prompt (strcat 箭头的长为 (rtos dd 2 4))) (if (= enda A) (progn (prompt (strcat 箭头的宽度为 (rtos w 2 4) 输入直线的宽: )) (setq w1 (getreal)) (command pline p1 w 0 w p2 w w1 w1 (polar p2 an (getdist p2)) w 0 0 ) ) (if (= enda B) (progn (prompt (strcat 箭头的宽度为 (rtos w 2 4) 输入弯线的宽: )) (setq w1 (getreal)) (command pline p1 w 0 w p2 w w1 w1 a pause ) ) (if (= enda C) (progn (prompt (strcat 箭头的宽度为 (rtos w 2 4) 输入弯线的起始宽,终止宽: )) (setq ww (getpoint) w1 (car ww) w2 (cadr ww) ) (command pl