| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: AddRegion (746 mal gelesen)
|
mias Mitglied
Beiträge: 23 Registriert: 30.07.2007
|
erstellt am: 09. Sep. 2009 11:38 <-- editieren / zitieren --> Unities abgeben:
hei zusammen! Ha schon lange mit VBA pausiert und bin grad wieder am tüfteln. Ein befehl, den ich vor einer Zeit geschrieben hab scheint nicht mehr zu klappen - hier der CODE Code: Sub platte_einziehen(uf As Acad3DPolyline) Dim ob(0) As AcadEntity Dim reg As Variant Dim platte As Acad3DSolid Dim farbe1 As New AcadAcCmColor farbe1.SetRGB 150, 120, 255Set ob(0) = uf reg = ThisDrawing.ModelSpace.AddRegion(ob) Set platte = ThisDrawing.ModelSpace.AddExtrudedSolid(reg(0), 0.1, 0) platte.Layer = "boeden" platte.TrueColor = farbe1 End Sub
die zeile:
Code: reg = ThisDrawing.ModelSpace.AddRegion(ob)
funkt nicht - - und ich hab KEINE AHNUNG woran das liegen könnte! danke fürs mitdenken! mias Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 09. Sep. 2009 11:41 <-- editieren / zitieren -->
Hi, ohne jetzt den Code probiert zu haben: die 3DPoly ist schon geschlossen? - alfred - ------------------ www.hollaus.at |
mias Mitglied
Beiträge: 23 Registriert: 30.07.2007
|
erstellt am: 09. Sep. 2009 12:00 <-- editieren / zitieren --> Unities abgeben:
wow - danke für die schnelle Antowrt!!! Leider wars das nicht: Code: Set umfang(j) = ThisDrawing.ModelSpace.Add3DPoly(pts) umfang(j).Closed = True umfang(j).Rotate org, (i * j + 1) / 100platte_einziehen umfang(j)
ich mach vorher den Array immer wieder zu und dann übergib ich jeweils an die Sub... klappt das so?
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 09. Sep. 2009 12:03 <-- editieren / zitieren -->
Hi, >> klappt das so? ja, sollte schon, wenn die 3DPoly sauber gezeichnet ist (keine Segmente mit 0-Länge, sprich mehrere Vertizes an einer geometrischen Position) und auch die 3D-Poly sich nicht selbst berührt oder schneidet (sprich 8-er Schleifen o.ä.). Hast Du schon mal probiert, diese 3DPoly's händisch zu einer Region zu machen? - alfred - ------------------ www.hollaus.at |
mias Mitglied
Beiträge: 23 Registriert: 30.07.2007
|
erstellt am: 09. Sep. 2009 12:13 <-- editieren / zitieren --> Unities abgeben:
|