AutoCAD和浩辰CAD，gCAD都可以用的lisp

;000fff;日期：2016-01-01;文件名：mylisp20160101.lsp。;--------------------;FFF来进行指令提示。(defun c:FFF()(princ "\n 指令：FFF:进行指令提示；J:各种线段合并成多段线；JJ:合并多条多段线；JK:测量线段长度；zz:统计线段长度；KK:取消对象选择；K:文字编辑；HH:合并成单行文字；H:转换为当前图层") );--------------------;线条操作;1、对多条直线或多段线进行混合，合并(defun c:j(/
ss)(prompt "合并直线和多线段等等。") (setq ss (ssget)) (command "pedit" "m" ss "" "y" "j" "0" ""));2、对多段线进行合并(defun c:JJ(/ ss)(prompt "合并多条多段线") (setq ss (ssget)) (command "pedit" "m" ss "" "j" "0" "") (print ss));3、量取直线、多段线、样条曲线、圆弧、圆、椭圆的长度(defun c:jk() (prompt "测量线段长度")
(setq cm (getvar "cmdecho")) (setvar "cmdecho" 0) (while (setq ent (car (entsel "\n选取多段线<回车结束>:"))) (setq dxf (entget ent)nam (cdr (assoc 0 dxf)) )(if (wcmatch nam "LINE,*POLYLINE,SPLINE,ARC,CIRCLE,ELLIPSE") (progn(command "_lengthen" ent "")(setq cd (getvar
"PERIMETER"))(princ (strcat "\n所选取图元的长度为" (rtos cd 2 3))) )) ) (setvar "cmdecho" cm) (princ));4、统计选择线段的总长度。(defun C:zz (/ CURVE TLEN SS N SUMLEN)(princ "程序：统计线段长度 命令：zz") (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)) ) (princ (strcat "\n共选择 " (itoa (sslength SS)) "
条线段. 线段总长: " (rtos SUMLEN 2 3) " ."))) ;--------------------;选择操作;1、取消对象选择(defun c:KK() (prompt "取消对象选择") (command ));--------------------;文字操作;单行文字对象编辑(defun C:K(/ ss)(princ "\n文字编辑") (prompt "编辑天正文字") (setq ss (ssget)) (command "T63_TObjedit" ss ));合并成单行文字(defun
c:HH(/ SS) (setq ss (ssget))(command "IcTextMerge" ss "" "D"));转换成当前图层(defun c:H(/ ss) (setq ss (ssget))(command "LAYCUR" ss ""))(print "");--------------------;如下是指令快捷键。(princ "\n欢迎使用恰恰CAD-LISP插件!请看如下指令解释。") (princ "\n 指令：FFF:进行指令提示；J:各种线段合并成多段线；JJ:合并多条多段线；JK:测量线段长度；zz:统计线段长度；KK:取消对象选择；K:文字编辑；HH:合并成单行文字；H:转换为当前图层")
;--------------------;结尾必须增加一行语句(princ )，这样CAD窗口命令行才能正常显示。 (princ ) ;--------------------