[LISP函数]：表格文字居中程序

86878897

可以让CAD里表格中的文字自动居中，不需要特别的表格，CAD的直线组成的表格就可以！

leeyuan

[php](vl-load-com)
(defun c:JZ (/ err)
  (defun algion        (msg        /      ss     lst    i            vlalst boxlst
                 x        cor1   cor2   findboxpt            newboxpt
                 en1        en     enlst  y             y2
                )
    (princ msg)
    (setq ss (ssget '((0 . "text"))))
    (setq lst nil)
    (setq i 0)
    (repeat (sslength ss)
      (setq lst (cons (ssname ss i) lst))
      (setq i (1+ i))
    )
    (setq vlalst (mapcar 'vlax-ename->vla-object lst))
    (setq boxlst (mapcar '(lambda (x / cor1 cor2)
                            (vla-GetBoundingBox x 'cor1 'cor2)
                            (list (vlax-safearray->list cor1)
                                  (vlax-safearray->list cor2)
                            )
                          )
                         vlalst
                 )
    )
    (setq
      findboxpt        (mapcar        '(lambda (x)
                           (polar (car x)
                                  (angle (car x) (cadr x))
                                  (/ (DISTANCE (car x) (cadr x)) 2.0)
                           )
                         )
                        boxlst
                )
    )
    (setq newboxpt (mapcar '(lambda (x)
                              (setq en1 (entlast))
                              (vl-cmdf "_boundary" x "")
                              (setq en (entlast))
                              (if (not (equal en1 en))
                                (progn
                                  (setq enlst (entget en))
                                  (setq        lst (vl-remove-if-not
                                              '(lambda (y) (= (car y) 10))
                                              enlst
                                            )
                                  )
                                  (setq        cor1 (vl-remove 10 (car lst))
                                        cor2 (vl-remove 10 (nth 2 lst))
                                  )
                                  (entdel en)
                                  (polar cor1
                                         (angle cor1 cor2)
                                         (/ (DISTANCE cor1 cor2) 2.0)
                                  )
                                )
                              )
                            )
                           findboxpt
                   )
    )
    (mapcar '(lambda (x y y2)
               (vla-move x (vlax-3d-point y) (vlax-3d-point y2))
             )
            vlalst
            findboxpt
            newboxpt
    )

  )
  (setq err (VL-CATCH-ALL-APPLY 'algion (list "\n选择单行文字: ")))
  (princ)
)[/php]

sfjlx

下载不下来啊！

leeyuan

楼主最好是直接帖代码，类似程序论坛里有很多。

lhj743

最好改进一下，
能够象excel一样，
左至右对齐！

phoenix521

这个功能实用

wangggll1234

真是太方便的工具。感謝分享

黄河之水

不知为什么，需要窗口调到一定的大小才行，否则无效

zxy9202

找这种程序好久了，解决了困惑我许久的问题。
更好的是还是源程序，感谢！！！

xyp1964

多重编辑

53321

CASS绘图是，在JMD图层，有“砖”、“砖3”、“砖2”等房屋标注，“砖”和后面的层数是分离的，如果只有“砖”，就居中，如果是“砖2”等，就不变。怎么解决？

henryziu

回复一下打个卡

qsxdcad

top198

我也想知道，怎么实现的

315025367