---

hallo zusammen,
ich möchte mit einem vba-makro eine polylinie zeichnen. das
klappt auch, aber ich kann keine objekthöhe zuweisen sondern
nur eine erhebung. welches element kann ich anstelle einer
polylinie verwenden, so dass ein räumliches objekt (zb. wand
dargestellt wird? hier mal ein 'programmauszug':

Dim plineObj As AcadPolyline
Dim points(0 To 14) As Double
       
   
        points(0) = ax
        points(1) = ay
        points(2) = az
       
        points(3) = ax + 1
        points(4) = ay
        points(5) = az
       
        points(6) = ex + 1
        points(7) = ey
        points(8) = ez
       
        points(9) = ex
        points(10) = ey
        points(11) = ez
       
        points(12) = ax
        points(13) = ay
        points(14) = az
       
        Set plineObj = ThisDrawing.ModelSpace.AddPolyline(points)
        Set plineObj.Elevation = 2#

danke für jede hilfe
jo

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

RetVal = object.Add3Dpoly(PointsArray)

------------------
Bernd Cuder
Cad&Co makes CAD easy

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP