[求助]有没有如此的程序

英雄无敌

真的不知道，即然是LISP程序，为什么要用VLA来添加文字呢？你用TEXT命令不行吗？

无痕

指定属性、属性参照或文字的水平和垂直对齐。 MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_alignmentpointacquisition.htm">

MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/alignment_see_also.htm">参阅 | MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/ex_alignment.htm">示例

语法

object.Alignment

object

MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_attribute_object.htm">Attribute, MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_attributeref_object.htm">AttributeRef, MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_text_object.htm">Text
使用该属性的对象。

Alignment

acAlignment 常数; 可读写

acAlignmentLeft

acAlignmentCenter

acAlignmentRight

acAlignmentAligned

acAlignmentMiddle

acAlignmentFit

acAlignmentTopLeft

acAlignmentTopCenter

acAlignmentTopRight

acAlignmentMiddleLeft

acAlignmentMiddleCenter

acAlignmentMiddleRight

acAlignmentBottomLeft

acAlignmentBottomCenter

acAlignmentBottomRight

说明

对齐到 acAlignmentLeft 的文字使用 MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_insertionpoint.htm">InsertionPoint 属性来放置文字。

对齐到 acAlignmentAligned 或 acAlignmentFit 的文字同时使用 MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_insertionpoint.htm">InsertionPoint 以及 MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_textalignmentpoint.htm">TextAlignmentPoint 属性来放置文字。

对齐到其它任何位置的文字使用 MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/idh_textalignmentpoint.htm">TextAlignmentPoint 属性来放置文字。

MSITStore:C:\AutoCAD%202006\HELP\acadauto.chm::/img/auw0819u.gif" width="428" border="0" alt=""/>

czx663

vla类的函数我怎么用不了，要加载什么东西才能用吗？

nibenqiangdy

各位高手请给予指点一下,谢谢!!!!

nibenqiangdy

各位同僚帮帮忙!

我在这儿先谢谢了!

highflybir

难道楼主没有看无痕版主的回复么？

;;Alignment
(defun c:test ()
  (setq *APP (vlax-get-acad-object)) ;得到程序指针
  (setq *DOC (vla-get-activedocument *App)) ;得到当前文档

  (setq *ModelSpace (vla-get-modelspace *Doc)) ;新文档的模型空间
  (setq ab "含油水层")

  (setq *textobj (vla-addtext
     *modelspace
     ab
     (vlax-3d-point (list 500 200 0))
     13
   )
  )
  (vla-put-alignment *textobj acAlignmentCenter)
  (vlax-release-object *textobj)
  (vlax-release-object *ModelSpace) ;模型空间指针释放
  (vlax-release-object *Doc)  ;释放新文档指针
)