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

山河水

上次那个过圆外一点画切线的问题，兄弟自己已经解决，有愿意要lisp原程序共同研究的，请找我要。


又碰到一个新问题，虽然看起来简单，请高手认真实践后指点，不胜感激。


直接给圆标注半径的问题：在cad中有dimradius,如何正确利用这个命令。


先画一个圆，再用(command "dimradius" (entlast)),不知道为什么返回nil，干脆不认（entlast）,再次请高手指点。


注：要求lisp程序，不用对图面进行任何操作即可完成标注。

alin

(command "dimradius" (entlast))当然返回nil


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

citykunan

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

山河水

楼上的兄弟好帅，佩服。


不过我想在标注上加文字，不知道，能不能解决呢？？


如：（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

你说的别的标注能实现，真的可以？


command后面的参数要根据其命令的提示来输入参数的，不是你想怎么输入就怎么输入的。


你看dimradius命令，选择对象（也就是上面的(list (entlast) (polar '(0 0) (/ pi 4) 10)) 参数后，才是输入"M"或"t"，你在这个参数的中加入一些东西做什么？应该在它的后面输入才对

山河水

绝对可以实现，你可以试试dimaligned，我已经试出来了。


你说在后面加？？请告知完整写法，谢谢。

山河水

^_^，自己搞定了！多谢大家的帮助

meflying