求把不规则文字或数字对齐并居中到线段的lisp程序！求赐教

相信自己666

pxr201419 发表于 2020-3-20 06:27
已更新，这个是通用式的。当然，还是应你的需求写在下面
(defun c:tt(/ olddyn ss i ent type_e line po ...

厉害，厉害，高手啊，佩服，感谢

王鹏_pBZlo

pxr201419 发表于 2020-3-20 06:27
已更新，这个是通用式的。当然，还是应你的需求写在下面
(defun c:tt(/ olddyn ss i ent type_e line po ...

如果文字的对齐方式原先是对齐或调整,好像需要2次操作才能做到.

pxr201419

王鹏_pBZlo 发表于 2020-3-21 15:57
如果文字的对齐方式原先是对齐或调整,好像需要2次操作才能做到.

多谢王老师指点，应该把下面这两句换一下位置，先改对齐方式再改转角
(vlax-put (vlax-ename->vla-object text) 'Rotation ang0)
(vlax-put (vlax-ename->vla-object text) 'Alignment 4)

这两种对齐方式真有个性，Rotation是0，还不让修改
                 

王鹏_pBZlo

参考了PXR201419的程序, 不修改文字的对齐方式

(defun c:tt( / ss i stxt ent lin pend pmid qd ang osm txt entpar pt pt1)
        (defun field(fent / pmin pmax)
        (vla-getboundingbox (vlax-ename->vla-object fent) 'minpoint 'maxpoint)
        (setq pmax (vlax-safearray->list maxpoint) pmin (vlax-safearray->list minpoint))
        (list (list (car pmin) (cadr pmin)) (list (car pmax) (cadr pmax)))
        )
        (vl-load-com)
        (prompt "\n选择1根线和1-2个文字:")
        (while (and (setq ss (ssget (list (cons 0 "TEXT,*LINE,ARC"))))
                  (<= 2 (sslength ss) 3)
                   )
            (setq i -1 stxt (ssadd))
            (while (setq ent (ssname ss (setq i (1+ i))))
              (if (wcmatch (cdr (assoc 0 (entget ent))) "*LINE,ARC")
                (setq lin ent pend (vlax-curve-getendpoint lin)
                                pmid (vlax-curve-getpointatdist lin (/ (vlax-curve-getdistatpoint lin pend) 2))
                   qd (vlax-curve-getfirstderiv lin (vlax-curve-getParamAtPoint lin pmid))        )
                (ssadd ent stxt)
              )
           )
           (if (and lin pmid qd stxt)
              (progn        (setq ang (cond         ((< (car qd) 0) (angle qd (list 0 0)))
                                ((> (car qd) 0) (angle (list 0 0) qd))
                                (t (/ pi 2))))
                (setq osm (getvar "osmode"))
                (setvar "osmode" 0)
                (command "rotate" stxt "" "none" (trans pmid 0 1) (* -180 (/ ang pi)))
                (setq i -1)
                (while (setq txt (ssname stxt (setq i (1+ i))))
                        (setq entpar (entget txt))
                        (setq pt (field txt))
                        (setq pt (/ (+ (cadr (car pt)) (cadr (cadr pt))) 2))
                        (entmod (subst (cons 50 0) (assoc 50 entpar) entpar))
                        (setq pt1 (field txt))
                        (if (> pt (cadr pmid))
                                (command "move" txt ""
                                        (list (/ (+ (car (car pt1)) (car (cadr pt1))) 2) (cadr (car pt1)))
                                        (list (car pmid) (+ (cadr pmid) (/ (cdr (assoc 40 entpar)) 2)))
                                )
                                (command "move" txt ""
                                        (list (/ (+ (car (car pt1)) (car (cadr pt1))) 2) (cadr (cadr pt1)))
                                        (list (car pmid) (- (cadr pmid) (/ (cdr (assoc 40 entpar)) 2)))
                                )
                        )
                )
                (command "rotate" stxt "" (trans pmid 0 1) (* 180 (/ ang pi)))
                (setvar "osmode" osm)
              )
           )
           (prompt "\n选择1根线和1-2个文字:")
        )
        (princ)
)

王鹏_pBZlo

pxr201419 发表于 2020-3-21 16:30
多谢王老师指点，应该把下面这两句换一下位置，先改对齐方式再改转角
(vlax-put (vlax-ename->v ...

如果直线垂直可能会文字方向向右,即文字角度-90度

相信自己666

王鹏_pBZlo 发表于 2020-3-21 17:41
如果直线垂直可能会文字方向向右,即文字角度-90度

嗯是的，也可以的，谢谢，你们厉害了，向你们学习，感谢