[帮助]Lisp并行性检查

luusca · 发表于 2022-7-5 17:17:53

大家好，有人能帮我吗？
我试图找到一个类似下面示例的lisp，但没有找到。

这是一个lisp检查线之间的平行度，理想值是1.5m，当它大于此值时，绘制线。

断然的

alanjt · 发表于 2022-7-5 19:00:10

又快又脏。。

代替

(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))

具有

copy

(if (> (distance p1 p2) 1.5)
 (entmake (list '(0 . "LINE") '(62 . 6) (cons 10 p1) (cons 11 p2)))
 (entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
)

[编程交流] [帮助]Lisp并行性检查

发表回复

精选推荐