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

[求助]请大家帮忙,看一下这个程序怎么用不了?
www.dimcax.com
[求助]请大家帮忙,看一下这个程序怎么用不了?
请大家帮忙,看一下这个程序怎么用不了?急用,可就是运行不了.
(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)
)
d
看不懂你程序想干什么，说下你程序的意图？
d
我的程序意图是:按指定长段多段线来放线,因为无法控制直线长度,所以只能用相应长度的半径的园来求交点,点取画后多段线.
如附件图中,兰色的线是我要的目的线,长为l,与白色的线相交,我做程序的想法是用圆去与白色的线相交,再画兰色的线.
该文件为 autocad
d
按照楼主的意思
(command "_circle" pt 2)
应该是while的判断式
但是它总是返回nil
所以程序无法执行while循环
d