社区 › Auto Lisp › 尺寸到线条

marmo 发表于 2022-7-5 23:27:44

尺寸到线条

你好
我想知道是否有代码允许在每个选定维度（对齐和旋转）的两点之间自动绘制一条线。
就像这张照片。
谢谢你的帮助。

Tharwat 发表于 2022-7-6 00:04:11

试试这个简单的。
 

(defun c:Test (/ ss )
(if (setq ss (ssget '((0 . "DIMENSION"))))
   ((lambda (i / sn e)
      (while (setq sn (ssname ss (setq i (1+ i))))
      (entmakex (list '(0 . "LINE") '(62 . 2) (cons 10 (cdr (assoc 13 (setq e (entget sn)))))
                        (cons 11 (cdr (assoc 14 e)))))
      )
      ) -1)
   )
(princ))

marmo 发表于 2022-7-6 00:12:34

完美的
它工作得很好。
非常感谢Tharwat！

Tharwat 发表于 2022-7-6 00:32:14

 
不客气。

查看完整版本: 尺寸到线条