设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]如何更改文字的对齐方式之后，不改变文字位置
12下一页
返回列表 发新帖
查看: 3982|回复: 10

[求助]如何更改文字的对齐方式之后，不改变文字位置

[复制链接]
carrot1983
发表于 2010-1-28 17:02:00 | 显示全部楼层 |阅读模式

如何更改文字的对齐方式之后，不改变文字位置

如何使用entmod实现命令: justifytext的效果

不使用command的情况下。

传上测试图形。

图形格式CAD2000

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
"觉得好，就打赏"
打赏
还没有人打赏，支持一下
回复

使用道具 举报

carrot1983
 楼主| 发表于 2010-1-28 17:06:00 | 显示全部楼层
我发现只是单单的用entmod 是不够的。。
或许还得用textbox计算点位，然后再重新定位文字位置。
  3. ;; Rev By carrot1983
  4. (defun C-Text-Justifytext (ENT MODE / ELIST V10 V11)
  5.   (defun Subst-elist (item elist)
  6.     (foreach x item
  7.       (setq elist (subst x (assoc (car x) elist) elist))
  8.     )
  9.   )
  10.   (cond ((= (type ent) 'ENAME)
  11.   (setq elist (entget ent))
  12. )
  13. ((= (type ent) 'LIST)
  14.   (setq elist ent)
  15. )
  16.   )
  17.   ;; 第一对齐点
  18.   (setq v10 (assoc 10 elist))
  19.   ;; 第二对齐点
  20.   (setq v11 (assoc 11 elist))
  21.   (entmod
  22.     (cond
  23.       ((= (strcase mode) "L")
  24.        (Subst-elist (list v10 (cons 72 0) (cons 73 0)) elist)
  25.       )
  26.       ((= (strcase mode) "A")
  27.        (Subst-elist
  28.   (list v10 v11 (cons 72 3) (cons 73 0))
  29.   elist
  30.        )
  31.       )
  32.       ((= (strcase mode) "F")
  33.        (Subst-elist
  34.   (list v10 v11 (cons 72 5) (cons 73 0))
  35.   elist
  36.        )
  37.       )
  38.       ((= (strcase mode) "M")
  39.        (Subst-elist (list v11 (cons 72 4) (cons 73 0)) elist)
  40.       )
  41.       ((= (strcase mode) "R")
  42.        (Subst-elist (list v11 (cons 72 2) (cons 73 0)) elist)
  43.       )
  44.       ((= (strcase mode) "C")
  45.        (Subst-elist (list v11 (cons 72 1) (cons 73 0)) elist)
  46.       )
  47.       ((= (strcase mode) "TL")
  48.        (Subst-elist (list v11 (cons 72 0) (cons 73 3)) elist)
  49.       )
  50.       ((= (strcase mode) "TC")
  51.        (Subst-elist (list v11 (cons 72 1) (cons 73 3)) elist)
  52.       )
  53.       ((= (strcase mode) "TR")
  54.        (Subst-elist (list v11 (cons 72 2) (cons 73 3)) elist)
  55.       )
  56.       ((= (strcase mode) "ML")
  57.        (Subst-elist (list v11 (cons 72 0) (cons 73 2)) elist)
  58.       )
  59.       ((= (strcase mode) "MC")
  60.        (Subst-elist (list v11 (cons 72 1) (cons 73 2)) elist)
  61.       )
  62.       ((= (strcase mode) "MR")
  63.        (Subst-elist (list v11 (cons 72 2) (cons 73 2)) elist)
  64.       )
  65.       ((= (strcase mode) "BL")
  66.        (Subst-elist (list v11 (cons 72 0) (cons 73 1)) elist)
  67.       )
  68.       ((= (strcase mode) "BC")
  69.        (Subst-elist (list v11 (cons 72 1) (cons 73 1)) elist)
  70.       )
  71.       ((= (strcase mode) "BR")
  72.        (Subst-elist (list v11 (cons 72 2) (cons 73 1)) elist)
  73.       )
  74.       (t elist)
  75.     )
  76.   )
  77. )
  78. (defun c:tt ()
  79.   (princ "\n如何更改文字的对齐方式之后，不改变文字位置")
  80.   (setq mode
  81.   (getstring
  82.     "\n[左(L)/对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)/左中(ML)/正中(MC)/右中(MR)/左下(
  83. BL)/中下(BC)/右下(BR)]"
  84.   )
  85.   )
  86.   (setq ss (ssget))
  87.   (foreach e (C-SS->ENAMES SS)
  88.     (setq elist (entget e))
  89.     (setq elist (C-Text-Justifytext elist mode))
  90.     (entmod elist)
  91.   )
  92.   (princ)
  93. )
回复 支持 反对

使用道具 举报

ayunger
发表于 2010-1-31 15:20:00 | 显示全部楼层
;;;***********************************************
;;; No.1 修改选定文字对象的对正点而不改变其位置  
;;;***********************************************
(defun C:ayJT(/ SS1 p1 p2 p3 p4 xType)
 (prompt "\n【提示】选择文本对象...")
 (while (not (setq SS1 (ssget '((0 . "*TEXT"))))))
 (initget "L A F C M R TL TC TR ML MC MR BL BC BR")
 (setq xType (getkword (strcat "对齐点: 左(L)/对齐(A)/调整(F)/中心(C)/中间(M)/右(R)/左上(TL)/中上(TC)/右上(TR)"
                "/左中(ML)/正中(MC)/右中(MR)/左下(BL)/中下(BC)/右下(BR)<MC>: ")))
 (if (= xType nil) (setq xType "MC"))
 (vl-cmdf "_.JustifyText" SS1 "" xType)
 (prin1)
);end_defun
回复 支持 反对

使用道具 举报

liu_kunlun
发表于 2010-2-1 10:10:00 | 显示全部楼层

提一个想法：

首先记录下10组坐标，然后修改对齐方式

最后，根据新的对其方式，将10组修改成原坐标值，或根据新的10组坐标和原10组坐标的差别修改11组，即可。

有兴趣者试验一下。

回复 支持 反对

使用道具 举报

飞诗(fsxm)
发表于 2010-2-1 12:22:00 | 显示全部楼层

取文字的包围盒子，记录下来盒子的左下角点

改变文字对齐方式，记录新的盒子的左下角点

移动文字从新盒子左下角点到原来的盒子左下角点

回复 支持 反对

使用道具 举报

ljh19991220
发表于 2010-2-1 22:04:00 | 显示全部楼层

太好了，正在找这个代码。

回复 支持 反对

使用道具 举报

elitefish
发表于 2010-2-2 02:46:00 | 显示全部楼层
  3. ;原位修改文字对齐方式
  4. (defun EF_Text:AlignMod (ename ;文字图元名
  5.     mode ;对齐模式 字符 L C R M A F
  6.     /
  7.     pt10 ;插入点
  8.     pt11 ;对齐点
  9.     edata
  10.     box a b c d ang
  11.     ptdiv newpt10
  12.     )
  13.   (setq edata (entget ename))
  14.   (setq pt10 (cdr (assoc 10 edata)))
  15.   (setq box (textbox edata))
  16.   (setq a (car box) b (cadr box))
  17.   (setq ang (cdr (assoc 50 edata)))
  18.   (setq edata
  19.   (entmod
  20.     (cond
  21.       ((= (strcase mode) "L") ;左对齐
  22.        (EF:List-SubstAssoc (list (cons 10 pt10) '(72 . 0) '(73 . 0)) edata T)
  23.        )
  24.       ((= (strcase mode) "C") ;中对齐
  25.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 1) '(73 . 0)) edata T)
  26.        )
  27.       ((= (strcase mode) "R") ;右对齐
  28.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 2) '(73 . 0)) edata T)
  29.        )
  30.       ((= (strcase mode) "M") ;中心对齐
  31.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 4) '(73 . 0)) edata T)
  32.        )
  33.       ((= (strcase mode) "A") ;对齐
  34.        (setq pt11 (polar pt10 ang (car b)))
  35.        (EF:List-SubstAssoc (list (cons 10 pt10) (cons 11 pt11) '(72 . 3) '(73 . 0)) edata T)
  36.        )
  37.       ((= (strcase mode) "F") ;调整
  38.        (setq pt11 (polar pt10 ang (car b)))
  39.        (EF:List-SubstAssoc (list (cons 10 pt10) (cons 11 pt11) '(72 . 5) '(73 . 0)) edata T)
  40.        )
  41.       ((= (strcase mode) "BL") ;左下
  42.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 0) '(73 . 1)) edata T)
  43.        )
  44.       ((= (strcase mode) "BC") ;中下
  45.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 1) '(73 . 1)) edata T)
  46.        )
  47.       ((= (strcase mode) "BR") ;右下
  48.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 2) '(73 . 1)) edata T)
  49.        )
  50.       ((= (strcase mode) "ML") ;左中
  51.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 0) '(73 . 2)) edata T)
  52.        )
  53.       ((= (strcase mode) "MC") ;正中
  54.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 1) '(73 . 2)) edata T)
  55.        )
  56.       ((= (strcase mode) "MR") ;右中
  57.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 2) '(73 . 2)) edata T)
  58.        )
  59.       ((= (strcase mode) "TL") ;左上
  60.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 0) '(73 . 3)) edata T)
  61.        )
  62.       ((= (strcase mode) "TC") ;中上
  63.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 1) '(73 . 3)) edata T)
  64.        )
  65.       ((= (strcase mode) "TR") ;右上
  66.        (EF:List-SubstAssoc (list (cons 11 pt10) '(72 . 2) '(73 . 3)) edata T)
  67.        )
  68.       (T edata)
  69.       ) ;end cond
  70.     ) ;entmode
  71. )
  72.   (setq edata (entget (cdr (assoc -1 edata)))) ;发现部分字形 entmake返回值错误所以重新生成一次edata
  73.   (setq newpt10 (cdr (assoc 10 edata)))
  74.   (setq ptdiv (mapcar '- pt10 newpt10))
  75.   (setq pt11 (cdr (assoc 11 edata)))
  76.   (setq pt11 (mapcar '+ ptdiv pt11))
  77.   (entmod (EF:List-SubstAssoc (list (cons 10 pt10) (cons 11 pt11)) edata T))
  78.   ) ;end defun
回复 支持 反对

使用道具 举报

elitefish
发表于 2010-2-2 02:47:00 | 显示全部楼层
  3. ;根据 lstSub 子表中的首元素 替换 lstSource 中对应表元
  4. (defun EF:List-SubstAssoc (lstSub ;需要替换的列表
  5.       lstSource ;源列表
  6.       bAdd  ;是否向源列表中追加 原本没有的元素
  7.       )
  8.   (foreach e lstSub
  9.     (if (setq e1 (assoc (car e) lstSource))
  10.       (setq lstSource (subst e (assoc (car e) lstSource) lstSource))
  11.       (if bAdd (setq lstSource (append lstSource (list e))))
  12.       )
  13.     )
  14.   )
回复 支持 反对

使用道具 举报

carrot1983
 楼主| 发表于 2010-2-14 11:33:00 | 显示全部楼层

谢谢　elitefish

虎年快乐~~

回复 支持 反对

使用道具 举报

tengte
发表于 2010-2-15 13:44:00 | 显示全部楼层
上面的程序好像对A和F两种对齐方式有点问题
回复 支持 反对

使用道具 举报

12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-10-1 23:43 , Processed in 0.201532 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表