原程序共享并请各位修改！

wengsg

这是一个画钻孔的程序，如何让"ZK001"位置不与圆重贴在一起？最好是离圆心偏移一段距离。 (defun c:ZK ()
(setq base (getpoint "路线起点"))
(command "circle" base "1.5")
(command "DONUT" "0" "2" base "")
(command "circle" base "1")
(command "TEXT" "j" "ml" base "2.5" "0" "ZK001") ;;或用(command "TEXT" "j" "ml" base "2.5" "0" )文字让自己输
(princ)
)

f5612140

(defun c:ZK ()
(setq base (getpoint "路线起点"))
(command "circle" base "1.5")
(command "DONUT" "0" "2" base "")
(command "circle" base "1")
(setq base (mapcar '+ base '(2.0 0.0)))
(command "TEXT" "j" "ml" base "2.5" "0" "ZK001") ;;或用(command "TEXT" "j" "ml" base "2.5" "0" )文字让自己输
(princ)
)

wengsg

大功告成，谢谢f5612140朋友的帮助，现把完整的lisp与大家分享。 (defun c:ZK (/ base)
(setvar "osmode" 0)
(setq base (getpoint "选择钻孔位置"))
(command "style" "ST" "宋体" "" "" "" "" "");;设置ZK的文字样式。
(command "-layer" "s" "文字" "");;设置该图层为当前层，用户可选用。
(command "circle" base "1.5")
(command "DONUT" "0" "2" base "")
(command "circle" base "1")
(setq base (mapcar '+ base '(2.0 0.0)))
(command "text" "j" "ml" base "2.5" "0")
(princ)
)

wengsg

这个程序还有问题，不够稳定。有时候运行这个程序时不提示输入文字，而直接出现“0”？请高手帮忙。

meflying

是TEXT命令作怪，当文本类型中的字高是0时，TEXT命令会提示输入字高，如果文本类型中已经有了字高，就会略过这一项。。。所以这样你使用command是就造成了参数和提示不对应了。。。


另，你说的最后会提示输入文本，这是一种非正常的结束，就是说，程序已经结束了，但text命令并未结束（你最后一句改为(princ "aaa"))就可以看出来了，你应该在command 函数的最后加一个PAUSE


(COMMAND "TEXT" ... PAUSE)

wengsg

输入文字的时候怎么用lisp使它大写，写完后再自动返回。

f5612140

Command: (strcase "Sample")

"SAMPLE"

dqs007

用处不大