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

rark123

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

jaminth

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

caoyin

HorizontalAlignment

VerticalAlignment

以上两种属性在 AutoCAD2006 及更高版本已经删除

oistre

调整对齐方式，请选择文字：