尺寸到线条

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

不客气。

[编程交流] 尺寸到线条

发表回复

精选推荐