(求助)这个程序怎样才能正确运行

xlxieliang

说明：调用area命令计算个面积之合，然后把面积标注在指定位置。这个程序运行的问题是调用area命令后还没有点取点计算面积，就运行(setq tw (getstring "\请输入填挖类型:"))这一句及之后语句。请你指正，不胜感激。 (defun c:mj()
(vl-cmdf "area" "a")
(setq mj (getvar "area" ))
(princ)
(setq tw (getstring "\请输入填挖类型:"))
(while (= "" tw);;;;数值出错循环
(setq tw (getstring "\请输入填挖类型")))
(setq jd (getpoint "\n标注基点："));;;;;;;;;;;标注基点
(vl-cmdf "text" jd "2.5" "0" (strcat tw "=" (rtos mj 2 3) "m2"))
(princ)
)

f5612140

2. (defun c:mj()
3.      (SETQ EN (ENTSEL))
4.    (vl-cmdf "area" "O" EN)

(defun c:mj()      (SETQ EN (ENTSEL))    (vl-cmdf "area" "O" EN)

kaixin119

高手能否把这个程序生下级呢,让它标注的字号能随着CAD的文字类型自适应,现在只能用2.5

meflying

程序中的"2.5"改为""（就是两个双引号）

kaixin119

高,就是高,谢谢

kaixin119

当程序里的字号设了时,如果文字类型里的字号不是0,就会出错,还是去掉字号好,呵呵!!