CAD标注统计插件求修改

359321852 · 发表于 2023-12-21 10:44:43

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:bzcdqh()
(setq cmd (getvar "cmdecho"))
(setvar "cmdecho" 0)
(if (progn
      (princ "\n请选取标注:")
      (setq ssa (ssget '((0 . "DIMENSION") )))
)
      (progn
      (setq cdz 0)
      (setq i 0)
      (setq n (sslength ssa))
      (repeat n
            (setq dxf (entget (ssname ssa i)))
         (setq cdz (+ cdz (cdr (assoc 42 dxf))))
            (setq i (1+ i))
      )
      (alert (strcat "共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
      (princ (strcat "\n共选取了" (itoa n) "个标注，总长度=" (rtos cdz 2 3)))
      )
)
(setvar "cmdecho" cmd)
(princ)
)
麻烦高手帮忙修改一下，当获取“文字替代”的数据为空时，再获取“测量单位”数据，然后再求和。

登录/注册后可看大图

kmliro_2017 · 发表于 2023-12-24 08:03:38

谢谢分享！！！！！

ss77ssy · 发表于 2023-12-25 11:46:12

---------------------------------------------------------------
(repeat n
            (setq dxf (entget (ssname ssa i)))
            (setq cdz (+ cdz (cdr (assoc 42 dxf))))
            (setq i (1+ i))
         )
---------------------------------------------------------------
(repeat n
            (setq dxf (entget (ssname ssa i)))
            (if (cdr (assoc 1 dxf))
               (setq cdzi (cdr (assoc 42 dxf)))
               (setq cdzi (cdr (assoc 1 dxf)))
               )
            (setq cdz (+ cdz cdzi))
            (setq i (1+ i))
         )

ss77ssy · 发表于 2023-12-25 11:51:20

数据是字符串格式，还要处理的
修改只是提取字符串，
自己试试吧

ss77ssy · 发表于 2023-12-25 11:54:50

-----------------------------------------------------------
(if (cdr (assoc 1 dxf))
               (setq cdzi (cdr (assoc 1 dxf)))
               (setq cdzi (cdr (assoc 42 dxf)))
               )
-----------------------------------------------------------
不好意识，这块写反了，修正一下

账号		自动登录	找回密码
密码			立即注册

[求助] CAD标注统计插件求修改

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。