大家看一下这个程序 给点意见
(setq *activedocument* (vla-get-activedocument (vlax-get-acad-object)))(setq *layer* (vla-get-name (vla-get-activelayer *activedocument*))) ;输入文字前的图层
(defun c:test( / *activedocument* *layer* aa pt1 str str1)
(setq aa "\n")
(setq str1 "")
(vl-load-com)
(setvar "cmdecho" 0)
(command "layer" "m" "写文字层" "")
(vl-cmdf "-mtext" (setq pt1 (getpoint)) (getcorner pt1)(while (/= (setq str (getstring)) "") (setq str1 (strcat str1 str aa ))) "")
(command "layer" "m" *layer* "")
(setvar "cmdecho" 1)
(princ)
) (vl-load-com)应在vl***函数调用之前。不然首次使用可能会出现错误。
根据你的程序应放在第一行。
其次获得当前图层可以用(setq oldlay(getvar "clayer"))获得当前图层
用(setvar "clayer" "写文字层")设置当前图层
用(setvar "clayer" oldlay)恢复原来的当前图层
edata 发表于 2014-1-24 00:29 static/image/common/back.gif
(vl-load-com)应在vl***函数调用之前。不然首次使用可能会出现错误。
根据你的程序应放在第一行。
其次获 ...
赞。。。。 这方法可行。。。
页:
[1]