| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte | | | | PNY bietet das umfangreichste Ökosystem von B2B als auch B2C-Lösungen für IT-Akteure auf dem Markt, eine Pressemitteilung
|
Autor
|
Thema: Problem beim runden der Kanten einer Box (1234 mal gelesen)
|
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003 AutoCAD 2019/2020 CAD+T 2020 HP ZBook 15 G4, 64-bit, WIN 10 Pro
|
erstellt am: 28. Aug. 2015 08:13 <-- editieren / zitieren --> Unities abgeben:
Hallo Zusammen! Teste gerade einiges mit 3DSolids, in diesem Fall einer Box. Ich möchte direkt bestimmte Kanten runden und zwar die 4 Kanten mit der Länge von 500 mm. Wie kann ich diese Kanten oder generell einzelne Kanten ermitteln bzw. bearbeiten? Code:
Dim MySolidBox1 As Solid3d = New Solid3d() MySolidBox1.CreateBox(60, 60, 500)acBlkTblRec.AppendEntity(MySolidBox1) acTrans.AddNewlyCreatedDBObject(MySolidBox1, True) Dim ids As ObjectId() = New ObjectId() {MySolidBox1.ObjectId} Dim ids As ObjectId() = New ObjectId() {MySolidBox1.ObjectId} Dim subentId As New SubentityId(SubentityType.Null, IntPtr.Zero) Dim path As New FullSubentityPath(ids, subentId) Dim subentIds As New List(Of SubentityId)() Dim radii As New DoubleCollection() Dim startSetback As New DoubleCollection() Dim endSetback As New DoubleCollection()
Using brep As New Autodesk.AutoCAD.BoundaryRepresentation.Brep(path) For Each edge As Autodesk.AutoCAD.BoundaryRepresentation.Edge In brep.Edges subentIds.Add(edge.SubentityPath.SubentId) radii.Add(2.0) startSetback.Add(0.0) endSetback.Add(0.0) Next End Using MySolidBox1.FilletEdges(subentIds.ToArray(), radii, startSetback, endSetback)
Mit diesem Test, werden alle Kanten gerundet. Für Tipps/Hilfe schon einmal vielen Dank im Voraus.
------------------ Gruß Dirk Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ingenieur Studio HOLLAUS Mitglied CAD / CAFM / GIS Beratung-Programmierung-Schulung
Beiträge: 1049 Registriert: 06.11.2008 Autocad 2 bis Autocad 2020 (+Map3D, +Civil3D, +Infraworks) RKV .... CAFM+mehr HMap ... Vermessung und Verkehr OoC .... Raumplanung CBox ... Tools für AutoCAD und BricsCAD (kostenfrei)
|
erstellt am: 28. Aug. 2015 08:49 <-- editieren / zitieren --> Unities abgeben: Nur für Dirk.B
Schau mit Schnellüberwachung auf das Objekt "edge" und Du siehst dessen Eigenschaften, daraus entsteht z.B. diese Beispiel: Code: Using brep As New Autodesk.AutoCAD.BoundaryRepresentation.Brep(path) For Each edge As Autodesk.AutoCAD.BoundaryRepresentation.Edge In brep.Edges If edge.Curve.StartPoint.Z <> edge.Curve.EndPoint.Z Then subentIds.Add(edge.SubentityPath.SubentId) radii.Add(2.0) startSetback.Add(0.0) endSetback.Add(0.0) End If Next End Using
Viel Erfolg ------------------
www.cars4fun.at Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dirk.B Mitglied Tischler / Leiter Arbeitsvorbereitung
Beiträge: 534 Registriert: 25.11.2003 AutoCAD 2019/2020 CAD+T 2020 HP ZBook 15 G4, 64-bit, WIN 10 Pro
|
erstellt am: 28. Aug. 2015 09:48 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|