属性块文字跑位问题2020版本

ferious

属性块文字跑位问题2020版本
附件求解

llsheng_73

ferious 发表于 2024-2-24 10:51
问题来源：是这样的，打开2020文件，无移动操作，该属性块文字不显示，故而发布打印无法显示。
问题解决 ...

如果显示没问题只是位置跑偏，原位移动就可以解决，MOVE  0,0  0,0
如果是后台生成的，由于无法准确计算对齐点，可以先在一个临时块内生成后再复制到目标空间就不会产生跑偏的问题也无需计算对齐点坐标
如果直接不显示需要换字体

hao3ren

2. ;;;(gxl-blk-att2init ent) 图块属性还原归位
   
3. ;测试 (gxl-blk-att2init (car(entsel "\n选择图块")))
   
4. (defun gxl-blk-att2init (ent /     obj   inspt
   
5.         Ownerobj    atts   objs
   
6.         attinspt    rot   xscale
   
7.         yscale    zscale  Alignment
   
8.         Backward    ObliqueAngle  Rotation
   
9.         TextAlignmentPoint
   
10.         TextGenerationFlag   UpsideDown
    
11.         TrueColor
    
12.        )
    
13.   (if (= 'ename (type ent))
    
14.     (setq obj (vlax-ename->vla-object ent))
    
15.     (setq obj ent)
    
16.     )
    
17.   (setq Ownerobj (vla-Item (vla-get-blocks (vla-get-ActiveDocument(vlax-get-acad-object))) (vla-get-name obj)))
    
18.   (vlax-for a Ownerobj
    
19.     (setq objs (cons a objs))
    
20.     )
    
21.   (setq objs (reverse objs))
    
22.   (setq rot (vla-get-Rotation obj)
    
23. xscale (vla-get-XScaleFactor obj)
    
24. yscale (vla-get-yScaleFactor obj)
    
25. zscale (vla-get-zScaleFactor obj)
    
26. )
    
27.   (vla-put-Rotation obj 0)
    
28.   (vla-put-XScaleFactor obj 1)
    
29.   (vla-put-yScaleFactor obj 1)
    
30.   (vla-put-zScaleFactor obj 1)
    
31.   (setq atts (vla-GetAttributes obj)
    
32. atts (safearray-value(vlax-variant-value atts))
    
33. inspt (vlax-safearray->list(vlax-variant-value (vla-get-InsertionPoint obj)))
    
34. )
    
35.   (if atts
    
36.     (progn
    
37.       (foreach att atts
    
38. (vl-some '(lambda (x) (= (GXL-CATCHAPPLY vla-get-TagString (list (setq Ownerobj x))) (vla-get-TagString att)))  objs)
    
39. (setq attinspt (vlax-safearray->list (vlax-variant-value(vla-get-InsertionPoint Ownerobj))))
    
40. (setq Alignment (vla-get-Alignment Ownerobj)
    
41.        Backward (vla-get-Backward Ownerobj)
    
42.        ObliqueAngle (vla-get-ObliqueAngle Ownerobj)
    
43.        Rotation (vla-get-Rotation Ownerobj)
    
44.        TextAlignmentPoint (vla-get-TextAlignmentPoint Ownerobj)
    
45.        TextGenerationFlag (vla-get-TextGenerationFlag Ownerobj)
    
46.        UpsideDown(vla-get-UpsideDown Ownerobj)
    
47.        TrueColor (vla-get-TrueColor Ownerobj)
    
48.        )
    
49. 
    
50.       (vla-put-Alignment att Alignment)
    
51.       (vla-put-Backward att Backward)
    
52.       (vla-put-ObliqueAngle att ObliqueAngle)
    
53.       (vla-put-Rotation att Rotation)
    
54.       (VL-CATCH-ALL-APPLY 'vla-put-TextGenerationFlag (list att TextGenerationFlag))
    
55.       (vla-put-Alignment att Alignment)
    
56.       (vla-put-UpsideDown att UpsideDown)
    
57.       (vla-put-TrueColor att TrueColor)
    
58.       (VL-CATCH-ALL-APPLY ‘vla-put-TextAlignmentPoint (list att (vlax-3d-point (mapcar '+ inspt (vlax-safearray->list (vlax-variant-value TextAlignmentPoint))))))
    
59.       )
    
60.       (vla-put-Rotation obj rot)
    
61.       (vla-put-XScaleFactor obj XScale)
    
62.       (vla-put-yScaleFactor obj yScale)
    
63.       (vla-put-zScaleFactor obj zScale)
    
64.       )
    
65.     )
    
66.   )
    
67. (defun gxl-CatchApply (fun args / rtn )
    
68.   (if
    
69.     (not
    
70.       (vl-catch-all-error-p
    
71.         (setq rtn
    
72.           (vl-catch-all-apply (function fun) args)
    
73.         )
    
74.       )
    
75.     )
    
76.     rtn
    
77.   )
    
78. )
    
79. ;;;属性复位 编制 Gu_xl 2011.05.15
    
80. (defun c:initatt ()
    
81.   (while (setq ss (ssget '((0 . "insert"))))
    
82.     (setq n (sslength ss))
    
83.     (repeat n
    
84.       (gxl-blk-att2init (ssname ss (setq n (1- n))))
    
85.       )
    
86.     )
    
87.   (princ)
    
88.   )
    

;;;(gxl-blk-att2init ent) 图块属性还原归位<br /> ;测试 (gxl-blk-att2init (car(entsel "\n选择图块")))<br /> (defun gxl-blk-att2init (ent /     obj   inspt<br />         Ownerobj    atts   objs<br />         attinspt    rot   xscale<br />         yscale    zscale  Alignment<br />         Backward    ObliqueAngle  Rotation<br />         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 (vla-Item (vla-get-blocks (vla-get-ActiveDocument(vlax-get-acad-object))) (vla-get-name obj)))<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(vlax-variant-value (vla-get-InsertionPoint obj)))<br /> )<br />   (if atts<br />     (progn<br />       (foreach att atts<br /> (vl-some '(lambda (x) (= (GXL-CATCHAPPLY vla-get-TagString (list (setq Ownerobj x))) (vla-get-TagString att)))  objs)<br /> (setq attinspt (vlax-safearray->list (vlax-variant-value(vla-get-InsertionPoint Ownerobj))))<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 'vla-put-TextGenerationFlag (list att TextGenerationFlag))<br />       (vla-put-Alignment att Alignment)<br />       (vla-put-UpsideDown att UpsideDown)<br />       (vla-put-TrueColor att TrueColor)<br />       (VL-CATCH-ALL-APPLY ‘vla-put-TextAlignmentPoint (list att (vlax-3d-point (mapcar '+ inspt (vlax-safearray->list (vlax-variant-value TextAlignmentPoint))))))<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 /> (defun gxl-CatchApply (fun args / rtn )<br />   (if<br />     (not<br />       (vl-catch-all-error-p<br />         (setq rtn<br />           (vl-catch-all-apply (function fun) args)<br />         )<br />       )<br />     )<br />     rtn<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 />   )<br />

ferious

总结如下：

1，各种方案链接如下
    1.1 坛友，取之于明， http://bbs.mjtd.com/thread-189253-1-1.html    博客园 https://www.cnblogs.com/JJBox/p/10226119.html
    1.2  代码方案
    1.3 12代cpu问题
    1.4 几百年前的方案  都写了几百年了  https://www.cnblogs.com/JJBox/p/10226119.html
    1.5 其他或是字体问题？
2， 这种情况我用的是选择全部类似属性块，然后移动0.001后就可以，是否不需要代码？
如何解决发布打印时，保证文字不跑位问题？而不是打开之后，再用程序调整或者换字体解决？
3，感谢诸位，元宵节快乐！

ferious

属性块文字跑位问题2020版本
附件求解

Leolaputa

看了半天没看懂你什么东西跑了

aichong

【求助】CAD2023怎么经常文字会变，然后点击一下又恢复 - AutoCAD 2024 下载及新功能 - AutoCAD论坛 - 明经CAD社区 - Powered by Discuz!  http://bbs.mjtd.com/thread-189253-1-1.html

aichong

我用浩辰打开正常，不会变

aichong

我用浩辰打开正常，不会变的

ferious

有无定论，非人云亦云？

ferious

试了改字体，2020cad打开，好像可行

附图