[求助]自动绘制门的lisp程序，先谢谢各位大侠

sunxc

我是一新手，初来希望各位大侠能伸出援助之手，帮一帮在下。在下不胜感激。

谢谢各位大侠！！！！！！！！！！！！！！

zml84

代码太多，传不上来，请到：http://zml84.blog.sohu.com/45702719.html

绘制单双门.LSP

sunxc

非常感谢!!!!!!!

真是"及时雨"呀!!!!!!!!

天龙八部

LISP不太容易控制参数，做一个门啊！很简单啊！输入,LENGTH,WIDTH,HEIGHT ,TYPE,COUNT,等等！.....

sub autodoor()

dim xxx1 as double

dim xx2 as double,xx2 as double

xxx1=thisdrawing.utility.getinteger("len:")

'同理xx2.........

xx3...............

’then

dim (0 to 9) as acadlwpolyline '

dim(0)=变量的值

........

.......

.............

'然后用轻多段线生成就OK了

'弧用ARC

'判断ANGLE,用utility.angle...

'不规格线条用acadspline

end sub