VB編程在AutoCAD中創(chuàng)建圖形，利用Add方法，在AutoCAD模型空間ModelSpace中創(chuàng)建二維或三維圖形對(duì)象，也可在圖紙空見(jiàn)或塊中創(chuàng)建對(duì)象。

利用AddPoint方法可以創(chuàng)建一個(gè)點(diǎn)對(duì)象，應(yīng)用該方法時(shí)需要給出點(diǎn)的X、Y、Z坐標(biāo)。

通過(guò)系統(tǒng)變量PDMODE來(lái)控制點(diǎn)的顯示方式，通過(guò)系統(tǒng)變量PDSIZE控制點(diǎn)的大小，修改系統(tǒng)變量值后，通過(guò)圖形重生成來(lái)更新屏幕顯示，下面代碼創(chuàng)建一個(gè)點(diǎn)并修改其外形顯示。

Private Sub Command1_Click()
    Dim pointobj As AcadPoint
    Dim location(0 To 2) As Double
    location(0) = 10#: location(1) = 10#: location(2) = 0#
    Set pointobj = acadapp.ActiveDocument.ModelSpace.AddPoint(location)
    acadapp.ActiveDocument.SetVariable "PDMODE", 35
    acadapp.ActiveDocument.SetVariable "PDSIZE", 5
    ZoomAll
End Sub