| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| | |
 | PNY präsentiert die PRO Elite™ High Endurance microSD-Flash-Speicherkarten für Videoüberwachung und kontinuierliche Aufzeichnung, eine Pressemitteilung
|
|
Autor
|
Thema: Linientypen Neu laden?? (1190 mal gelesen)
|
c.schojer
Mitglied
   Beiträge: 299
Registriert: 23.05.2007 Autocad 2018
|
erstellt am: 10. Sep. 2008 08:46  <-- editieren / zitieren -->   Unities abgeben:          
|
CAD-Huebner
Ehrenmitglied V.I.P. h.c.
Verm.- Ing., ATC-Trainer
Beiträge: 9807
Registriert: 01.12.2003 AutoCAD 2.5 - 2022, LDD, MDT, RD, ADT, Civil
Inventor AIP 4-11, 2008 -2022
Win 10
|
erstellt am: 10. Sep. 2008 09:20 <-- editieren / zitieren --> Unities abgeben: Nur für c.schojer 
z.b. ganz simpel via sendcommand Befehl: -LINIENTYP Laden * evt. vorher Sysvar Expert setzen, damit die Frage nach dem Überschreiben unterdrückt wird.
------------------
Mit freundlichem Gruß
Udo Hübner
www.CAD-Huebner.de [Diese Nachricht wurde von CAD-Huebner am 10. Sep. 2008 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
c.schojer
Mitglied
Beiträge: 299
Registriert: 23.05.2007 Autocad 2018
|
erstellt am: 10. Sep. 2008 10:54 <-- editieren / zitieren --> Unities abgeben:
Danke! Mit sendcommand ginge das ganze so aber wie gehts mit VBA??? Ich will nicht ständig mit jeder Autocad Version ändern!
Sub Alle_Linientypen_Neu_Laden()
Dim Variable, CMD
Variable = ThisDrawing.GetVariable("Expert")
ThisDrawing.SetVariable "Expert", 3
ThisDrawing.SetVariable "Filedia", 0
CMD = "-LINIENTYP Laden *" & VBA.Chr(13) & VBA.Chr(13) & VBA.Chr(10)
ThisDrawing.SendCommand (CMD)
ThisDrawing.SetVariable "Expert", Variable
ThisDrawing.SetVariable "Filedia", 1 End Sub Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
| |
KlaK
Ehrenmitglied V.I.P. h.c.
Dipl. Ing. Vermessung, CAD- und Netz-Admin
Beiträge: 2855
Registriert: 02.05.2006 AutoCAD LandDesktop R2 bis 2004
Civil 3D 2005 - 2025
Plateia, Canalis
Visual Basic
|
erstellt am: 17. Sep. 2008 11:06 <-- editieren / zitieren --> Unities abgeben: Nur für c.schojer
Hallo, warum verwendest Du nicht ThisDrawing.Linetypes.Load (siehe auch:
Entwicklerhandbuch für ActiveX und VBA > Erstellen und Bearbeiten von AutoCAD-Elementen > Verwenden von Layern, Farben und Linientypen >
Arbeiten mit Linientypen) Grüße,
Klaus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Foren auf CAD.de
| 
