统计周长，lisp

gahzlly

已于 2024-04-01 14:48:18 修改

阅读量548

点赞数 10

文章标签： lisp auto pilot

于 2024-04-01 14:42:52 首次发布

本文链接：https://blog.csdn.net/gahzlly/article/details/137232680

版权

这是一个LISP程序，用于计算AutoCAD中选定图块的周长及费用。程序首先获取所有图块，然后遍历每个图块进行编辑，通过内循环获取每个图元的周长和面积，特别处理了LINE、ARC、CIRCLE、ELLIPSE、LWPOLYLINE等不同类型的图元。最终输出图块名称及其数量、周长信息。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(defun C:JG()
(prompt "计算激光周长及费用")
(setvar "cmdecho" 0)
(setq osm (getvar "osmode"))
(setvar "osmode" 0)
(vl-load-com);;打开VL程序
;;下列开始外循环

(setq ss (ssget "all"));;全部选中
(setq n 0)
(repeat (sslength ss )
       (setq ent (ssname ss n ))
       (setq ent1 (entget ent))
       (if(=(cdr (assoc 0 ent1)) "INSERT");;;;;;
       ((setq TK2 (cdr (assoc 2 ent1)));;图块名保存

   ;;;;;;;;;;;;;;;;;

       (progn
           (setq namlst (nali ss))
           (setq blist (naco ss namlst))
           (princ "\n块名")
           (princ (setq str1 ".........."))
           (princ "数量")
           (princ "\n————————————————————")
           (foreach n blist
           (princ "\n")
           (princ (setq str2 (car n)))