VB編程在AutoCAD中創建圖形，利用Add方法，在AutoCAD模型空間ModelSpace中創建二維或三維圖形對象，也可在圖紙空見或塊中創建對象。

利用AddPoint方法可以創建一個點對象，應用該方法時需要給出點的X、Y、Z坐標。

通過系統變量PDMODE來控制點的顯示方式，通過系統變量PDSIZE控制點的大小，修改系統變量值后，通過圖形重生成來更新屏幕顯示，下面代碼創建一個點并修改其外形顯示。

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