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

ferious

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

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打开，好像可行

附图