又有一个新问题，高手帮忙，不胜感激！

山河水 · 发表于 2004-2-18 16:03:00

上次那个过圆外一点画切线的问题，兄弟自己已经解决，有愿意要lisp原程序共同研究的，请找我要。
又碰到一个新问题，虽然看起来简单，请高手认真实践后指点，不胜感激。
直接给圆标注半径的问题：在cad中有dimradius,如何正确利用这个命令。
先画一个圆，再用(command "dimradius" (entlast)),不知道为什么返回nil，干脆不认（entlast）,再次请高手指点。
注：要求lisp程序，不用对图面进行任何操作即可完成标注。

alin · 发表于 2004-2-18 22:03:00

(command "dimradius" (entlast))当然返回nil
要在(entlast)后面给一个点才行,至于点的位置,则与你的要求和当前的标注式样有关.

citykunan · 发表于 2004-2-19 08:50:00

(defun c:sample ()
(command "circle" "0,0" 10 )
(command "dimradius" (list (entlast) (polar '(0 0) (/ pi 4) 10)) "")
)

山河水 · 发表于 2004-2-19 17:28:00

楼上的兄弟好帅，佩服。
不过我想在标注上加文字，不知道，能不能解决呢？？
如：（setq txt (strcat "Rx=" (rtos 10))）
(command "dimradius" (list (entlast)       "m" txt       (polar '(0 0) (/ pi 4) 10)) "")
(command "dimradius" (list (entlast)       m txt       (polar '(0 0) (/ pi 4) 10)) "")
(command "dimradius" (list (entlast)             "t" txt       (polar '(0 0) (/ pi 4) 10)) "")
(command "dimradius" (list (entlast)             t txt       (polar '(0 0) (/ pi 4) 10)) "")
都无法实现，而别的标注，比如，直线标注，却能实现，为什么啊？怎样才能让圆也实现？请高手再次指点，不胜感激！！！！

meflying · 发表于 2004-2-19 17:59:00

你说的别的标注能实现，真的可以？
command后面的参数要根据其命令的提示来输入参数的，不是你想怎么输入就怎么输入的。
你看dimradius命令，选择对象（也就是上面的(list (entlast) (polar '(0 0) (/ pi 4) 10)) 参数后，才是输入"M"或"t"，你在这个参数的中加入一些东西做什么？应该在它的后面输入才对