664571221 发表于 2016-4-4 14:21:53

求标注功能

求输入命令tt，框选标注，使标注相加，用米为单位，比如1.205+1.888+2.500

5d95286278 发表于 2016-4-18 21:54:17

找出标注数值，赋值给变量，再计算就可以了，论坛上有

dabingrain 发表于 2016-4-20 00:18:39

;;将多个标注值简单求和
(DEFUN c:DB:DIMSum ()
(setvar "cmdecho" 0)
(prompt "请选择一个或多个标注")
(setq s1 (ssget '((0 . "dimension"))))
(setq i 0)
(setq ss1 0.0)
(setq ss2 0.0)
(repeat (sslength s1)
    (setq len_data (entget (ssname s1 i)))
    (setq ss11 (cdr (assoc 42 len_data)))
    (setq ss1 (+ ss1 SS11))
    (setq ss22(cdr (assoc 1 len_data)))
    (if        (= ss22 "")
      (setq SS22 (rtos SS11))
    )
                (setq ss22 (calSS22))
    (setq ss2 (+ ss2   SS22))
    (setq i (1+ i))
)
        ;;得到小数位
        (setq       
                dimst        (cdr (assoc 3 len_data))
                st        (tblsearch "dimstyle" dimst)
                XSWS(cdr (assoc 144st))
                XSWS(fix XSWS)
        )
(prompt "\n标注测量值合计为：")
(princ (rtos ss1 2 XSWS))
(prompt "\n标注文本合计为：")
(princ (rtos ss2 2 XSWS))
(princ)
)

zhangkui9070 发表于 2020-7-29 17:44:47

学习一下

maiko 发表于 2020-7-30 10:57:08

感谢楼主分享,收下了
页: [1]
查看完整版本: 求标注功能