;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 ) ;--------------------

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的lisp ssget 浩辰_AutoCAD和浩辰CAD，gCAD都可以用的lisp的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。