如何在2段上绘制打断

s1222s · 发表于 2022-7-6 08:03:24

难道没有“VL”的东西就不可能准备这个lisp吗。我不需要它，并希望成为纯lisp没有视觉lisp和使用左或右的方向。

BIGAL · 发表于 2022-7-6 08:08:06

你所要做的就是使用polar命令计算出其他墙蒙皮上的交点，然后使用打断和绘制线等，始终选择内线或外线，然后你就知道墙位于哪个方向。我发布的示例是通过纯老式lisp创建的。但是我现在要走VL的路，删除了很多编码。


pi3 is 270 deg 
door line pts b d
wall w2 w3 w4 double skin wall
(setq pt3 (polar b (+ pi3 (angle b d)) (+ w2 w3 w4)))

s1222s · 发表于 2022-7-6 08:10:58

对不起，但什么是：

车门线路pts b d
墙w2 w3 w4双层外墙

pBe · 发表于 2022-7-6 08:13:08

有人点香草吗？

copy

(defun c:brV ( / osm d w1 w2 pt1 pt2 pt3 pt4)
(setq osm (getvar 'Osmode))
(setvar 'osmode 0)
 (setq d (getdist "\nEnter Door width: "))
 (setq        w1 (entsel "\nPick one side of the wall: ")
w2 (entsel "\nPick other side of the wall: ")
 )
 (command "_line"
   (setq pt1 (osnap (cadr w1) "_nea"))
   (setq pt2 (osnap (cadr w2) "_per"))
   ""
 )
 (setvar 'osmode 512)
 (setq dir (Getpoint pt1 "\nPick point for Direction:"))
 (setvar 'osmode 0)
 (command
   "_line"
   (setq pt3 (polar pt1 (angle pt1 dir) d))
   (osnap (setq pt4 (polar pt3 (angle pt1 pt2) (distance pt1 pt2)))
   "_per"
   )
   ""
 )
 (command "_break" (car w1) pt1 pt3)
 (command "_break" (car w2) pt2 pt4)
(setvar 'osmode osm)
(princ)  
)