[LISP程序]：怎样编写拉件号的程序

yuun

在绘图中经常要拉件号,有单个的,有相连的,有横的有竖的.大致有8种情况,即左下横长连(短连),左下竖长连(短连),右下横长连(短连),右下竖长连(短连),左上横长连(短连),左上竖长连(短连),右上横长连(短连),右上竖长连(短连),

希望有程序能做到这点.比如只需要输入
(setq p1(getpoint "\n 起始点"))
(setq p2(getpoint "\n 第二点"))
(setq nn(getint "\n 连件的数量(默认为1)"))
(setq n1(getINT "\n 输入起始序号: "))
(setq pp(gerpoint "\n 选择拉件号的方向"))
然后程序能自动画出来.

要怎么做到呢????
求高手指点,提示,谢谢谢谢谢谢
(顺便问一句怎么做循环套循环,判断套判断)

fsxm

将你要求的拉件号样子发个图上来看看有没有人帮忙啦~
你只说我们也不知道你要的是什么样的东东