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

直线，所有l的正交线

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

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

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

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

只要排队就够了

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

简单介绍一下：
 

(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))

 
公差=0.0001
 
您可以将过滤器添加到SelectionSet（ss）以过滤图层

dbroada 发表于 2022-7-6 13:02:55

这很好。至少在我的画上是这样。现在那些我不喜欢的画在哪里，是那个小个子画的。。。。。。。。。。。

Lee Mac 发表于 2022-7-6 13:05:57

谢谢Dave-只是不确定什么样的容忍度是好的，也许0.0001太低了？

dbroada 发表于 2022-7-6 13:10:32

我使用snap，所以我不太可能“出局”。在我的屏幕上，0,05小于1像素，但0,1显示为一个步长，因此您可能会感觉有点好。（当然，英制可能需要更精细）

FOU 发表于 2022-7-6 13:17:01

我不确定我做错了什么，但允许我所有的线都不是直线，但不要把它改成直线。
 
有线索吗？

Lee Mac 发表于 2022-7-6 13:20:34

 
你没有提到任何关于改变台词的事。。。

FOU 发表于 2022-7-6 13:22:21

呵呵，对不起，但你得到了一些谁会做的。请。哈哈
我觉得这对很多人都有用
页: [1] 2
查看完整版本: 直线，所有l的正交线