xjjy 发表于 2004-9-27 16:58:00

[讨论]问题在那里？

定角度划线：


问题在哪里？


(defun C:anL(/ e1 pt ang)<BR>       (setq ang (getangle "\n:请输入角度值:"))<BR>       (setq pt (getpoint "\nPick start point: ")) <BR>       (command "line" pt "&lt;"ang)<BR>)

meflying 发表于 2004-9-27 17:12:00

"&lt;"ang


这样的结果是:(假设输入20度)


Command: line<BR>Specify first point:<BR>Specify next point or : &lt;<BR>Point or option keyword required.<BR>Specify next point or : 20<BR>Specify next point or :


你必须这样:


(defun C:anL(/ e1 pt ang)<BR>       (setq ang (getangle "\n:请输入角度值:"))<BR>       (setq pt (getpoint "\nPick start point: ")) <BR>       (command "line" pt (strcat "&lt;" (angtos ang)) ...);后面还得给一点或距离,再回车才算完整<BR>)

zhang007 发表于 2004-9-27 17:17:00

注意LINE后的参数,如果是相对坐标,要用相对坐标的格式,最后还要加双引号.

f5612140 发表于 2004-9-27 17:18:00

替楼主完善一下


(defun C:anL(/ e1 pt ang)<BR>       (setvar "orthomode" 0) <BR>       (setq ang (getangle "\n:输入角度值:"))<BR>       (setq pt (getpoint "\nPick start point: "))<BR>       (setq dst (getdist pt "\n:输入长度值:"))<BR>       (command "line" pt (strcat "@" (rtos dst) "&lt;" (angtos ang)) "")<BR>)

meflying 发表于 2004-9-27 17:22:00

好象不需要关掉正交吧

f5612140 发表于 2004-9-27 17:32:00

meflying发表于2004-9-27 17:22:00static/image/common/back.gif好象不需要关掉正交吧

哈哈,的确是"多此一举"

xjjy 发表于 2004-9-27 20:18:00

谢谢！


受益匪浅
页: [1]
查看完整版本: [讨论]问题在那里？