修改属性文字平齐用户坐标系...

ll_j

这种题目可以作研究，实际上可能并不太实用，原因就是没有旋转块，就本例而言，块本是椭圆，文字旋转后并不算很美观，况且如果是矩形或直线又该怎样。
我是道桥的，在桥位平面图中经常会出现圈中数字代表墩台编号，但在倾斜时并不要求转正，相反，如果转正了，反而会觉得不协调。

XDSoft

ll_j 发表于 2013-4-23 10:01

                               
登录/注册后可看大图

个人以为，正解应该是求出属性文字的中心，然后不改变文字的对齐方式，旋转一个角度。
由插入点算出文字中 ...

确实，灵活使用包围盒可以免去很多“麻烦”，我们毕竟是要的是结果。

很多“对齐”类的工具都要使用好“包围盒”。

还有啥要点，LL_J在说说啊，出这个题毕竟不是仅仅看到贴出来的程序，而是其中包含的算法和分析。

xyp1964

[pcode=lisp,true]
;; xyp-9Pt 实体或选择集9点坐标 (xyp-9Pt ename site)
(defun xyp-9Pt (ename site / MinPT MaxPT p1 p9 p5 p3 p7 p2 p4 p6 p8)
  (defun mid (p1 p2)(mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))
  (setq ename (cond ((= (type ename) 'ENAME) (vlax-ename->vla-object ename))
         ((= (type ename) 'VLA-OBJECT) ename)))
  (vla-getboundingbox ename 'MinPT 'MaxPT)
  (setq p1 (vlax-safearray->list MinPT)
        p9 (vlax-safearray->list MaxPT)
        p5 (mid p1 p9)
        p3 (if (< (car p9) (car p1))
             (list (car p1) (cadr p9) (caddr p1))
             (list (car p9) (cadr p1) (caddr p1))
           )
        p7 (if (< (car p9) (car p1))
             (list (car p9) (cadr p1) (caddr p9))
             (list (car p1) (cadr p9) (caddr p9))
           )
        p2 (mid p1 p3)
        p4 (mid p1 p7)
        p6 (mid p3 p9)
        p8 (mid p7 p9)
  )
  (nth (- site 1) (list p1 p2 p3 p4 p5 p6 p7 p8 p9))
)
[/pcode]

Lispboy

ll_j 发表于 2013-4-22 18:41

                               
登录/注册后可看大图

这是ExpressTools的函数，这个函数是修改文本对齐点的。
我所说的“霸道”，就是把不管什么对齐方式的属 ...

谢谢大哥耐心指点~

adolfken

的确在写程序的时候能很方便哦,好好学习下