[求助]不用CAD命令怎样创建图形边界?

Saging

请问各位,在LISP中不用(COMMAND "xxxx")命令怎么样才能创建跟(COMMAND ".BOUNDARY")一样的图形边界呢?

caiqs

先从点取的点向各方向画一射线,比喻把360 度按精度10等分,每隔一度生成射线,求与射线相交且与所点取的点最近的实体,以此完成360度,得出一系列实体,将重复的实体删除,然后剩下的实体中间连起来

quanguang

楼上的回答看不懂

Saging

caiqs 发表于 2010-11-27 09:17
先从点取的点向各方向画一射线,比喻把360 度按精度10等分,每隔一度生成射线,求与射线相交且与所点取的点最近 ...

谢谢，有没有代码可以参考？
我之所以不用COMMAND就是因为调用CAD命令的速度比较慢，在AutoCAD里还可以，但用在中望CAD里根本就不能忍受这种速度。