rark123 发表于 2007-3-8 14:49:00

[原创]改变文字对齐方式

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;改变文字对齐方式;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;<br/>(defun change_text (txt_texts Horizontal Vertical / txt_m txt_ename txt_object txt_point)<br/>&nbsp; (setq txt_m (sslength txt_texts))<br/>&nbsp; (repeat txt_m<br/>&nbsp;&nbsp;&nbsp; (setq txt_ename (ssname txt_texts 0))<br/>&nbsp;&nbsp;&nbsp; (ssdel txt_ename txt_texts)<br/>&nbsp;&nbsp;&nbsp; (setq txt_object (vlax-ename-&gt;vla-object txt_ename))<br/>&nbsp;&nbsp;&nbsp; (setq txt_point (vla-get-InsertionPoint txt_object))<br/>&nbsp;&nbsp;&nbsp; (vla-put-HorizontalAlignment txt_object Horizontal)<br/>&nbsp;&nbsp;&nbsp; (vla-put-VerticalAlignment txt_object Vertical)<br/>&nbsp;&nbsp;&nbsp; (command "move" txt_ename "" (vla-get-InsertionPoint txt_object) txt_point)<br/>&nbsp; )<br/>&nbsp; (vlax-release-object txt_object)<br/>)

jaminth 发表于 2008-6-27 19:11:00

哪位vlisp的高手,提示(或修改)一下,上面这个程序好像不能用!(可能是我不会用!!:)

caoyin 发表于 2008-6-28 11:53:00

<p>HorizontalAlignment</p><p>VerticalAlignment</p><p>以上两种属性在 AutoCAD2006 及更高版本已经删除</p>

oistre 发表于 2018-8-5 02:31:42

调整对齐方式，请选择文字：
页: [1]
查看完整版本: [原创]改变文字对齐方式