施工线自动呼叫

jason_a · 发表于 2022-7-5 17:31:48

这就是我目前正在做的。

我画了一条45度角的线，把它放在自己的图层上（我们称之为“45”）。然后，我创建了一条与45度角线相交的垂直构造线。（创建垂直构造线时，我不会选择45度角线作为点。该点位于45度角线上以外的任何位置。）最后，我在垂直线和45度角线最终相交的点处创建了一条水平构造线。我创建的这些线是为了通过正交投影快速双重检查我的图形布局。

我试图通过lisp实现的是一个例程，提示输入点以创建垂直构造线。然后创建垂直构造线并与标记为45的线相交时，我希望在该点自动创建一条水平构造线。垂直构造线可能与图形中的其他线相交，但只有在检测到与标记为45的特定线相交时，才应创建水平构造线。这可能吗？

非常感谢。

marko_ribar · 发表于 2022-7-5 17:40:34

未经测试。。。

关于。。。

pkenewell · 发表于 2022-7-5 17:42:55

我的版本-快速组合，仅适用于线条对象：

copy


(defun c:test (/ doc space en el ep1 ep2 vp1 vp2 inp)
  (vl-load-com)
  (setq doc (vla-get-activedocument (vlax-get-acad-object))
        space (if (> (getvar "CVPORT") 1)(vla-get-modelspace doc)(vla-get-paperspace doc))
  )
  (if (setq en(entsel "\nSelect a Line: "))
     (progn
        (setq el  (entget (car en))
              ep1 (cdr (assoc 10 el))
              ep2 (cdr (assoc 11 el))
        )
        (if (setq vp1 (getpoint "\nSelect a point for a vertical xline: ")
                  vp2 (polar vp1 (/ pi 2) 1.0)
                  inp (inters ep1 ep2 vp1 vp2 nil)
            )
           (progn
              (vla-addxline space (vlax-3d-point vp1)(vlax-3d-point vp2))
              (vla-addxline space (vlax-3d-point inp)(vlax-3d-point (polar inp 0.0 1.0)))
           )
        )
     )
  )
)