请高手指点程序，谢谢

jiangzl

请高手帮忙,看一下这个程序哪里存在问题，怎么改进呀？请帮忙修改一下，谢谢。:程序目的是指定一起点和长度，点该指定长度与多段线的交点来画多段线。我的想法是指定起点后，用指定长度作一圆，求圆与已知多段线的交点，再来拾起交点画多段线：

(defun c:tt(/ oldorth oldosmo oldcmd pt ss)
  (setq oldorth(getvar "orthomode")
 oldosmo(getvar "osmode")
 oldcmd (getvar "cmdecho"))
  (setvar "Orthomode" 0)
  (setvar "osmode" 33)
  (setvar "cmdecho" 0)
  (setq pt(getpoint "\n Selection start point:"));;;;;;;;指定起点
  (command "pline" pt);;;;运行pline命令
  (while
    (command "_circle" pt 2)   ;;;;;作圆
    (setq ss(entget))
    (setvar "osmode" 32) ;设置为交点捕捉,求圆与直线的交点

    (setq pt(getpoint pt "\n Selection point:"));;;拾起交点坐标
    (command "_erase" ss "");;;删除辅助的圆
    (command pt)    
    )
  (command "")
 
  (setvar "orthomde" oldorth)
  (setvar "osmode" oldosmo)
  (setvar "cmdecho" oldcmd)
  (print)
)