[求助]：如何用ACTIVEX技术在CAD2000的模型空间写字？

肥肥小兔子

我是新来的，各位高手请多关照：）

因编程需要，我想用ACTIVEX技术在CAD2000的模型空间画一个圆，再写一串字符“ABC”（程序要写许多行字符），运行下列程序后，圆可以画出来，字符无论如何也写不出来。我对“ABC”的格式做了各种变化，包括使用变体，控制台的反映除了“函数错误”就是“ABC”没有定义。我手头的几本LISP的书所举的例子全是如何画圆的，没有一个如何写字符的例子。不知哪位熟悉LISP的高手可以帮我解决这个问题？本人万分感谢。
(vl-load-com)
(setq acadobject (vlax-get-acad-object))
(setq acaddocument (vla-get-activedocument acadobject))
(setq mspace (vla-get-modelspace acaddocument))
(setq mycircle (vla-addcircle mspace (vlax-3d-point'(160 60 0)) 10))
(setq mytext (vla-addtext mspace (“ABC”, vlax-3d-point'(180 160 0), 10)))


谢谢谢谢N次：）

LUCAS

2. 
   
3. (vl-load-com)
   
4. (defun C:ERER ()
   
5.   (setq ACADOBJECT (vlax-get-acad-object))
   
6.   (setq ACADDOCUMENT (vla-get-activedocument ACADOBJECT))
   
7.   (setq MSPACE (vla-get-modelspace ACADDOCUMENT))
   
8.   (setq MYCIRCLE (vla-addcircle MSPACE (vlax-3d-point '(160 60 0)) 10))
   
9.   (setq
   
10.     MYTEXT (vla-addtext MSPACE "ABC" (vlax-3d-point '(180 160 0)) 10)
    
11.   )
    
12. )
    

<br /> (vl-load-com)<br /> (defun C:ERER ()<br />   (setq ACADOBJECT (vlax-get-acad-object))<br />   (setq ACADDOCUMENT (vla-get-activedocument ACADOBJECT))<br />   (setq MSPACE (vla-get-modelspace ACADDOCUMENT))<br />   (setq MYCIRCLE (vla-addcircle MSPACE (vlax-3d-point '(160 60 0)) 10))<br />   (setq<br />     MYTEXT (vla-addtext MSPACE "ABC" (vlax-3d-point '(180 160 0)) 10)<br />   )<br /> )<br />

肥肥小兔子

非常非常感谢，鞠躬90度！！！！