挑战Lisp程序

GP_ · 发表于 2022-7-6 09:18:39

@MOTE-z公司

看看你是否从我的Lisp程序这个（糟糕的）英语版本中得到了提示。

描述：选择与由三角形3DFACE组成的曲面相交的直线/多段线2D/多段线3D，在模型上生成多段线3D（轮廓）。

教授3DF_EN。LSP

motee-z · 发表于 2022-7-6 09:21:00

谢谢GP_
我认为网上没有类似的lisp，这是一个很棒的lisp，我会努力理解它

GP_ · 发表于 2022-7-6 09:23:35

不客气。

我希望lisp能够有所帮助，尽管它在某些方面可以改进。

GP_ · 发表于 2022-7-6 09:28:55

我公开回应了在私人消息中收到的关于Lisp解释的请求，因为其他用户可能对此感兴趣。

_______________________________________________________
相交剖面线/三维面
对三角形（3DFACE）的三条边重复上述步骤
[列表]

pA pB->剖面线的点

p1 p2->三角形的顶点侧

p1a p2a->顶点p1和p2到高度0,00

p3->pA、pB/p1a、p2a的交点

如果p3->
[列表]

p4 p5->垂直p3上的点

p6a->交点（俯视图）剖面线/三维面
[/列表]

________________________________________________
3DFACE平面中的点

使用：帮助AutoCAD

这是lisp中发布的用法：
（cal“pINT\u z=ilp（p\u INT\u inf，p\u INT\u sup，p1，p2，p3）”）

注意：请记住加载几何计算器：
（如果（不是（成员“geomcal.arx”（arx））（arxload“geomcal”））

:)

[编程交流] 挑战Lisp程序

发表回复

精选推荐