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
Solved! Go to Solution.
Solved by Alfred.NESWADBA. Go to 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 -