(XD::Text:SetAlignment)修改文字的对齐方式

newer · 发表于 2013-11-18 23:47:12

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

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

×

;|
修改文字的对齐方式
参数：
ent ---- 文字实体名
pj ---- 对齐点
alignment-- 对齐方式 (A:对齐)(F：调整)(L：左 )(R：右)(M：中)(C:中间)(TL:左上)(TC：中上)(TR:右上)
(ML:左中)(MC:正中)(MR:右中)(BL:左下)(BM:中下)(BR:右下)
返回值：
T
|;
(defun XD::Text:SetAlignment(ent pj 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))
)
(xdrx_setpropertyvalue ent "HorizontalMode" (car alignment1))
(xdrx_setpropertyvalue ent "VerticalMode" (cadr alignment1))
(xdrx_setpropertyvalue ent "AlignmentPoint" pj)
t
)

;| 
修改文字的对齐方式 
  参数： 
    ent ----  文字实体名 
     pj  ----  对齐点 
   alignment--   对齐方式  (A:对齐)(F：调整)(L：左 )(R：右)(M：中)(C:中间)(TL:左上)(TC：中上)(TR:右上) 
                           (ML:左中)(MC:正中)(MR:右中)(BL:左下)(BM:中下)(BR:右下) 
返回值： 
   T 
|; 
(defun XD::Text:SetAlignment(ent pj 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)) 
   ) 
   (xdrx_setpropertyvalue ent "HorizontalMode" (car alignment1)) 
   (xdrx_setpropertyvalue ent "VerticalMode" (cadr alignment1)) 
   (xdrx_setpropertyvalue ent "AlignmentPoint" pj) 
   t   
)

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

前面有 XD::Text:AdjustAlignment 保持位置不变，这个是位置变化的

newer · 发表于 2013-11-19 00:02:29

st788796 发表于 2013-11-18 23:49
前面有 XD::Text:AdjustAlignment 保持位置不变，这个是位置变化的

这个就是你想设置对齐点在哪，就设到哪。

st788796 · 发表于 2013-11-19 00:43:32

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

newer 发表于 2013-11-19 00:02
这个就是你想设置对齐点在哪，就设到哪。

开始不习惯这种分开设置，不过现在喜欢上这种方法了，只给一个点，通过先后顺序调整可以让文字自动”爬高“或”下沉“，实现自动间隙{:soso_e113:}

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

[文本] (XD::Text:SetAlignment)修改文字的对齐方式

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

点评

点评