loft and the ugly sendcommand

[Anonymous]

hello everyone,

i know you should never use sendcommand but its  last chance saloon time.

i already have created 2 circles:

Set objCircle1 = ThisDrawing.ModelSpace.AddCircle(objLine.startpoint, dblDia1 / 2)

Set objCircle2 = ThisDrawing.ModelSpace.AddCircle(objLine.endpoint, dblDia / 2)

now i would like to loft between them, they are not concentric else i would use AddRevolvedSolid.

how do i structure the loft command? i guess i need to send the id or handle of these circles

so i tried

strHandle1 = objCircle1.Handle

strHandle2 = objCircle2.Handle

this doesnt work:

ThisDrawing.SendCommand "loft" & vbCr &  strHandle1 &  strHandle2 & vbCr & vbCr

how do i correctly send objects to the command line?

any useful input would be wonderful! thanks

[Alfred.NESWADBA · Accepted solution]

Hi,

try this with your handles instead of mine from my small sample

   Dim tHandleStr1 As String: tHandleStr1 = "25E"
   Dim tHandleStr2 As String: tHandleStr2 = "25D"
   Call ThisDrawing.SendCommand("_LOFT" & vbCr & "(handent """ & tHandleStr1 & """)" & vbCr & "(handent """ & tHandleStr2 & """)" & vbCr & vbCr & vbCr)

- alfred -

[Anonymous]

thanks very much, that works fine. the devil is in the details!