只需一步,快速开始
请大家帮忙,看一下这个程序怎么用不了?急用,可就是运行不了.
(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))
使用道具 举报
我的程序意图是:按指定长段多段线来放线,因为无法控制直线长度,所以只能用相应长度的半径的园来求交点,点取画后多段线.
如附件图中,兰色的线是我要的目的线,长为L,与白色的线相交,我做程序的想法是用圆去与白色的线相交,再画兰色的线.
您需要 登录 才可以下载或查看,没有账号?注册
按照楼主的意思
(command "_circle" pt 2)
应该是while的判断式
但是它总是返回nil
所以程序无法执行while循环
本版积分规则 发表回复 回帖后跳转到最后一页
小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 ) ©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途
GMT+8, 2024-9-23 02:11 , Processed in 0.840707 second(s), 27 queries , Gzip On.
Powered by Discuz! X3.4
Copyright © 2001-2021, Tencent Cloud.