Boundary vba

[RepCad]

hi all, how can i use Boundary command in vba after Getpoint inside a polyline??

 

i use lisp code :

 

(setq Point (getpoint))

(command "boundary" point "")

 

and i write same code in vba, but it does not work :

 

Pnt = ThisDrawing.Utility.GetPoint(, "Enter a point: ")

ThisDrawing.SendCommand "._boundary" & Pnt & vbCr

[BIGAL]

What does help say about addboundary ? May get around problem also try Bpoly.

[smuthuc]

:)This will help you

 

Public Sub Draw_Bpoly()

 

Dim p As Variant

p = ThisDrawing.Utility.GetPoint(, "First the Point:")

ThisDrawing.SetVariable "osmode", 0

ThisDrawing.SendCommand "_.-boundary" & vbCr & "_A" & vbCr & "_I" & vbCr & "_N" & vbCr & vbCr & vbCr & p(0) & "," & p(1) & vbCr & vbCr

 

End Sub

 

enjoy.....