(XD::Text:Make)按指定对齐方式写文字(使用当前文字样式）

newer · 发表于 2013-11-18 23:37:15

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

本帖最后由 newer 于 2013-12-12 20:12 编辑

;|
按指定对齐方式写文字(使用当前文字样式）
参数：
pj ------ 基点表（第一个点为对齐点，第二个点只有在A和F下使用）
str ------ 字符串 styl ------ 文字样式名
txth ------ 字高
wscl ------ 宽度系数
alignment-- 对齐方式 (A:对齐)(F：调整)(L：左 )(R：右)(M：中)(C:中间)(TL:左上)(TC：中上)(TR:右上)
(ML:左中)(MC:正中)(MR:右中)(BL:左下)(BM:中下)(BR:右下)
返回值：
文字实体名
|;
(defun XD::Text:Make (pj str styl txth wscl ang alignment / alignment1 e mode)
(setq mode '(("A" 3 0)("F" 5 0)("L" 0 0)("M" 1 0)
("C" 4 0)("R" 2 0)("TL" 0 3)("TC" 1 3)
("TR" 2 3)("ML" 0 2)("MC" 1 2)("MR" 2 2)
("BL" 0 1)("BC" 1 1)("BR" 2 1)
)
)
(if (not (setq alignment1 (assoc (setq alignment (strcase alignment)) mode)))
(setq alignment1 '(0 0))
(setq alignment1 (cdr alignment1))
)
(setq e (xdrx_text_make (car pj) str styl txth ang))
(xdrx_setpropertyvalue e "WidthFactor" wscl)
(xdrx_setpropertyvalue e "HorizontalMode" (car alignment1))
(xdrx_setpropertyvalue e "VerticalMode" (cadr alignment1))
(if (or (= alignment "A")(= alignment "F"))
(xdrx_setpropertyvalue e "AlignmentPoint" (cadr pj))
(xdrx_setpropertyvalue e "AlignmentPoint" (car pj))
)
e
)

;| 
按指定对齐方式写文字(使用当前文字样式） 
参数： 
   pj   ------   基点表（第一个点为对齐点，第二个点只有在A和F下使用） 
   str  ------   字符串   styl ------   文字样式名 
   txth ------   字高 
   wscl ------   宽度系数 
   alignment--   对齐方式  (A:对齐)(F：调整)(L：左 )(R：右)(M：中)(C:中间)(TL:左上)(TC：中上)(TR:右上) 
                           (ML:左中)(MC:正中)(MR:右中)(BL:左下)(BM:中下)(BR:右下) 
返回值： 
   文字实体名                           
|; 
(defun XD::Text:Make (pj str styl txth wscl ang alignment / alignment1 e mode) 
   (setq  mode '(("A" 3 0)("F" 5 0)("L" 0 0)("M" 1 0) 
                 ("C" 4 0)("R" 2 0)("TL" 0 3)("TC" 1 3) 
                 ("TR" 2 3)("ML" 0 2)("MC" 1 2)("MR" 2 2) 
                 ("BL" 0 1)("BC" 1 1)("BR" 2 1) 
                ) 
   ) 
   (if (not (setq alignment1 (assoc (setq alignment (strcase alignment)) mode))) 
      (setq alignment1 '(0 0)) 
      (setq alignment1 (cdr alignment1)) 
   ) 
   (setq e (xdrx_text_make (car pj) str styl txth ang)) 
   (xdrx_setpropertyvalue e "WidthFactor" wscl) 
   (xdrx_setpropertyvalue e "HorizontalMode" (car alignment1)) 
   (xdrx_setpropertyvalue e "VerticalMode" (cadr alignment1)) 
   (if (or (= alignment "A")(= alignment "F")) 
      (xdrx_setpropertyvalue e "AlignmentPoint" (cadr pj))   
      (xdrx_setpropertyvalue e "AlignmentPoint" (car pj)) 
   ) 
   e   
)

st788796 · 发表于 2013-11-18 23:46:49

先改 HorizontalMode 再改 VerticalMode 和反过来的效果是不一样的，有时候利用这个顺序也是不错的选择

newer · 发表于 2013-11-19 00:03:49

st788796 发表于 2013-11-18 23:46
先改 HorizontalMode 再改 VerticalMode 和反过来的效果是不一样的，有时候利用这个顺序也是不错的选择

给上个图啊，看看有什么不一样？

st788796 · 发表于 2013-11-19 00:16:05

本帖最后由 st788796 于 2013-11-19 00:19 编辑

newer 发表于 2013-11-19 00:03
给上个图啊，看看有什么不一样？

上个演示吧，就是两句（图中的线为了更好的显示相对位置）
(xdrx_text_sethozmode e 1)
(xdrx_text_setvermode e 1)
执行的顺序不一样，最后的文字位置也不一样，不过这个特性有时候也很有用的

这是不指定 Alignmentpoint 的情况！特殊时候可以利用这个特点

newer · 发表于 2013-11-19 00:45:03

st788796 发表于 2013-11-19 00:16
上个演示吧，就是两句（图中的线为了更好的显示相对位置）
(xdrx_text_sethozmode e 1)
(xdrx_text_set ...

是的，指定对起点就固定一样了。

你试试看下，不指定对齐点，对齐点自动给用哪个了？

st788796 · 发表于 2013-11-19 00:48:01

newer 发表于 2013-11-19 00:45
是的，指定对起点就固定一样了。

你试试看下，不指定对齐点，对齐点自动给用哪个了？

把设置的对齐点移至原对齐点, 就是把文字有一个位移，这样的好处可以实现自动避让或者自动间隙

newer · 发表于 2013-11-19 00:57:11

st788796 发表于 2013-11-19 00:48
把设置的对齐点移至原对齐点, 就是把文字有一个位移，这样的好处可以实现自动避让或者自动间隙

那大师给写一个这样的应用吧。

st788796 · 发表于 2013-11-19 07:12:17

本帖最后由 st788796 于 2013-11-19 07:40 编辑

newer 发表于 2013-11-19 00:57
那大师给写一个这样的应用吧。

标线长是一个，写字点是一个，通过设置 Hozmode Vermode无需计算实现线上和线下写字，线上是中下，线下是中上，都和线有间隙
合理利用就可以让文字在原文字的9pt上移位

用同一个插入点写两个text，然后执行下面语句，看看效果
            (xdrx_text_setvermode txt1 1);_顺序不同会自动调整位置
            (xdrx_text_sethozmode txt1 1)
            (xdrx_text_setvermode txt2 3)
            (xdrx_text_sethozmode txt2 1)

cooolsee · 发表于 2014-5-8 21:33:29

好东西，一直想要这样子的功能，真的不错

Aeserlen · 发表于 2014-7-26 20:42:55

函数中出错参数太多
这是什么情况~~~

elfjack · 发表于 2014-9-30 16:57:08

st788796 发表于 2013-11-19 00:16
上个演示吧，就是两句（图中的线为了更好的显示相对位置）
(xdrx_text_sethozmode e 1)
(xdrx_text_set ...

我发现我2008CAD，老是会弹出无限错误，郁闷啊。

dyjwyqz5221 · 发表于 2020-5-29 15:14:48

为何不用xdrx_text_setproperty函数一次性修改文字的特性呢？

wzjck01 · 发表于 2021-5-21 17:17:17

学习，学习。

evayleung · 发表于 2022-9-1 16:00:51

今天发现XD::Text:Make这两个码("M" 1 0) ("C" 4 0)搞反了。应该是
("M" 4 0) ("C" 1 0)，我的是CAD2020

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

[文本] (XD::Text:Make)按指定对齐方式写文字(使用当前文字样式）

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评

点评