不同坐标系下插入块的问题

cqnj023

在世界坐标系下做了一个带属性的块，用w写到支持目录下。在另一个文件中，坐标系为用户坐标系，具体为绕x轴旋转180°，再绕z轴旋转90°，现在，欲在该文件中插入刚才的块，其属性文字就成了象镜象文字。现在的问题是，要求不改变用户坐标系，（因其定义的坐标及方向是在插入块时要参考的。）怎么样解决文字反的问题。

alin

If all the attributes in the block have a        justification mode "MC", you can use the following routine...


       

cqnj023

谢谢，只是在属性定义不能保证都是中点对齐，有的用到了调整方式，反属性后，文字位置要跑，还有其它办法吗

alin

Now it        works for most case...

cqnj023

非常谢谢

无痕

在alin程序的基础上简化代码

2. (defun c:bw (/ atts InsPt AlignPt)
3.    (setq dolst   '(0 2 0 6 8 6 9 11 9 12 14 12)
4.                atts (vlax-safearray->list
5.                (vlax-variant-value
6.                      (vla-getattributes
7.                          (vlax-ename->vla-object
8.                              (car (entsel "\nSelect an attribute block: "))
9.          )))))
10.    (foreach att atts
11.        (print (vla-get-backward att))
12.        (if  (= (vla-get-backward att) :vlax-false)
13.                (vla-put-backward att :vlax-true)
14.                (vla-put-backward att :vlax-false)
15.        )
16.        (setq InsPt     (vla-get-InsertionPoint att)
17.      AlignPt (vla-get-TextAlignmentPoint att)
18.      altype   (vla-get-alignment att)
19.                    k             (member altype dolst))
20.        (cond
21.            ((= 0 (car k))
22.              (setq do 'vla-put-TextAlignmentPoint dopt inspt))
23.            ((= 2 (car k))
24.              (setq do 'vla-put-InsertionPoint dopt AlignPt))
25.            (T (setq do 'vla-put-TextAlignmentPoint dopt AlignPt))
26.        )
27.        (vla-put-alignment att (cadr k))
28.        ((eval do) att dopt)
29.    );foreach
30.    (princ)
31. )

(defun c:bw (/ atts InsPt AlignPt)    (setq dolst   '(0 2 0 6 8 6 9 11 9 12 14 12)                atts (vlax-safearray->list                (vlax-variant-value                      (vla-getattributes                          (vlax-ename->vla-object                              (car (entsel "\nSelect an attribute block: "))          )))))    (foreach att atts        (print (vla-get-backward att))        (if  (= (vla-get-backward att) :vlax-false)                (vla-put-backward att :vlax-true)                (vla-put-backward att :vlax-false)        )        (setq InsPt     (vla-get-InsertionPoint att)      AlignPt (vla-get-TextAlignmentPoint att)      altype   (vla-get-alignment att)                    k             (member altype dolst))        (cond            ((= 0 (car k))              (setq do 'vla-put-TextAlignmentPoint dopt inspt))            ((= 2 (car k))              (setq do 'vla-put-InsertionPoint dopt AlignPt))            (T (setq do 'vla-put-TextAlignmentPoint dopt AlignPt))        )        (vla-put-alignment att (cadr k))        ((eval do) att dopt)    );foreach    (princ) )