[求助]：关于vla-put-Alignment

dxqyz

用VLA把一个文字添加到一个块定义中后，再用vla-put-Alignment修改文字齐属性。
问题：插入这个块后，发现vla-put-Alignment的修改并没有起做用，当把块炸开后，才会起作用。用了updtae也不行。请问怎样解决这个问题？

lsjjm

最好把你的程序贴出来让大家看看再说。

dxqyz

问题主要存在于对非激活文档的操上，可如下测：
同时新建两个文档 Drawing1、 Drawing2,
激活 Drawing1，执行
(setq docobj (vla-get-ActiveDocument (vlax-get-acad-object)))
(vl-propagate 'docobj);将变量复制到全部文档。
以临时获得一个文档对象，用于测试。
激活 Drawing2，执行
(setq mspace (vla-get-modelspace docobj))
(setq blk (vla-add (vla-get-Blocks docobj) (vlax-3d-point '(0 0 0)) "blk"))
(vla-addline blk (vlax-3d-point '(10 10 0)) (vlax-3d-point '(66 10 0)))
(vla-addline blk (vlax-3d-point '(66 10 0)) (vlax-3d-point '(66 20 0)))
(vla-addline blk (vlax-3d-point '(66 20 0)) (vlax-3d-point '(10 20 0)))
(vla-addline blk (vlax-3d-point '(10 20 0)) (vlax-3d-point '(10 10 0)))
(setq textobj (vla-addtext blk "HHHHHHHH" (vlax-3d-point '(10 10 0)) 10))
(vla-put-Alignment textobj acAlignmentMiddleCenter)
(vla-put-TextAlignmentPoint textobj (vlax-3d-point '(10 10 0)))
(vla-InsertBlock mspace (vlax-3d-point '(0 0 0)) "blk"  1 1 1 0)
激活 Drawing1,炸开刚插入的块，就会发现文字的对齐方式改变。

如果是单档操作则不会有题。

LUCAS

2. 
   
3. ;;把text的性質再看一遍吧!
   
4. (defun C:TT ()
   
5.   (setq MSPACE (vla-get-modelspace DOCOBJ))
   
6.   (setq        BLK (vla-add (vla-get-blocks DOCOBJ)
   
7.                      (vlax-3d-point '(0 0 0))
   
8.                      "blk"
   
9.             )
   
10.   )
    
11.   (vla-addline
    
12.     BLK
    
13.     (vlax-3d-point '(10 10 0))
    
14.     (vlax-3d-point '(66 10 0))
    
15.   )
    
16.   (vla-addline
    
17.     BLK
    
18.     (vlax-3d-point '(66 10 0))
    
19.     (vlax-3d-point '(66 20 0))
    
20.   )
    
21.   (vla-addline
    
22.     BLK
    
23.     (vlax-3d-point '(66 20 0))
    
24.     (vlax-3d-point '(10 20 0))
    
25.   )
    
26.   (vla-addline
    
27.     BLK
    
28.     (vlax-3d-point '(10 20 0))
    
29.     (vlax-3d-point '(10 10 0))
    
30.   )
    
31.   (setq
    
32.     TEXTOBJ (vla-addtext BLK "HHHHHHHH" (vlax-3d-point '(10 10 0)) 10)
    
33.   )
    
34.   (vla-put-alignment TEXTOBJ acalignmentmiddlecenter)
    
35. 
    
36.   (vla-put-textalignmentpoint
    
37.     TEXTOBJ
    
38.     (vlax-3d-point '(50 15 0))
    
39.   )
    
40.   (vla-insertblock
    
41.     MSPACE
    
42.     (vlax-3d-point '(0 0 0))
    
43.     "blk"
    
44.     1
    
45.     1
    
46.     1
    
47.     0
    
48.   )
    
49. )
    
50. ;;激活 Drawing1,炸開剛插入的塊，就會發現文字的對齊方式改變。
    

<br /> ;;把text的性質再看一遍吧!<br /> (defun C:TT ()<br />   (setq MSPACE (vla-get-modelspace DOCOBJ))<br />   (setq        BLK (vla-add (vla-get-blocks DOCOBJ)<br />                      (vlax-3d-point '(0 0 0))<br />                      "blk"<br />             )<br />   )<br />   (vla-addline<br />     BLK<br />     (vlax-3d-point '(10 10 0))<br />     (vlax-3d-point '(66 10 0))<br />   )<br />   (vla-addline<br />     BLK<br />     (vlax-3d-point '(66 10 0))<br />     (vlax-3d-point '(66 20 0))<br />   )<br />   (vla-addline<br />     BLK<br />     (vlax-3d-point '(66 20 0))<br />     (vlax-3d-point '(10 20 0))<br />   )<br />   (vla-addline<br />     BLK<br />     (vlax-3d-point '(10 20 0))<br />     (vlax-3d-point '(10 10 0))<br />   )<br />   (setq<br />     TEXTOBJ (vla-addtext BLK "HHHHHHHH" (vlax-3d-point '(10 10 0)) 10)<br />   )<br />   (vla-put-alignment TEXTOBJ acalignmentmiddlecenter)<br /> <br />   (vla-put-textalignmentpoint<br />     TEXTOBJ<br />     (vlax-3d-point '(50 15 0))<br />   )<br />   (vla-insertblock<br />     MSPACE<br />     (vlax-3d-point '(0 0 0))<br />     "blk"<br />     1<br />     1<br />     1<br />     0<br />   )<br /> )<br /> ;;激活 Drawing1,炸開剛插入的塊，就會發現文字的對齊方式改變。<br />

指定屬性、屬性參考、或文字的水平與垂直對齊。
信號
object.Alignment

object                Attribute、AttributeRef、Text這個性質適用的物件。
Alignment        acAlignment 列舉；讀/寫

                acAlignmentLeft
                acAlignmentCenter
                acAlignmentRight
                acAlignmentAligned
                acAlignmentMiddle
                acAlignmentFit
                acAlignmentTopLeft
                acAlignmentTopCenter
                acAlignmentTopRight
                acAlignmentMiddleLeft
                acAlignmentMiddleCenter
                acAlignmentMiddleRight
                acAlignmentBottomLeft
                acAlignmentBottomCenter
                acAlignmentBottomRight

說明
對齊到 acAlignmentLeft 的文字使用 InsertionPoint 性質來放置文字。
對齊到 acAlignmentAligned 或 acAlignmentFit的文字同時使用 InsertPoint 以及 TextAlignmentPoint 性質來放置文字。
對齊到其它任何位置的文字使用 TextAlignmentPoint 性質來方置文。



指定文字與屬性的對齊點。
信號
object.TextAlignmentPoint

object        Attribute、AttributeRef、Text這個性質適用的物件。
TextAlignmentPoint        變體（倍精度的三元素陣列）；讀/寫3D WCS 座標值，代表物件的對齊點。

說明
Text： 當 Alignment 性質設成 acAlignmentLeft 時，這個性質會重設成  0, 0, 0 而且變成唯讀。;
要放置對正方式為靠左、佈滿、或對齊的文字，請使用 InsertPoint 性質。

dxqyz

楼上说的已理解。
问题存在于同是上面一段程序，如果操作的文档对象DOCOBJ是当前激活的文档不会有问题，如果不是当前的激活文档，就不行了。

顺便也说一下DELETE，也是这样，如果操作的文档对象DOCOBJ是当前激活的文档不会有问题，如果不是当前的激活文档，就不行了。

LUCAS

最初由 dxqyz 发布
[B]楼上说的已理解。
问题存在于同是上面一段程序，如果操作的文档对象DOCOBJ是当前激活的文档不会有问题，如果不是当前的激活文档，就不行了。

顺便也说一下DELETE，也是这样，如果操作的文档对象DOCOBJ是当前激活... [/B]

再說清楚OR有代碼嗎?

dxqyz

代码:
(defun blk ( / )
  (setq mspace (vla-get-modelspace docobj))
  (setq blk (vla-add (vla-get-Blocks docobj) (vlax-3d-point '(0 0 0)) "blk"))
  (vla-addline blk (vlax-3d-point '(10 10 0)) (vlax-3d-point '(66 10 0)))
  (setq textobj (vla-addtext blk "HHHHHHHH" (vlax-3d-point '(10 10 0)) 10))
  (vla-put-Alignment textobj acAlignmentMiddleCenter)
  (vla-put-TextAlignmentPoint textobj (vlax-3d-point '(10 10 0)))
  (vla-InsertBlock mspace (vlax-3d-point '(0 0 0)) "blk" 1 1 1 0)
)
  (setq docobj (vla-get-ActiveDocument (vlax-get-acad-object)))
  (blk)
  (setq docobj (vla-add (vla-get-Documents (vlax-get-acad-object))))
  (blk)  ;;;新问题：此次调用BLK函数会出错，但如果把函数代码直接复制到这就不会有问题了。

执行上面代码后，对比当前文档和新建的文档会发现，
同样的代码在两个文档中的执行结果是不相同的。

aeo

(defun blk ( / )
(setq mspace (vla-get-modelspace docobj))
(setq blk ;;;这里blk给你重新定义了,第二遍执行当然不行了.
开一个新文档重新执行，肯定行!

至于不同，那可能是字型的关系.

dxqyz

最初由 aeo 发布
[B]
至于不同，那可能是字型的关系. [/B]

不会是字型吧，只是用了几个字母，同样的系统。