直线，所有l的正交线

FOU · 发表于 2022-7-6 12:45:48

我想知道是否有人有一个lisp来验证一个层上的所有线，如果是正交和直（垂直和水平）
谢谢

Lee Mac · 发表于 2022-7-6 12:53:17

我们说的只是台词吗？还是*多段线/连接线？

FOU · 发表于 2022-7-6 12:53:54

只要排队就够了

Lee Mac · 发表于 2022-7-6 12:59:58

简单介绍一下：

copy


(defun c:allortho (/ nss i ss ent st en)
 (setq nss (ssadd))
 (cond ((setq i -1 ss (ssget "_X" '((0 . "LINE"))))
        (while (setq ent (ssname ss (setq i (1+ i))))
          (setq st (cdr (assoc 10 (entget ent)))
                en (cdr (assoc 11 (entget ent))))
          (or (equal 0.0 (- (cadr st) (cadr en)) 0.0001)
              (equal 0.0 (- (car st)  (car en))  0.0001)
              (ssadd ent nss)))
        (sssetfirst nil nss))
       (t (princ "\n** No Lines Found **")))
 (princ))