| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| CIDEON Whitepaper: Elektronik und Mechanik redundanzfrei vereinen: Der Weg zur mechatronischen Stückliste, ein Whitepaper
|
Autor
|
Thema: Linientypfaktoren um Faktor X ändern (nicht über LKFAKTOR) (1913 / mal gelesen)
|
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003 ACAD2012 MEP, ACAD2015 MEP Revit 2015 Windows 7, 64 bit
|
erstellt am: 18. Mai. 2016 12:22 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, habe hier gesucht, aber nix genaues gefunden. Ich fürchte für das Problem gibts keine Hauslösung. Ich möchte in einer Zeichnung den Linientypfaktor aller markierten Linien um den Faktor X verändern. Z.B. Faktor 20: Alle Linien deren Linientypfaktoren auf 1 stehen sollen nach dem Befehl, auf LTF 20 stehen, alle Linien deren Linientypfaktoren auf 2 stehen sollen nach dem Befehl, auf LTF 40 stehen... usw. Den LKFAKTOR kann ich in diesem Fall nicht ändern (können schon, wollen nicht). Hat da jemand einen Tipp, oder eine LISP ? ------------------ Mit freundlichen Grüssen Attilio Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Fiedelzastrow Mitglied Architekt / Bauzeichner
Beiträge: 993 Registriert: 05.07.2007 Win XP AutoCAD 2006 AutoCAD 2009 AutoCAD 2012 LT
|
erstellt am: 18. Mai. 2016 12:29 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Hallo Attilo, benutz doch den Befehl sauswahl, dort Linien auswählen und nach entprechendem Linientypfaktor "filtern" lassen und danch im Eigenschaftsfenster den Wert für alle ausgeählten Linien ändern. Das würde für Linien, Polylinien, Kreise, etc. ungefähr so lange dauern, wie ich diesen Beitrag geschrieben habe. Gruß Robert Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADmium Moderator Maschinenbaukonstrukteur
Beiträge: 13527 Registriert: 30.11.2003 Hinweis: Meine Mitarbeit auf CAD.DE ist fakultativ, unentgeltlich und beruht nur auf einem ausgeprägtem Helfersyndrom.
|
erstellt am: 18. Mai. 2016 12:35 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
|
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003 ACAD2012 MEP, ACAD2015 MEP Revit 2015 Windows 7, 64 bit
|
erstellt am: 18. Mai. 2016 12:51 <-- editieren / zitieren --> Unities abgeben:
Hallo Fiedel, ich habe ja im Auswahlsatz Linien mit unterschiedlichsten Linientypfaktoren (1,2,20, etc...). Ich kann das ja nicht global ändern auf z.B. 50, sondern muss ja jeden Linentypfaktor einzeln betrachten. Im Auswahlsatz habe ich Linien deren LTF 1,2 und 20 ist. Am Ende sollen die LTF 20, 40 und 400 sein (also Faktor 20). @Cadmium: Danke für den Tip, werde ich gleich ausprobieren. ------------------ Mit freundlichen Grüssen Attilio Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Attilio Mitglied Technischer Zeichner
Beiträge: 150 Registriert: 18.02.2003 ACAD2012 MEP, ACAD2015 MEP Revit 2015 Windows 7, 64 bit
|
erstellt am: 18. Mai. 2016 13:40 <-- editieren / zitieren --> Unities abgeben:
|
whf_muc Mitglied Techniker
Beiträge: 278 Registriert: 22.05.2004 Fujitsu Celsius M770, Xeon 2125, 4,0 GHz, 32 GB RAM, Quadro P2000, Windoof 10 Pro for Workstations - div. liNear Haustechnik Aufsätze - Autocad 2024
|
erstellt am: 20. Mai. 2016 12:30 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Hallo cadmium hört sich gut, bricht bei mir nach Auswahl allerdings mit folgender Meldung ab: Befehl: NEWLTSCALE Objekte wählen: Entgegengesetzte Ecke angeben: 5 gefunden Objekte wählen: ; Fehler: Fehlerhafter Argumenttyp: lentityp (0 (113.743 226.556 0.0)) Befehl: Gruß Torsten
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 20. Mai. 2016 12:36 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 20. Mai. 2016 12:47 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Sorry: Du lässt den Code wohl auf Objekte los, die sich auf gesperrten Layern befinden, diese mußt du zuvor natürlich entsperren. In der Programmierung sollte man so Objekte entweder übergehen ("normal"), oder Layerstand merken, entsperren, Objekte ändern, Layerstand wieder herstellen. Es ist nur ein funktionierendes Codebeispiel, kein fertiges Programmm für den Produktiveinsatz. ------------------ CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
vision Mitglied
Beiträge: 113 Registriert: 27.10.2003 AutoCAD 2015 Expresstools Windows 10
|
erstellt am: 20. Mai. 2016 19:11 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
|
whf_muc Mitglied Techniker
Beiträge: 278 Registriert: 22.05.2004 Fujitsu Celsius M770, Xeon 2125, 4,0 GHz, 32 GB RAM, Quadro P2000, Windoof 10 Pro for Workstations - div. liNear Haustechnik Aufsätze - Autocad 2024
|
erstellt am: 23. Mai. 2016 07:29 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
hallo ich fands recht praktisch und wollte es mal "archivieren" - haben den Code kopiert und newltscale.lsp genannt. Dann einfach zum Testen ne neue Zeichnung mit ein paar Linien (auf Layer 0) mit unterschiedlichen LTF erstellt und probiert. Dann brichts hat leider mit der Meldung ab. Gruß Torsten Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Bernd P Ehrenmitglied V.I.P. h.c. cook-general
Beiträge: 3424 Registriert: 07.06.2001 W10-64bit, AMD Ryzen 7 3700X,32GB RAM, Sapphire Pulse Radeon RX 570 8G G5, Canon TX-3000 MFP, Maus Cherry MW4500, Sub:Infrastructure Design Suite, Office 365
|
erstellt am: 23. Mai. 2016 07:51 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Zitat: Original erstellt von whf_muc: Dann brichts hat leider mit der Meldung ab.
servus, aber es übernimmt den neuen Faktor trotz Fehlermeldung... ------------------ <----- Bitte Systeminfo eintragen, warum siehst du hier. Wünsche: Tabllen (XLS,ODS) FDO nativ einbinden, FDO-WMTS, richtige Ebenen für Layer, Erweiterter Attribut-Editor "auffrischen", dyn. Xrefs, mehrere modell Bereiche, Halo4Texte, verschränkte Attribute, Linientypen überarbeiten (doppellinien) , XREF>VISRETAIN pro XREF Fehler: FDORasterdaten im Layout Richtigen Maßstab verwenden, funktionierende updates u. erweiterungen inkl. installationsroutinen, Fehler zwischen Normal MAP Civil beheben Schöne Grüsse aus der Steiermark Bernd P. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 23. Mai. 2016 07:55 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
|
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 23. Mai. 2016 08:22 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Zitat: Original erstellt von cadffm: Tausche die Zeile (ssnamex AWS) gegen (vl-remove-if 'listp (mapcar 'cadr (ssnamex AWS))),
Dann kommt auch nur eine (wenn auch andere) Fehlermeldung (Fehlerhafter Argumenttyp: consp <Objektname: 28cd3450> ). Ich denke es hängt damit zusammen, daß die If-Schleife einmal zu oft durchlaufen wird. Habs aber noch nicht bis zu Ende ausgetüftelt (muß jetzt weg). Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 23. Mai. 2016 08:27 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
EDIT: Also noch einmal ganz neu: ;;------------------------------------------------------------;; ;; Author: cadmium ;; ;;------------------------------------------------------------;; ;; LT Faktor auf 1 TW aus Forum ;; ;;------------------------------------------------------------;; (defun C:NEWLTSCALEx10 (/ AWS) (vl-load-com) (if(setq AWS(ssget)) (mapcar '(lambda(X / Y) (if(and(setq Y(vlax-ename->vla-object X)) (setq LF(vl-catch-all-apply 'vla-get-linetypescale (list Y))) ) (vl-catch-all-apply 'vla-put-linetypescale (list Y (* LF 10))) ) ) (vl-remove-if 'listp (mapcar 'cadr (ssnamex AWS))) ) ) (princ) ) ;;------------------------------------------------------------;; ;; End of File ;; ;;------------------------------------------------------------;; Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
jupa Ehrenmitglied V.I.P. h.c. Ruheständler
Beiträge: 6052 Registriert: 16.09.2004 Windows 10 64bit, ACAD Rel. 14 - ACAD 2023
|
erstellt am: 23. Mai. 2016 17:12 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
Zitat: Original erstellt von cadffm: Also noch einmal ganz neu: ...
Nun paßt's. Danke auch von meiner Seite. Jürgen ------------------ Bildung kommt nicht vom Lesen, sondern vom Nachdenken über das Gelesene. (Carl Hilty) Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
whf_muc Mitglied Techniker
Beiträge: 278 Registriert: 22.05.2004 Fujitsu Celsius M770, Xeon 2125, 4,0 GHz, 32 GB RAM, Quadro P2000, Windoof 10 Pro for Workstations - div. liNear Haustechnik Aufsätze - Autocad 2024
|
erstellt am: 24. Mai. 2016 07:13 <-- editieren / zitieren --> Unities abgeben: Nur für Attilio
|