| |
| 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: DOTS-Schraffuren auf SOLID ändern (1409 mal gelesen)
|
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003 Win 10 bzw. 11 / 64 Pro AutoCAD MAP 3D 2023 BricsCAD 24
|
erstellt am: 30. Sep. 2009 19:51 <-- editieren / zitieren --> Unities abgeben:
Guten Abend ich muss automatisch bestehende Schraffuren aus DOT in SOLID umwandeln. Ein Blick auf die Gruppencodes zeigt doch massive Strukturunterschiede. Gibt es hier eine einfache Lösung oder wird das aufwendiger ...? Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) [Diese Nachricht wurde von Peter2 am 30. Sep. 2009 editiert.] 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: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 30. Sep. 2009 20:01 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
Eine einfache Lösung (mit Command) gibts fast immer. Code: (defun C:modhatch ( / hatchobj) (Prompt "\nUmwandlung des Schraffurmusters zu SOLID") (setq hatchobj (car (entsel "\Scharffurobjekt wählen:"))) (if (and (= "HATCH" (cdr (assoc 0 (entget hatchobj))))) (command "_-hatchedit" hatchobj "_prop" "Solid") ) )
------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Peter2 Ehrenmitglied V.I.P. h.c.
Beiträge: 3849 Registriert: 15.10.2003
|
erstellt am: 30. Sep. 2009 20:12 <-- editieren / zitieren --> Unities abgeben:
Zitat: Original erstellt von CAD-Huebner: ...(command "_-hatchedit" hatchobj "_prop" "Solid")...
Oops - da ist mir wieder ein Standard entgangen (hätte ich mit Doppelklick auch finden können ) Besten Dank und guten Abend Peter ------------------ Für jedes Problem gibt es eine einfache Lösung. Die ist aber meistens falsch. ;-) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 01. Okt. 2009 09:17 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
Hi Peter, mal nen Versuch ohne command (setq hatch (vlax-ename->vla-object (car (entsel "\nHatch:")))) (vla-SetPattern hatch acHatchPatternTypePreDefined "SOLID") ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." (www.uni-leipzig.de/~rotheh/elefant.htm) 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: 9803 Registriert: 01.12.2003 One AutoCAD 2.5 - 2024, AutoCAD, Civil 3D, Win10/Win11
|
erstellt am: 03. Sep. 2020 19:41 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
Ich bin heute per PM gefragt worden, ob man das makro auch noch mit einem anschließenden Farbwechsel verbinden kann. Klar kann man :=) Code: ; CAD-Huebner - 03.09.2020 ; kleine Erweiterung für den Farbwechsel mit EIGÄNDR / _CHPROP (defun C:modhatch ( / hatchobj) (Prompt "\nUmwandlung des Schraffurmusters zu SOLID mit TrueColor weiß") (setq hatchobj (car (entsel "\nSchraffurobjekt wählen:"))) (if (and (= "HATCH" (cdr (assoc 0 (entget hatchobj))))) (progn (command "_-hatchedit" hatchobj "_prop" "Solid") (command "_chprop" hatchobj "" "_color" "_Truecolor" "255,255,255" "") ) ) )
------------------ Mit freundlichem Gruß Udo Hübner www.CAD-Huebner.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Hämmy Mitglied Technischer Zeichner
Beiträge: 87 Registriert: 01.04.2020 Windows 10 Professional 64-Bit Intel Core i7-3770 3,40GHz 32,0 GB RAM Grafikkarte Radeon RX 470
|
erstellt am: 09. Sep. 2020 07:10 <-- editieren / zitieren --> Unities abgeben: Nur für Peter2
|