TA的每日心情 | 开心 2024-8-31 15:58 |
---|
签到天数: 89 天 [LV.6]常住居民II
管理员
- 积分
- 3366
|
取得多行文字对象的相对行间距系数。
语法及参数
(vla-get-LineSpacingFactor Object)
Object MText
这个属性适用的对象。
LineSpacingFactor 双精度;读/写
多行文字对象的相对行间距系数,输入一个0.25到4(含0.25与4)之间的值。
说明
间距系数是某行文字的基准线到下一行文字的基准线的垂直距离。
间距系数设定为单行文字的倍数。
可以使用LineSpacingFactor属性,将行间距设成“至少”是指定的距离或“完全”是指定的距离。
范例
新窗口拷贝打印?
;;;从二代龙震工作室汉化帮助中提取
;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有!
(defun Example_LineSpacingFactor()
;;; 这个范例在模型空间建立一个MText 对象
;;; 接着找出对象的 LineSpacingFactor
(VL-LOAD-COM)
(setq AcadObject(vlax-get-acad-object)
AcadDocument(vla-get-ActiveDocument Acadobject)
mSpace(vla-get-ModelSpace Acaddocument)
)
(setq corner1(vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill corner1 '(0 10 0))
(setq width 10)
(setq textString "这是多行对象的文字字符串。")
;;; 建立多行文字对象
(setq MTextObj(vla-AddMText mSpace corner1 width textString))
(vla-ZoomExtents AcadObject)
;;; 找出当前的 LineSpacingFactor
(setq currFactor(vla-get-LineSpacingFactor MTextObj))
(princ (STRCAT " MText对象的 LineSpacingFactor 是: " (RTOS currFactor) "\n"))
(PROMPT "<ENTER>进行:")(VL-CMDF pause)
;;; 改变 LineSpacingFactor
(vla-put-LineSpacingFactor MTextObj 4)
(setq newFactor(vla-get-LineSpacingFactor MTextObj))
(princ (STRCAT " MText对象的新 LineSpacingFactor 是: " (RTOS newFactor) "\n"))
(PROMPT "<ENTER>进行:")(VL-CMDF pause)
;;; 重设为 LineSpacingFactor
(vla-put-LineSpacingFactor MTextObj currFactor)
(princ (STRCAT " MText对象的 LineSpacingFactor 已经重设为: " (RTOS currFactor)))
(princ)
)
;;;从二代龙震工作室汉化帮助中提取
;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有!
(defun Example_LineSpacingFactor()
;;; 这个范例在模型空间建立一个MText 对象
;;; 接着找出对象的 LineSpacingFactor
(VL-LOAD-COM)
(setq AcadObject(vlax-get-acad-object)
AcadDocument(vla-get-ActiveDocument Acadobject)
mSpace(vla-get-ModelSpace Acaddocument)
)
(setq corner1(vlax-make-safearray vlax-vbDouble '(0 . 2)))
(vlax-safearray-fill corner1 '(0 10 0))
(setq width 10)
(setq textString "这是多行对象的文字字符串。")
;;; 建立多行文字对象
(setq MTextObj(vla-AddMText mSpace corner1 width textString))
(vla-ZoomExtents AcadObject)
;;; 找出当前的 LineSpacingFactor
(setq currFactor(vla-get-LineSpacingFactor MTextObj))
(princ (STRCAT " MText对象的 LineSpacingFactor 是: " (RTOS currFactor) "\n"))
(PROMPT "进行:")(VL-CMDF pause)
;;; 改变 LineSpacingFactor
(vla-put-LineSpacingFactor MTextObj 4)
(setq newFactor(vla-get-LineSpacingFactor MTextObj))
(princ (STRCAT " MText对象的新 LineSpacingFactor 是: " (RTOS newFactor) "\n"))
(PROMPT "进行:")(VL-CMDF pause)
;;; 重设为 LineSpacingFactor
(vla-put-LineSpacingFactor MTextObj currFactor)
(princ (STRCAT " MText对象的 LineSpacingFactor 已经重设为: " (RTOS currFactor)))
(princ)
) |
|