最好用的单字对齐插件

NEWMEN · 发表于 2017-12-15 00:00:07

看到gaics发的单字对齐插件，是我觉得最好用的，而且难得的是以基点对准，所以转发一下，感谢gaics提供。

小小改动，对齐将M正中改成C居中。

(defun c:tt (/ ss ent amode obj i ii p px jd jdx jdy)
(setvar "cmdecho" 0)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun getdxf (ent ii)
   (if (= (type ent) 'ename)
      (setq ent (entget ent))
   )
   (cdr (assoc ii ent))
)
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  (defun ch_dxf(en num ch / old_num new_num ent)
(if (setq ent (entget en)
         new_num (cons num ch)
         old_num (assoc num ent)
   )
   (entmod(subst new_num old_num ent))
   (entmod(reverse(cons new_num (reverse  ent))))
)
  )
  ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq ss (ssget '((0 . "TEXT"))))
(setq p (getpoint "选取点位置:"))
(initget "L M R")
(setq amode (getkword "\n选择对齐方式[左对齐(L)/对中(M)/右对齐(R)]<左对齐>:"))
(if (not amode)
(setq amode "L")
)
(setq px (car p))

(cond ((= amode "L")
   (setq ii 10)
   (command "justifytext" ss "" "L")
   )
   ((= amode "M")
   (setq ii 11)
   (command "justifytext" ss "" "C")
   )
         ((= amode "R")
   (setq ii 11)
   (command "justifytext" ss "" "R")
   )
)
(setq i 0)
(while (< i (sslength ss))
  (setq ent (ssname ss i))
(setq jd (getdxf ent ii))
(setq jdx (car jd)
      jdy (cadr jd)
)
(setq newjd (list px jdy))
   (apply '(lambda (x) (ch_dxf x ii newjd)) (list ent) )
  ;(vl-cmdf "_move" (ssname ss i) "" "non" jd "non" (list px jdy))
  (setq i (+ i 1))
)
(princ)
)

liunian0524 · 发表于 2017-12-18 08:29:54

本帖最后由 liunian0524 于 2017-12-18 08:32 编辑

收集的

注册 · 发表于 2018-1-2 08:15:43

命令: dq
选择对象: 指定对角点: 找到 2 个

选择对象:
选择对齐点：
命令: li LIST
选择对象: 找到 1 个

选择对象:
               TEXT    图层: PUB_TEXT
                        空间: 模型空间
               颜色: BYLAYER 线型: BYBLOCK
               句柄 = 14aa5c
            样式 = "_TCH_DYN"
            注释性: 否
         字体 = 宋体
            起点点， X=1025230.1469  Y=-1077169.8255  Z= 0.0000
            高度 55822.7848
            文字 250#  淡显
            旋转角度    0
            宽度比例因子 1.0000
            倾斜角度    0
            生成普通

命令:  LIST
选择对象: 找到 1 个

选择对象:
               TEXT    图层: PUB_TEXT
                        空间: 模型空间
               颜色: BYLAYER 线型: BYBLOCK
               句柄 = 14aa5b
            样式 = "_TCH_DYN"
            注释性: 否
         字体 = 宋体
            起点点， X=1513159.6395  Y=-1085233.1166  Z= 0.0000
            高度 55822.7848
            文字 A1  1:150
            旋转角度    0
            宽度比例因子 1.0000
            倾斜角度    0
            生成普通
下对齐，貌似没对齐，y坐标不一致

xyp1964 · 发表于 2017-12-15 12:34:34

(defun c:tt ()
(setq md (Ukword 1 "1 2 3" "1-左对齐/2-对中/3-右对齐" md))
(setq pt (getpoint "选取对齐位置点: "))
(princ "\n选择文本<退出>: ")
(while (setq ss (ssget '((0 . "TEXT"))))
(setq i -1)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq p1 (cond ((= md "1") (xyp-9pt s1 4))
((= md "2") (xyp-9pt s1 5))
((= md "3") (xyp-9pt s1 6))
)
s1 (xyp-move s1 p1 (list (car pt) (cadr p1)))
)
)
(princ "\n选择文本<退出>: ")
)
(princ)
)

panliang9 · 发表于 2017-12-15 11:40:45

感谢分享！

mikewolf2k · 发表于 2017-12-15 11:52:50

如果只是对齐，不用任何插件。批量选中了在特性框里修改对齐点坐标即可。

NEWMEN · 发表于 2017-12-16 22:08:16

mikewolf2k 发表于 2017-12-15 11:52
如果只是对齐，不用任何插件。批量选中了在特性框里修改对齐点坐标即可。

那还要慢慢数坐标，要是输入不对，那就飘很远去了

NEWMEN · 发表于 2017-12-16 22:11:34

xyp1964 发表于 2017-12-15 12:34

我的2014运行后出现：TT ; 错误: no function definition: UKWORD

love1030312 · 发表于 2017-12-17 19:45:04

你没穿内裤所以提示这个哈哈

穿上裤衩子就没问题了

zhangcan0515 · 发表于 2017-12-17 22:53:12

mikewolf2k 发表于 2017-12-15 11:52
如果只是对齐，不用任何插件。批量选中了在特性框里修改对齐点坐标即可。

厉害啊

NEWMEN · 发表于 2017-12-18 00:22:11

love1030312 发表于 2017-12-17 19:45
你没穿内裤所以提示这个哈哈穿上裤衩子就没问题了

啥意思啊，怎么弄呢？请教

账号		自动登录	找回密码
密码			注册

[源码] 最好用的单字对齐插件

本帖子中包含更多资源

本帖子中包含更多资源

点评