cad 快速绘图小插件程序.docVIP

使用方法： 将程序分别复制到txt记事本，保存后改后缀成.lsp 保存后，打开cad加载使用。 测量区域内的面积 (defun c:mj() (if *error* (command _boundary (setq p1 (getpoint \n点取要标注的封闭区域内部一点:)) ) ) (setq EN (entlast)) (command area o EN) (setq smj (getvar area)) (setq imj smj) (setq smj (/ smj 1000000)) (setq smj (* smj 1)) (setq smj (rtos smj 2 2)) (setq smj (strcat S= smj m2)) (if (= htxt nil) (progn (setq htxt (/ (sqrt imj) 15)) ) ) (setq htxt1 (getdist (strcat \n输入字体的高度 (rtos htxt 2 1) :))) (if htxt1 (setq htxt htxt1) ) (setq Pt (getpoint \n 文字标注位置:)) (command style MJ txt.shx htxt 0.8 n ) (command text s MJ j BC pt smj ) (COMMAND TEXT Pt ffsize 0 smj) ) 求cad图纸内任意数字之和 (defun C:QH (/ sset qhb ssl temp t1 h n) (setq sset (ssget)) (setq qhb nil) (setq ssl (sslength sset)) (if ( ssl 25) (princ \n 确认所选的图元 -- 请稍候. ) ) (while ( ssl 0) (setq temp (ssname sset (setq ssl (1- ssl)))) (if (= (cdr (assoc 0 (entget temp))) TEXT) (progn (setq t1 (cdr (assoc 1 (entget temp)))) (if (or (= (type (read t1)) INT) (= (type (read t1)) REAL)) (setq qhb (cons (atof t1) qhb)) )) )) (if ( (length qhb) 0) (progn (setq h 0) (foreach n qhb (setq h (+ n h))) (prompt \n 和为:) (princ h) (print) ) (prompt \n ERROR: 未选到数字!) ) ) 求cad图纸内任意线长之和 (defun C:ZCD (/ CURVE TLEN SS N SUMLEN) (vl-load-com) (setq SUMLEN 0) (setq SS (ssget ((0 . CIRCLE,ELLIPSE,LINE,*POLYLINE,SPLINE,ARC)))) (setq N 0) (repeat (sslength SS) (setq CURVE (vlax-ename-vla-object (ssname SS N))) (setq TLEN (vlax-curve-getdistatparam CURVE (vlax-curve-getendparam CURVE) ) ) (setq SUMLEN (+ SUMLEN TLEN)) (setq N (1+ N)) ) (print (strcat 总长度: (rtos SUMLEN 2 5))) (princ) ) 求cad图纸内任意数字之乘积和除法 (defun C:q( / #os1 #os2 #os3 @k) (setvar cmdecho 0) (setvar blipmode 0) (setvar dimzin 0) (vl-load-com) ;;加载vlax扩展函数 (setq #os1 (getvar osmode)) (setq #os2 (getvar Clayer) #os3 (getvar textstyle); 取得当