[帮助]Lisp并行性检查
大家好，有人能帮我吗？我试图找到一个类似下面示例的lisp，但没有找到。
这是一个lisp检查线之间的平行度，理想值是1.5m，当它大于此值时，绘制线。
断然的
又快又脏。。
代替
(entmake (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))
具有
(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)))
)
页:
[1]