墙代码的帮助

ebrito · 发表于 2022-7-6 15:13:24

该代码使用中心线绘制墙，并根据墙的厚度指定层。

我相信一些大师可以帮助我改进它，如下所示：

·当输入最后一个点时，消除讨厌的“错误：错误参数类型：2D/3D点：nil”消息
·当最后一面墙的端点是第一面墙的第一个点（墙闭合形成房间）时，使墙线成圆角。
·当存在T或X交点时，使墙线（不是中心线）成圆角。
·清理代码，以获得更好的解决方案。

提前谢谢，我为写代码的糟糕方式道歉。

Lee Mac · 发表于 2022-7-6 16:12:39

*未附上代码*

ebrito · 发表于 2022-7-6 16:40:38

我真傻，这是密码：

（定义c：墙（/f1 pnt4 f2 c d e pnt1 pnt3 pnt2 pnt5 pnt6 ang lac laca ee f11 f21）
（setvar“osmode”0）
（命令“fillet”“r”0）
（setq f1 nil）
（setq pnt4 nil）
（setq f2 nil）
（setq c 0）

;;;;;-------------------------------------------------------
（if（非*WID）（setq*WID 0.15））
（princ“\n输入墙宽度：
（普林斯*威德）
（SETQ WID（GETDIST“>：”）
（IF（非WID）（SETQ WID*WID）（SETQ*WID WID））

（SETQ MWID（/WID 2））
;;;;;;;----------------------------------------------------
（SETQ EE（*WID 100））
（SETQ EE（RTOS EE 2 0））
（setq Lac（strcat“WALLS-BLINE-“EE”）
;;;;;;-----------------------------------------------------

（setq e 3）
（setq pnt1（getpoint“\n墙的第一点”））

（e时）
（如果（/=pnt3 nil）（setq f1 pnt3））
（如果（>c 1）（setq f1（极性pnt3和mWID）））

（如果（/=pnt3 nil）（setq f11 pnt5））

（如果（>c 1）（setq f11（极性pnt5和mWID）））

（setq pnt2（getpoint“\n下一点”pnt1））
（setq c（+c 1））
（setq aNG（角度pnt1 pnt2））
（setq pnt3（极性pnt1（-aNG（dtr 90））MWID））
（setq pnt4（极性pnt2（-aNG（dtr 90））MWID））
（setq pnt5（极性pnt1（+aNG（dtr 90））MWID））
（setq pnt6（极性pnt2（+aNG（dtr 90））MWID））
（命令“LAYER”“MAKE”LAC“COLOR”“6”“LTYPE”“CENTER”“”“）

（命令行“pnt1 pnt2”）

（setq LacA（strcat“墙”-EE））

（如果(
（命令“LAYER”“MAKE”Laca“COLOR”2““ltype”“continuous”“”“”）
（命令“LAYER”“MAKE”Laca“COLOR”4““ltype”“continuous”“”“”）

（命令行“pnt3 pnt4”）
（命令行“pnt5 pnt6”）

（setq f2（极性pnt2（-aNG（dtr 90））mWID））
（setq f21（极性pnt2（+aNG（dtr 90））mWID））

（setq pnt1 pnt2）
（如果（/=f1 nil）（命令“fillet”f1 f2））

（如果（/=f11 nil）（命令“fillet”f11 f21））
（命令“LAYER”SET“0”）
)
（普林斯）
)

[编程交流] 墙代码的帮助

发表回复

精选推荐