goACAD = CREATEOBJECT("AutoCAD.Application") goACAD.Visible = .T. DIMENSION laXCoord(3) AS Double laXCoord(1) = 10 laXCoord(2) = 20 laXCoord(3) = 0 goacad.ActiveDocument.ModelSpace.AddCircle(@laXCoord, 10)In the other direction, you can find objects in your
FOR EACH loItem IN goACAD.ActiveDocument.PaperSpace IF loItem.ObjectName = "AcDbBlockReference" IF UPPER(loItem.Name) = "MYBLOCK" laAttributes = loItem.GetAttributes FOR n = 1 TO ALEN(laAttributes, 1) DO CASE CASE laAttributes(n).TagString = "NAME" laAttributes(n).TextString = "blabla" CASE laAttributes(n).TagString = "FILE" laAttributes(n).TextString = ALLTRIM(THISFORM.cBestand) ENDCASE ENDFOR EXIT ENDIF ENDIF ENDFORGreetz.