[求助]请大家帮忙,看一下这个程序怎么用不了?

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)
  (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)
)

zj-ο○oοo

看不懂你程序想干什么，说下你程序的意图？

jiangzl

我的程序意图是:按指定长段多段线来放线,因为无法控制直线长度,所以只能用相应长度的半径的园来求交点,点取画后多段线.

如附件图中,兰色的线是我要的目的线,长为L,与白色的线相交,我做程序的想法是用圆去与白色的线相交,再画兰色的线.

kai295701917

按照楼主的意思

(command "_circle" pt 2)

应该是while的判断式

但是它总是返回nil

所以程序无法执行while循环