郁闷，属性块中的文字怎么会无故跑偏？

半听可乐

我做了个属性块，块中有个属性文字有时候不知道怎么回事会不在设定的位置上（刚开始都是好的，过段时间位置就变了），很苦恼，求大神解答一下！

附图01中图名位置正确，过段时间图名的位置就跑偏了，如附图02

vectra

字体问题吧，双击编辑一下就可以恢复， 有时重新打开图纸也会恢复

hao3ren

有可能是字体问题，很多时候有些问题没法解决重开cad又没问题

bai2000

希望大神们做个调整属性快位置的lisp

半听可乐

vectra 发表于 2014-12-7 14:50
字体问题吧，双击编辑一下就可以恢复， 有时重新打开图纸也会恢复

不是字体问题，同一台电脑啊，软件版本也是一样的，重开图和编辑文字都试过就是不行

半听可乐

hao3ren 发表于 2014-12-7 15:18
有可能是字体问题，很多时候有些问题没法解决重开cad又没问题

朋友，不是字体问题哦

zzc83

是块的问题，重开CAD再进入块编辑显示就没问题，直接不保存退出快编辑再保存图纸

半听可乐

zzc83 发表于 2014-12-7 22:52
是块的问题，重开CAD再进入块编辑显示就没问题，直接不保存退出快编辑再保存图纸

你说的方法我试过了，没用，不是块的问题，因为附图中的两个块明明就是同一个图块，怎么会不一样呢？

hao3ren

找到G版的，你试一下吧

hao3ren

2. 图块属性文字归位
   
3. 软件作者联系方式  Email: Gu_xl@sohu.com
   
4. --------------------------------------------------------------------------------
   
5. 
   
6. ;;;(gxl-blk-att2init ent) 图块属性还原归位
   
7. ;;;测试 (gxl-blk-att2init (car(entsel "\n选择图块")))
   
8. (defun gxl-blk-att2init        (ent               /             obj
   
9.                          inspt               Ownerobj             atts
   
10.                          objs               attinspt             rot
    
11.                          xscale               yscale             zscale
    
12.                          Alignment     Backward             ObliqueAngle
    
13.                          Rotation      TextAlignmentPoint
    
14.                          TextGenerationFlag             UpsideDown
    
15.                          TrueColor
    
16.                         )
    
17.   (if (= 'ename (type ent))
    
18.     (setq obj (vlax-ename->vla-object ent))
    
19.     (setq obj ent)
    
20.   )
    
21.   (setq        Ownerobj
    
22.          (vla-Item (vla-get-blocks
    
23.                      (vla-get-ActiveDocument (vlax-get-acad-object))
    
24.                    )
    
25.                    (vla-get-name obj)
    
26.          )
    
27.   )
    
28.   (vlax-for a Ownerobj
    
29.     (setq objs (cons a objs))
    
30.   )
    
31.   (setq objs (reverse objs))
    
32.   (setq        rot    (vla-get-Rotation obj)
    
33.         xscale (vla-get-XScaleFactor obj)
    
34.         yscale (vla-get-yScaleFactor obj)
    
35.         zscale (vla-get-zScaleFactor obj)
    
36.   )
    
37.   (vla-put-Rotation obj 0)
    
38.   (vla-put-XScaleFactor obj 1)
    
39.   (vla-put-yScaleFactor obj 1)
    
40.   (vla-put-zScaleFactor obj 1)
    
41.   (setq        atts  (vla-GetAttributes obj)
    
42.         atts  (safearray-value (vlax-variant-value atts))
    
43.         inspt (vlax-safearray->list
    
44.                 (vlax-variant-value (vla-get-InsertionPoint obj))
    
45.               )
    
46.   )
    
47.   (if atts
    
48.     (progn
    
49.       (foreach att atts
    
50.         (vl-some '(lambda (x)
    
51.                     (= (GXL-CATCHAPPLY
    
52.                          vla-get-TagString
    
53.                          (list (setq Ownerobj x))
    
54.                        )
    
55.                        (vla-get-TagString att)
    
56.                     )
    
57.                   )
    
58.                  objs
    
59.         )
    
60.         (setq attinspt (vlax-safearray->list
    
61.                          (vlax-variant-value
    
62.                            (vla-get-InsertionPoint Ownerobj)
    
63.                          )
    
64.                        )
    
65.         )
    
66.         (setq Alignment                 (vla-get-Alignment Ownerobj)
    
67.               Backward                 (vla-get-Backward Ownerobj)
    
68.               ObliqueAngle         (vla-get-ObliqueAngle Ownerobj)
    
69.               Rotation                 (vla-get-Rotation Ownerobj)
    
70.               TextAlignmentPoint (vla-get-TextAlignmentPoint Ownerobj)
    
71.               TextGenerationFlag (vla-get-TextGenerationFlag Ownerobj)
    
72.               UpsideDown         (vla-get-UpsideDown Ownerobj)
    
73.               TrueColor                 (vla-get-TrueColor Ownerobj)
    
74.         )
    
75. 
    
76.         (vla-put-Alignment att Alignment)
    
77.         (vla-put-Backward att Backward)
    
78.         (vla-put-ObliqueAngle att ObliqueAngle)
    
79.         (vla-put-Rotation att Rotation)
    
80.         (VL-CATCH-ALL-APPLY
    
81.           'vla-put-TextGenerationFlag
    
82.           (list att TextGenerationFlag)
    
83.         )
    
84.         (vla-put-Alignment att Alignment)
    
85.         (vla-put-UpsideDown att UpsideDown)
    
86.         (vla-put-TrueColor att TrueColor)
    
87.         (vla-put-TextAlignmentPoint
    
88.           att
    
89.           (vlax-3d-point
    
90.             (mapcar '+
    
91.                     inspt
    
92.                     (vlax-safearray->list
    
93.                       (vlax-variant-value TextAlignmentPoint)
    
94.                     )
    
95.             )
    
96.           )
    
97.         )
    
98.       )
    
99.       (vla-put-Rotation obj rot)
    
100.       (vla-put-XScaleFactor obj XScale)
     
101.       (vla-put-yScaleFactor obj yScale)
     
102.       (vla-put-zScaleFactor obj zScale)
     
103.     )
     
104.   )
     
105. )
     
106. ;;;属性复位 编制 Gu_xl 2011.05.15
     
107. (defun c:initatt ()
     
108.   (while (setq ss (ssget '((0 . "insert"))))
     
109.     (setq n (sslength ss))
     
110.     (repeat n
     
111.       (gxl-blk-att2init (ssname ss (setq n (1- n))))
     
112.     )
     
113.   )
     
114.   (princ)
     
115. )

图块属性文字归位<br /> 软件作者联系方式  Email: Gu_xl@sohu.com <br /> --------------------------------------------------------------------------------<br /> <br /> ;;;(gxl-blk-att2init ent) 图块属性还原归位<br /> ;;;测试 (gxl-blk-att2init (car(entsel "\n选择图块")))<br /> (defun gxl-blk-att2init        (ent               /             obj<br />                          inspt               Ownerobj             atts<br />                          objs               attinspt             rot<br />                          xscale               yscale             zscale<br />                          Alignment     Backward             ObliqueAngle<br />                          Rotation      TextAlignmentPoint<br />                          TextGenerationFlag             UpsideDown<br />                          TrueColor<br />                         )<br />   (if (= 'ename (type ent))<br />     (setq obj (vlax-ename->vla-object ent))<br />     (setq obj ent)<br />   )<br />   (setq        Ownerobj<br />          (vla-Item (vla-get-blocks<br />                      (vla-get-ActiveDocument (vlax-get-acad-object))<br />                    )<br />                    (vla-get-name obj)<br />          )<br />   )<br />   (vlax-for a Ownerobj<br />     (setq objs (cons a objs))<br />   )<br />   (setq objs (reverse objs))<br />   (setq        rot    (vla-get-Rotation obj)<br />         xscale (vla-get-XScaleFactor obj)<br />         yscale (vla-get-yScaleFactor obj)<br />         zscale (vla-get-zScaleFactor obj)<br />   )<br />   (vla-put-Rotation obj 0)<br />   (vla-put-XScaleFactor obj 1)<br />   (vla-put-yScaleFactor obj 1)<br />   (vla-put-zScaleFactor obj 1)<br />   (setq        atts  (vla-GetAttributes obj)<br />         atts  (safearray-value (vlax-variant-value atts))<br />         inspt (vlax-safearray->list<br />                 (vlax-variant-value (vla-get-InsertionPoint obj))<br />               )<br />   )<br />   (if atts<br />     (progn<br />       (foreach att atts<br />         (vl-some '(lambda (x)<br />                     (= (GXL-CATCHAPPLY<br />                          vla-get-TagString<br />                          (list (setq Ownerobj x))<br />                        )<br />                        (vla-get-TagString att)<br />                     )<br />                   )<br />                  objs<br />         )<br />         (setq attinspt (vlax-safearray->list<br />                          (vlax-variant-value<br />                            (vla-get-InsertionPoint Ownerobj)<br />                          )<br />                        )<br />         )<br />         (setq Alignment                 (vla-get-Alignment Ownerobj)<br />               Backward                 (vla-get-Backward Ownerobj)<br />               ObliqueAngle         (vla-get-ObliqueAngle Ownerobj)<br />               Rotation                 (vla-get-Rotation Ownerobj)<br />               TextAlignmentPoint (vla-get-TextAlignmentPoint Ownerobj)<br />               TextGenerationFlag (vla-get-TextGenerationFlag Ownerobj)<br />               UpsideDown         (vla-get-UpsideDown Ownerobj)<br />               TrueColor                 (vla-get-TrueColor Ownerobj)<br />         )<br /> <br />         (vla-put-Alignment att Alignment)<br />         (vla-put-Backward att Backward)<br />         (vla-put-ObliqueAngle att ObliqueAngle)<br />         (vla-put-Rotation att Rotation)<br />         (VL-CATCH-ALL-APPLY<br />           'vla-put-TextGenerationFlag<br />           (list att TextGenerationFlag)<br />         )<br />         (vla-put-Alignment att Alignment)<br />         (vla-put-UpsideDown att UpsideDown)<br />         (vla-put-TrueColor att TrueColor)<br />         (vla-put-TextAlignmentPoint<br />           att<br />           (vlax-3d-point<br />             (mapcar '+<br />                     inspt<br />                     (vlax-safearray->list<br />                       (vlax-variant-value TextAlignmentPoint)<br />                     )<br />             )<br />           )<br />         )<br />       )<br />       (vla-put-Rotation obj rot)<br />       (vla-put-XScaleFactor obj XScale)<br />       (vla-put-yScaleFactor obj yScale)<br />       (vla-put-zScaleFactor obj zScale)<br />     )<br />   )<br /> )<br /> ;;;属性复位 编制 Gu_xl 2011.05.15<br /> (defun c:initatt ()<br />   (while (setq ss (ssget '((0 . "insert"))))<br />     (setq n (sslength ss))<br />     (repeat n<br />       (gxl-blk-att2init (ssname ss (setq n (1- n))))<br />     )<br />   )<br />   (princ)<br /> )