Private Sub RunCommand_Example() Dim sCmd As String sCmd = "_Circle" & vbCr & "2,2,0" & vbCr & "4" & vbCr Thisdrawing.Application.RunCommand sCmd sCmd = "_Line" & vbCr & "0,0 " & vbCr & "4,3" & vbCr Thisdrawing.Application..RunCommand sCmd End Sub
Bricscad™ is commercialized by Bricsys NV. Bricsys NV and Vondle NV are fully owned subsidiaries of Menhirs NV. © 2001- Menhirs NV - All rights reserved. |