同心 发表于 2009-11-29 02:40:12

[求助]：求能在R14下运行的批量标注直线的LISP程序

求能在R14下运行的批量标注直线的LISP程序
其中尺寸线和尺寸界线隐藏

carrot1983 发表于 2009-11-30 17:31:59


(defun C:TT (/ CMDECHO E ELIST I SS V10 V11)
(princ "\n★批量标注直线 by carrot1983 11/30/09")
(setq cmdEcho (getvar "CMDECHO"))
(setvar "CMDECHO" 0)
(command "._UNDO" "_END")
(command "._UNDO" "_BEGIN")
(if (setq ss (ssget '((0 . "LINE"))))
    (progn
      (repeat (setq i (sslength ss))
        (setq e (ssname ss (setq i (1- i))))
        (setq eList (entget e))
        (setq v10 (cdr (assoc 10 eList)))
        (setq v11 (cdr (assoc 11 eList)))
        (setq disList (cons (distance v10 v11) disList))
        (command "._DIMALIGNED" "_NON" v10 "_NON" v11 "_NON" v11)
      )

      (setq totalLength (apply '+ disList))
      (princ (strcat "\n★直线总长: " (rtos totalLength 2 3)))
    )
)
(command "._UNDO" "_END")
(setvar "CMDECHO" cmdEcho)
(princ)
)

同心 发表于 2009-11-30 23:45:05

非常谢谢carrot1983，您的程序给我工作带来了很大的方便，程序非常适用

acoff 发表于 2026-7-23 15:10:29

找半天找到这个小程序，非常感谢分享，简单实用。
页: [1]
查看完整版本: [求助]：求能在R14下运行的批量标注直线的LISP程序