[求助]请教高手，如何能把属性块中的文字（其对齐方式为调整）与当前坐标对齐？

userzhl

请教高手，如何用LSP能把属性块中的文字（其对齐方式为调整）与当前坐标对齐？

ET工具中就有这样一个功能：TORIENT，但调整不了对齐方式为“调整”的字。

 

userzhl

附上文件：

mmmmmm

3. ;;; ATT=ATTRIB ENAME
4. (Defun align-att-ucs (att / D10 D11 LL NEW OLD UR X11)
5.   (vla-getboundingbox (vlax-ename->vla-object att) 'll 'ur)
6.   (setq d10 (cdr (assoc 10 (entget att)))
7. d11 (cdr (assoc 11 (entget att)))
8. ll  (vlax-safearray->list ll)
9. ur  (vlax-safearray->list ur)
10. old (vlax-3d-point
11.        (polar ll (angle ll ur) (* 0.5 (distance ll ur)))
12.      )
13. x11 (polar d10
14.      (angle (getvar "UCSORG") (getvar "UCSXDIR"))
15.      (distance d10 d11)
16.      )
17. att (entget att)
18. att (subst (cons 11 x11) (assoc 11 att) att)
19. att (entmod att)
20. att (vlax-ename->vla-object (cdr (assoc -1 att)))
21. x11 (vla-getboundingbox att 'll 'ur)
22. ll  (vlax-safearray->list ll)
23. ur  (vlax-safearray->list ur)
24. new (vlax-3d-point
25.        (polar ll (angle ll ur) (* 0.5 (distance ll ur)))
26.      )
27. att (vla-move att new old)
28.   )
29.   (princ)
30. )

;;; ATT=ATTRIB ENAME (Defun align-att-ucs (att / D10 D11 LL NEW OLD UR X11)   (vla-getboundingbox (vlax-ename->vla-object att) 'll 'ur)   (setq d10 (cdr (assoc 10 (entget att))) d11 (cdr (assoc 11 (entget att))) ll  (vlax-safearray->list ll) ur  (vlax-safearray->list ur) old (vlax-3d-point        (polar ll (angle ll ur) (* 0.5 (distance ll ur)))      ) x11 (polar d10      (angle (getvar "UCSORG") (getvar "UCSXDIR"))      (distance d10 d11)      ) att (entget att) att (subst (cons 11 x11) (assoc 11 att) att) att (entmod att) att (vlax-ename->vla-object (cdr (assoc -1 att))) x11 (vla-getboundingbox att 'll 'ur) ll  (vlax-safearray->list ll) ur  (vlax-safearray->list ur) new (vlax-3d-point        (polar ll (angle ll ur) (* 0.5 (distance ll ur)))      ) att (vla-move att new old)   )   (princ) )

userzhl

( align-att-ucs "aabb");

mmmmmm大哥，我对图中块名为"aabb"进行修改，怎么出错了呢？

错误: 参数类型错误: lentityp
"aabb"

mmmmmm

1：参数是属性实体，不是块的名字。

2：只对调整对齐的属性有效，其他的对齐类型会出错。

我写的仅是针对处理对齐属性的代码。你需要自己去完善其他的如搜索块内属性和判断对齐是否为调整等代码。

userzhl

哦，谢谢mmmmmm

qazwsx0o0

学习了，感谢楼上的高手!