Мне solidObj необходимо разделить на несколько разных тел. Визуально так оно и есть, но объект один. Как мне передать в командную строку идентификацию именно этого объекта?
ThisDrawing.SendCommand "_solidedit" & vbCr
ThisDrawing.SendCommand "_body" & vbCr
ThisDrawing.SendCommand "_separate" & vbCr
PPoint(0) = Replace(PPoint(0), ",", "."): PPoint(1) = Replace(PPoint(1), ",", "."): PPoint(2) = Replace(PPoint(2), ",", "."):
'ThisDrawing.SendCommand "_Last" & vbCr
'ThisDrawing.SendCommand PPoint(0) & "," & PPoint(1) & "," & PPoint(2) & vbCr
ThisDrawing.SendCommand solidObj.Handle & vbCr
ThisDrawing.SendCommand vbCr