VisualLisp若干常用代碼

;;;當前AutoCAD任務中的頂層AutoCAD應用程序對象
(Vlax-Get-Acad-Object)
(Setq acadObject (Vlax-Get-Acad-Object))

;;;當前的文檔
(Vla-Get-ActiveDocument (Vlax-Get-Acad-Object))
(Setq acadDocument (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument))

;;;當前的布局
(Vla-Get-ActiveLayout (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))
(Setq activeLayout (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ActiveLayout ))

;;;模型空間對象
(Vla-Get-ModelSpace (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))
(Setq mSpace (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'ModelSpace ))

;;;圖紙空間對象
(Vla-Get-PaperSpace (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)))
(Setq pSpace (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'PaperSpace ))

;;;當前文檔標注樣式的集合
(Setq DimStyles (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'DimStyles ))

;;;當前文檔圖層的集合
(Setq Layers (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers ))

;;;當前文檔線型的集合
(Setq Linetypes (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Linetypes ))

;;;當前文檔文字樣式的集合
(Setq textStylesObj (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'TextStyles ))

;;;當前文檔塊定義的集合
(setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))

;;;已知文字樣式名稱，獲取該文字樣式對象
(Setq textStyleObj (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'TextStyles) 'Item "Ecidi_romans"))

;;;已知圖層名稱，獲取該圖層對象
(Setq LayObj (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Layers) 'Item "0"))

;;;已知某圖層對象LayObj，獲取該圖層的名稱
(vla-get-name LayObj)
(Setq LayerName (Vlax-Get LayObj 'Name))

;;;已知文字樣式對象名，獲取字體文件、大字體文件
(Setq fontFile (Vlax-Get textStyleObj 'fontFile))
(Setq BigFontFile (Vlax-Get textStyleObj 'BigFontFile))

;;;獲取應用程序或文檔的名稱，包括路徑。
(setq fullName (vlax-get (Vla-Get-ActiveDocument (Vlax-Get-Acad-Object)) 'FullName))
(getvar "DWGPREFIX")
(getvar "dwgname")
;;;DWGPREFIX：存儲圖形的驅動器和文件夾前綴
;;;DWGNAME：存儲當前圖形的名稱

;;;建立選擇集，且篩選圖元類型
(setq ss (ssget '((0 . "TEXT,LINE,LWPOLYLINE"))))

;;;已知VLA對象名obj，獲取句柄handle
(setq handle (Vlax-Get obj 'Handle ))

;;;已知多段線VLA對象名plineObj，獲取其頂點二維坐標表plineCoordinates
(Setq plineCoordinates (Vlax-Get plineObj 'Coordinates ))
(vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel "\nSel Pline"))))
(mapcar 'cdr (vl-remove-if '(lambda (x) (/= (car x) 10)) (entget (car (entsel "\nSel Pline")))))

;;;獲取圖元類型
(setq szEntType (cdr (assoc 0 (entget (car (entsel))))));;返回值為一個字符串
(setq szObjName (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'ObjectName));;返回值為一個字符串
(setq nEntType (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'EntityType));;返回值為一個整數，(= AcText 32)的返回值為T
;;;《AutoCAD VBA開發精彩實例教程》（張帆 鄭立楷 王華傑 編著）86頁：
;;;要判斷實體的對象類型，既可以使用ObjectName屬性，又可以使用EntityType屬性。如果使用ObjectName屬性，它的取值是ARX中對應的類的名稱，一般來說，是對象的類型加上AcDb前綴；如果使用EntityType屬性（該屬性在VBA中無法獲得幫助信息，但是確實能夠使用，對它的使用方法，並未獲得權威資料的考證），一般來說可以在對象的類型前面加上Ac前綴。

;;;修改單行文字對象的文字樣式
(Vlax-Put-Property (Vlax-Ename->Vla-Object (car (entsel))) 'StyleName "Ecidi_romans" );;返回值為nil

;;;獲取單行文字對象的高度
(setq textHeight (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'Height ))

;;;獲取單行文字對象的寬度比例
(setq scaleFactor (Vlax-Get (Vlax-Ename->Vla-Object (car (entsel))) 'ScaleFactor ))

;;;改單行文字對象的文字樣式
(Vlax-Put-Property (Vlax-Ename->Vla-Object (car (entsel))) 'StyleName (getvar "Ecidi_romans") )

;;;改單行文字對象的內容
(Vlax-Put-Property txtObjName 'TextString "99初名機工888株式會社99")

;;;改單行文字對象的顏色
(Vlax-Put-Property txtObjName 'Color 42 )

;;;改單行文字對象的對正方式
(Vlax-Put-Property txtObjName 'Alignment 4 )
;;;Alignment                對正            justifytext命令對正選項
;;;acAlignmentLeft            0    基線左對齊    L
;;;acAlignmentCenter        1    基線居中    C
;;;acAlignmentRight            2    基線右對齊    R
;;;acAlignmentAligned        3    對齊        A
;;;acAlignmentMiddle        4    中間        M
;;;acAlignmentFit            5    布滿        F
;;;acAlignmentTopLeft        6    左上        TL
;;;acAlignmentTopCenter        7    中上        TC
;;;acAlignmentTopRight        8    右上        TR
;;;acAlignmentMiddleLeft    9    左中        ML
;;;acAlignmentMiddleCenter    10    正中        MC
;;;acAlignmentMiddleRight    11    右中        MR
;;;acAlignmentBottomLeft    12    左下        BL
;;;acAlignmentBottomCenter    13    中下        BC
;;;acAlignmentBottomRight    14    右下        BR
;對齊到 acAlignmentLeft 的文字使用 InsertionPoint 屬性來放置文字。
;對齊到 acAlignmentAligned 或 acAlignmentFit 的文字同時使用 InsertionPoint 以及 TextAlignmentPoint 屬性來放置文字。
;對齊到其它任何位置的文字使用 TextAlignmentPoint 屬性來放置文字。

;;;改單行文字對象的對齊點
(Vlax-Put-Property txtObjName 'TextAlignmentPoint (vlax-3D-point midPt) )

;;;改單行文字對象的插入點
(Vlax-Put-Property (Vlax-Ename->Vla-Object (car (entsel))) 'InsertionPoint (vlax-3D-point pt) )

;;;獲取圓對象的圓心
(setq LstCenter (cdr (assoc 10 (entget (car (entsel))))));返回值為一個三維圓心坐標表
(setq variantCenter (Vla-Get-Center circleObj));返回值類型為變體，(vlax-safearray->list (vlax-variant-value (Vla-Get-Center (vlax-ename->vla-object (car (entsel))))))
(Setq LstCenter (Vlax-Get circleObj 'Center));返回值為一個三維圓心坐標表

;;;遍歷塊定義中每個圖元
(vlax-for obj (vla-item (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))) "塊名")
    ...
)

;;;遍歷當前文檔塊定義的集合，獲取每個塊定義的名稱，並存入表blockNameLst中
(setq blocks (vla-get-blocks (vla-get-activedocument (vlax-get-acad-object))))
(setq blockNameLst nil)
(vlax-for block blocks
    (setq blockName (Vlax-Get block 'Name ))
    (setq blockNameLst (append blockNameLst (list blockName)))
)

;;;當前文檔中塊定義的個數
(Vlax-Get (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'Count )

;;;第i個塊定義對象
(Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'item i)

;;;第i個塊定義對象的名稱
(Vlax-Get (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'item i) 'Name )
(vla-get-name (Vlax-Invoke-Method (Vlax-Get (Vlax-Get (Vlax-Get-Acad-Object) 'ActiveDocument) 'Blocks) 'item i))