| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Schraffur extrudieren (3904 mal gelesen)
|
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 17. Feb. 2011 12:38 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 17. Feb. 2011 12:59 <-- editieren / zitieren -->
Hi, Schraffuren bearbeiten und 'Umgrenzung neu erstellen' lassen. Dann hast Du Polylinien, die Du extrudieren kannst. Weg zwei, wenn die Zeichnung schon halbwegs dazu passt: Befehl _PRESSPULL, in den Bereich, den Du extrudieren willst, hineinfahren und dann extrudieren. - alfred - ------------------ www.hollaus.at |
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 2966 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 17. Feb. 2011 13:13 <-- editieren / zitieren --> Unities abgeben: Nur für tonkpils
|
cadwomen Ehrenmitglied V.I.P. h.c. Mädchen für fast alles
Beiträge: 2966 Registriert: 26.08.2002 ACAD R11 - 2022 (Plant3D) AVIS ACAD LT 2013- 2021 ZWCAD 2015 Versuch "nun ja" [s]History P3D 2012/(13) SP und Hotfix([/s]<P> Windows 10 / 64 Bit Xeon CPU 3.5GHz 16GB Ram NVIDIA Quadro P2000 3x Dell TV100 88P Monitore
|
erstellt am: 17. Feb. 2011 13:14 <-- editieren / zitieren --> Unities abgeben: Nur für tonkpils
|
Ex-Mitglied
|
erstellt am: 17. Feb. 2011 13:16 <-- editieren / zitieren -->
|
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 17. Feb. 2011 13:27 <-- editieren / zitieren --> Unities abgeben:
Ok, funktioniert alles, jedoch habe ich rund 5000 Schraffuren, wovon ca. die hälfte keine umgrenzung haben. Diese jetzt einzelnd mit neuer Umgrenzung zu erstellen ist eine große Arbeit, ein Fläche ohne Umrandung extrudieren geht nicht? Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 17. Feb. 2011 13:31 <-- editieren / zitieren --> Unities abgeben: Nur für tonkpils
|
Ex-Mitglied
|
erstellt am: 17. Feb. 2011 13:33 <-- editieren / zitieren -->
Hi, >> ein Fläche ohne Umrandung extrudieren geht nicht? Nee, geht nicht, Du brauchst Grenzen dazu. In diesem Fall (5000 Schraffuren) wird wohl ohne programmieren bzw. ohne programmieren lassen ein wenig Klickerei anstehen. - alfred - ------------------ www.hollaus.at |
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 17. Feb. 2011 14:02 <-- editieren / zitieren --> Unities abgeben:
|
Ex-Mitglied
|
erstellt am: 17. Feb. 2011 14:09 <-- editieren / zitieren -->
Hi, nun was Udo (so schnell gefunden) und gezeigt hat, ist ja schon fast fertig. Wenn Du Dir jetzt die Zeit nimmst, Dich damit zu beschäftigen, das LISP oder VBA in Dein System hineinzubringen, dann geht wahrscheinlich weniger Zeit drauf, als die 5000 Schraffuren zu umranden. Dafür kannst Du nachher LISP oder VBA verwenden (hast was gelernt) Und die Umrandungen kommen dann ohne dass Du was vergessen bzw. übersehen kannst. Nur so als Idee. - alfred - ------------------ www.hollaus.at |
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 19. Feb. 2011 10:40 <-- editieren / zitieren --> Unities abgeben:
Hallo, ich habe mich jetzt etwas mit Makros beschäftigt, die von Udo angegebene eingefügt und als Befehl im AutoCAD ergänzt. Ist es richtig, dass ich, bevor der Befehl funktioniert, ich einer Schraffur manuell eine neue Umgrenzung geben muß? Wenn ich das nicht mache kommt eine Fehlermeldung: Laufzeitfehler 424 Objekt erforderlich . Wenn ich dann eine Schraffur manuell bearbeite und dann den Befehl/Makro ausführe, kann ich die Schraffuren auswählen und Polylinie als Umgrenzung festlegen und die Schraffur mit Umgrenzung verknüpfen, alles so, wie der befehl es vorgibt. Wenn ich dann bestätige, wurde keine Umgrenzung erstelle... Habe ich da was falsch gemacht? Den befehl führt er ja aus... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 19. Feb. 2011 10:43 <-- editieren / zitieren -->
Hi, kannst Du die Zeichnung hier hochladen? - alfred - ------------------ www.hollaus.at |
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 19. Feb. 2011 10:49 <-- editieren / zitieren --> Unities abgeben:
|
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 19. Feb. 2011 10:51 <-- editieren / zitieren --> Unities abgeben:
Hier ist die Datei, ich habe Sie soweit aufgeräumt, damit die Datei etwas kleiner ist. Man sieht die bisherigen Umgrenzungen sind nicht eine geschlossene Polylinie und die Schraffuren bestehen aus einzelnen, kleinen Bereichen... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CAD-Huebner Ehrenmitglied V.I.P. h.c. Verm.- Ing., ATC-Trainer
Beiträge: 9732 Registriert: 01.12.2003 AutoCAD 2.5 - 2022, Civil 3D, MAP 3D, ACADM Inventor AutoCAD 2022, AIP 4-2022 Win 10
|
erstellt am: 19. Feb. 2011 11:31 <-- editieren / zitieren --> Unities abgeben: Nur für tonkpils
Zitat: Original erstellt von tonkpils: Hallo, ich habe mich jetzt etwas mit Makros beschäftigt, d... Wenn ich das nicht mache kommt eine Fehlermeldung: Laufzeitfehler 424 Objekt erforderlich ....
Der Laufzeitfehler kommt durch eine fehlende Funktion im Originalcode beim Auswahlsatz zustande. Ändere das Makro ein wenig (ALT + F11), so dass es so aussieht: Code: Sub Schraffurumgrenzung_neu() Dim objEntity As AcadEntity Dim SelSet1 As AcadSelectionSet ThisDrawing.Utility.Prompt "Bitte Schraffuren wählen, deren Umgrenzungen neu erstellt werden sollen:" ' Leeren Auswahlsatz definieren (Name beliebig, hier S1) und dann auf dem Bildschirm Objekte wählen Set SelSet1 = ThisDrawing.SelectionSets.Add("S1") SelSet1.SelectOnScreen ' wenn nichts gewählt, dann Auswahlsatz löschen If SelSet1.Count = 0 Then SelSet1.Delete Exit Sub End If ' ansonsten für jedes Element im Auswahlsatz For Each objEntity In SelSet1 ' Nur wenn es ein Schraffurobjekt ist, dann das AutoCAD Kommando HATCHEDIT aufrufen If objEntity.ObjectName = "AcDbHatch" Then ThisDrawing.SendCommand ("_-hatchedit" & vbCr & "(handent " & Chr(34) & objEntity.Handle _ & Chr(34) & ")" & vbCr & "_b" & vbCr & "_p" & vbCr & "_n" & vbCr) End If Next ' Zum Schluss Auswahlsatz löschen SelSet1.Delete ThisDrawing.Utility.Prompt "Fertig." End Sub
Danach erstellt das Makro die Umgrenzungen für die Schraffuren neu und es lassen sich mit EXTRUSION einfach Gebäudemodelle hochziehen. ------------------ Mit freundlichem Gruß
Udo Hübner www.CAD-Huebner.de
[Diese Nachricht wurde von CAD-Huebner am 19. Feb. 2011 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Ex-Mitglied
|
erstellt am: 19. Feb. 2011 11:48 <-- editieren / zitieren -->
Hi, Udo war zwar schneller, dafür habe ich Extrusion schon drin, DVB-File im beiliegenden ZIP, Anwendung siehe: HTH, - alfred - PS: WICHTIG: Deine Objekte nutzen bereits die maximale Länge (16 Stellen) der Handle-Länge aus, mach bitte mit _WBLOCK eine neue Zeichnung draus, sonst bist Du relativ bald mit dieser Zeichnung im Absturzbereich (und kommst dann nicht mehr raus!) ------------------ www.hollaus.at |
tonkpils Mitglied architekt
Beiträge: 538 Registriert: 07.03.2008 Auto Cad 2013 Auto Cad Architecture 2012 Auto Cad Architecture 2016
|
erstellt am: 19. Feb. 2011 12:07 <-- editieren / zitieren --> Unities abgeben:
|