为什么我在布局空间用vla-addtext插入的文字都跑到了原点？？？

weilu

试着编了一个布局空间输入页码的一个小程序，有几个问题
1：我想选择TEXT或MTEXT类型的，这个“或”的意思在vlisp里怎么实现？
2：文字是能写到布局空间，但是一直在原点，不在我想要的位置，怎么回事？

怎么没人来呢，求指导！~~~

代码如下：

2. (defun C:BJKJ()
   
3.   (vl-load-com)
   
4.   (setvar "cmdecho" 0)
   
5.   (setvar "osmode" 0)
   
6.   (setq AcadObj (vlax-get-acad-object))
   
7.   (setq AcadDoc (vla-get-ActiveDocument AcadObj))
   
8.   (setq mSpace (vla-get-ModelSpace AcadDoc))
   
9.   (setq pSpace (vla-get-PaperSpace AcadDoc))
   
10.   (setq layouts (vla-get-layouts AcadDoc))
    
11.   (setq prefix "U-" num 0);;;前缀
    
12.   (vlax-for layout layouts
    
13.     (if (/= "Model" (vla-get-name layout))
    
14.       (progn  (vla-put-name layout (strcat prefix (itoa (1+ num))))
    
15.               (setq block (vla-get-block layout))
    
16.               (setq setObj (vla-add (vla-get-SelectionSets AcadDoc) "SSET"));;;建立选择集
    
17.             (setq pt1 (vlax-3D-point (list 378 287 0))  pt2 (vlax-3D-point (list 382 280 0)))
    
18.         (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))
    
19.         (vlax-safearray-fill gpCode (list 0))
    
20.         (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))
    
21.         (vlax-safearray-fill dataValue (list "TEXT"))
    
22.         (setq mode acSelectionSetCrossing)
    
23.         (vla-Select setObj mode pt1 pt2 gpCode dataValue)
    
24.         (if (eq setObj :vlax-true) (vla-Erase setObj) );;;若存在文字则删之
    
25.         (setq pt (vlax-3D-point (list 380 283.5 0)))
    
26.         (setq textObj (vla-AddText block (itoa (1+ num)) pt 3.0));;;输入文字
    
27.         (vla-put-Alignment textObj acAlignmentMiddleCenter)
    
28.         (vla-put-Layer textObj "文本")
    
29.               (vla-put-Color textObj acRed)
    
30.               (vla-put-LineType textObj "Continuous")
    
31.             (setq num (1+ num))
    
32.         (vla-Delete setObj)
    
33.     ))   );;;~vlax-for
    
34. (princ)
    
35. )

(defun C:BJKJ()<br />   (vl-load-com)<br />   (setvar "cmdecho" 0)<br />   (setvar "osmode" 0)<br />   (setq AcadObj (vlax-get-acad-object))<br />   (setq AcadDoc (vla-get-ActiveDocument AcadObj))<br />   (setq mSpace (vla-get-ModelSpace AcadDoc))<br />   (setq pSpace (vla-get-PaperSpace AcadDoc))<br />   (setq layouts (vla-get-layouts AcadDoc))<br />   (setq prefix "U-" num 0);;;前缀<br />   (vlax-for layout layouts<br />     (if (/= "Model" (vla-get-name layout))<br />       (progn  (vla-put-name layout (strcat prefix (itoa (1+ num))))<br />               (setq block (vla-get-block layout))<br />               (setq setObj (vla-add (vla-get-SelectionSets AcadDoc) "SSET"));;;建立选择集<br />             (setq pt1 (vlax-3D-point (list 378 287 0))  pt2 (vlax-3D-point (list 382 280 0)))<br />         (setq gpCode (vlax-make-safearray vlax-vbInteger '(0 . 0)))<br />         (vlax-safearray-fill gpCode (list 0))<br />         (setq dataValue (vlax-make-safearray vlax-vbVariant '(0 . 0)))<br />         (vlax-safearray-fill dataValue (list "TEXT"))<br />         (setq mode acSelectionSetCrossing)<br />         (vla-Select setObj mode pt1 pt2 gpCode dataValue)<br />         (if (eq setObj :vlax-true) (vla-Erase setObj) );;;若存在文字则删之<br />         (setq pt (vlax-3D-point (list 380 283.5 0)))<br />         (setq textObj (vla-AddText block (itoa (1+ num)) pt 3.0));;;输入文字<br />         (vla-put-Alignment textObj acAlignmentMiddleCenter)<br />         (vla-put-Layer textObj "文本")<br />               (vla-put-Color textObj acRed)<br />               (vla-put-LineType textObj "Continuous")<br />             (setq num (1+ num))<br />         (vla-Delete setObj)<br />     ))   );;;~vlax-for<br /> (princ)<br /> )

weilu

第一次编写布局空间的程序，什么都不太懂，大家指导指导！