大家看一下这个程序 给点意见

564837358@qq.co

(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)
)

edata

(vl-load-com)应在vl***函数调用之前。不然首次使用可能会出现错误。
根据你的程序应放在第一行。
其次获得当前图层可以用(setq oldlay(getvar "clayer"))获得当前图层
用(setvar "clayer" "写文字层")设置当前图层
用(setvar "clayer" oldlay)恢复原来的当前图层

564837358@qq.co

edata 发表于 2014-1-24 00:29
(vl-load-com)应在vl***函数调用之前。不然首次使用可能会出现错误。
根据你的程序应放在第一行。
其次获 ...

赞  。。。。 这方法可行。。。