[求助]在非世界坐标中插入文字出错了，求助高手，帮忙解决一下。

userzhl

真是郁闷,解决不了.

sailorcwx

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69115&replyID=&skin=1

ZZXXQQ

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

yoyoho

请再再试一下!

(defun c:qqqq_1()
   (if (not (tblsearch "layer" "cen"))
       (command "_.layer" "_new" "cen" "_color" "1" "cen" "_ltype" "center" "cen" "")
   )
   (command "layer" "s" "cen" "")
   (if (not (tblsearch "UCS" "NNN"))
       (command "ucs" "S" "NNN")
   )
   (command "ucs" "v")
(setq in (getpoint "\n 请选择文字位置:"))
(if in
  (if (> (cdr(assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))) 0)
   (command ".TEXT" in "" "插入文字测试")
   (command ".TEXT" in "5" "" "插入文字测试")
  )
)
(command "ucs" "R" "NNN")
(command "ucs" "D" "NNN")
(prin1)
)

userzhl

问题已搞定，非常感谢yoyoho、sailorcwx、ZZXXQQ以及各路高手的关注。