| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| PNY wird von NVIDIA zum Händler des Jahres gewählt – zum dritten Mal in Folge, eine Pressemitteilung
|
Autor
|
Thema: Beschriftungsmaßstab Ansichtsfenster ändern (710 / mal gelesen)
|
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 03. Mrz. 2022 21:41 <-- editieren / zitieren --> Unities abgeben:
Hallo zusammen, ganz kurz in Stichworten: entget auf GC 360 von einem Modellbereich-Ansichtsfenster (VIEWPORT). Da bekomme ich das hier: ((-1 . <Objektname: 26ef67c8e40> ) (0 . "DICTIONARY") (330 . <Objektname: 26ef67c8e30> ) (5 . "32C") (100 . "AcDbDictionary") (280 . 1) (281 . 1) (3 . "ASDK_XREC_ANNOTATION_SCALE_INFO") (360 . <Objektname: 26ef67c8e50> ) ) Dort wieder ein entget auf GG 360 Dann bekomme ich das: ((-1 . <Objektname: 26ef67c8e50> ) (0 . "XRECORD") (5 . "32D") (102 . "{ACAD_REACTORS") (330 . <Objektname: 26ef67c8e40> ) (102 . "}") (330 . <Objektname: 26ef67c8e40> ) (100 . "AcDbXrecord") (280 . 1) (90 . 1) (340 . <Objektname: 26ef5f1e6c0> ) ) Wenn ich den Beschriftungsmaßstab vom Ansichtsfenster ändere, ändert sich hier der GC 340. Eine andere Änderung hab ich bis jetzt nicht gefunden. Wenn ich GC 340 aber per Lisp ändere, ändert sich der Beschriftungsmaßstab vom Ansichtsfenster nicht. Ich möchte aber den Beschriftungsmaßstab vom Ansichtsfenster ändern. Was muss ich noch tun ? Was hab ich übersehen ? ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de 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: 03. Mrz. 2022 22:25 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
beim überfliegen, war mein erster Gedanke dictionary und (command "-scalelistedit"....) oder so ich kann aber auch völlig falsch liegen ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." -Lots of irritating superfluous parentheses!- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 04. Mrz. 2022 08:08 <-- editieren / zitieren --> Unities abgeben:
Hallo Heiko, der GC 340 vom XRECORD verweist ja auf einen Dictionaryeintrag und wenn ich über die Eigenschaften den Beschriftungsmaßstab ändere wird auf einen anderen verwiesen (den entsprechenden Beschriftungsmaßstab eben). Nur wenn ich genau diesen GC 340 per Lisp ändere, also eigentlich das selbe Ergebnis erzeuge, dann ändert sich das im Ansichtsfenster nicht . Deshalb denke ich dass ich an anderer Stelle da noch was anschubsen muss. Aber was ? Mit -scalelistedit dürfte das, denke ich, nichts zu tun haben. Ich will die Liste ja nicht bearbeiten. Wenn da jeman was weis dann her damit, bin für alle Schandtaten offen ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Archäologie Bubi Mitglied Archäologische Funddokumentation
Beiträge: 64 Registriert: 09.03.2021 AutoCAD Map 3D 2013 AutoCAD Map 3D 2023 AutoCAD Map 3D 2024 Faro AS-Built / TachyCAD BricsCAD V18 Elcovision ElTheo Agisoft Photoscan Agisoft Metashape Professional 1.7 Agisoft Metashape Professional 2.0
|
erstellt am: 04. Mrz. 2022 08:34 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
Meiner Erfahrung nach (die noch eher gering ist), kann man mit LISP die Dictionary-Einträge nur mit der Hilfe von VisualLISP/ActiveX anpassen. Ich bin selbst noch nicht ganz im VisualLISP/ActiveX aufgegangen, darum kann ich dir keine massgeschneiderte Lösung bieten, aber ich habe in einem meiner Codes das hier verbaut:
Code: ;;;-----------------------------------------------------------------------------------------------------------------------------------;;; ;;; Befehl: LockVP ;;; Zweck: Sperrt alle Ansichtsfenster in der Zeichnung ;;; Funktionen: Keine Unterfunktionen ;;; Autor: Augusto Goncalves / AutoCAD DevBlogger ;;; Angepasst: Fabian Bubendorf / Archäologische Bodenforschung Basel-Stadt ;;; URL: https://adndevblog.typepad.com/autocad/2013/01/lock-a-viewport-using-visual-lisp.html ;;; Datum: 2013/August Angepasst: 2021/September ;;; Argumente: Eingabe ohne Argumente ;;; Variablen: Doc --> Aktives Dokument zum bearbeiten (nur zum Laden) ;;; ss --> Selection Set mit den Viewports ;;; Index --> Counter für die einträge von ss ;;; Lst --> Liste mit allen Objeckten (Obj) ;;; VpLk --> Statuts des Locks vom Viewport ;;; Func-Key: Obj ;;; Code: (defun LockVP ( / Doc ss Index Lst VpLk Obj ) (setq Doc (vla-get-activeDocument (vlax-get-acad-object))) (setq ss (ssget "_X" (list '(0 . "VIEWPORT")))) (if ss (repeat (setq Index (sslength ss)) (setq Lst (cons (vlax-ename->vla-object (ssname ss (setq Index (1- Index)))) Lst)) );end repeat );end if (foreach Obj Lst (setq VpLk (vlax-get-property Obj 'DisplayLocked)) (if (= VpLk :vlax-false) (vlax-put-property Obj 'DisplayLocked :vlax-true) );end if );end foreach (princ) );end defun;;;-----------------------------------------------------------------------------------------------------------------------------------;;;
Vielleicht kann dir das ja auf die Sprünge helfen. ------------------ ___________________________________________ Bubi spiele, Bubi glücklich! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 04. Mrz. 2022 08:50 <-- editieren / zitieren --> Unities abgeben:
|
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 04. Mrz. 2022 09:46 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
Hi, was hast du beim G 340 geändert? GC 300 ist der Name GC 140 und GC 141 sind die Faktoren Regeneriert hast du sicherlich am Ende auch. ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." -Lots of irritating superfluous parentheses!- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 04. Mrz. 2022 10:19 <-- editieren / zitieren --> Unities abgeben:
Ich hab hier: ((-1 . <Objektname: 26ef67c8e50> ) (0 . "XRECORD") (5 . "32D") (102 . "{ACAD_REACTORS") (330 . <Objektname: 26ef67c8e40> ) (102 . "}") (330 . <Objektname: 26ef67c8e40> ) (100 . "AcDbXrecord") (280 . 1) (90 . 1) (340 . <Objektname: 26ef5f1e6c0> ) ) den Objektnamen im GC 340 geändert auf den Beschriftungsmaßstab den ich haben will. Wie gesagt, wenn ich den Beschriftungsmaßstab in den Eigenschaften ändere, ändert sich das genau hier. Deshalb kam ich ja auf die Idee dass ich das auch genau hier ändere. Funzt aber nicht. Ja, Regen nutz auch nichts. Regenall auch nicht. Ins Modell wechseln und wieder zurück auch nicht. Speichern und neu aufmachen auch nicht. Ich hab auch zwei DXF gemacht (vorher/nachher) hab aber auch da bis jetzt nichts gefunden (bin aber noch nicht ganz durch). Zitat: GC 300 ist der Name GC 140 und GC 141 sind die Faktoren
In welchem Objekt bist du da ? ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de 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: 04. Mrz. 2022 11:08 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
im GC 340 ((-1 . <Objektname: 216760a3770> ) (0 . "SCALE") (5 . "807") (102 . "{ACAD_REACTORS") (330 . <Objektname: 2165b8d64f0> ) (102 . "}") (330 . <Objektname: 2165b8d64f0> ) (100 . "AcDbScale") (70 . 0) (300 . "1:10") (140 . 1000.0) (141 . 10.0) (290 . 0))) ------------------ Mfg Heiko Elefantenjagd in Afrika "... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..." -Lots of irritating superfluous parentheses!- Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 04. Mrz. 2022 11:42 <-- editieren / zitieren --> Unities abgeben:
Ah ... im Objekt vom Beschriftungsmaßstab. Ja, zu diesem Objekt wird ja im GC 340 verlinkt und den Link möchte ich auf ein anderes SCALE-Objekt ändern. An dem SCALE-Objekt, also dem Beschriftungsmaßstab, möchte ich nichts verändern. ------------------ Geht nicht, gibts nicht Gruß Andreas http://kraus-cad.de Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Meldin Mitglied
Beiträge: 398 Registriert: 15.07.2011 ACA2020 Windows10
|
erstellt am: 04. Mrz. 2022 12:08 <-- editieren / zitieren --> Unities abgeben: Nur für Andreas Kraus
ich weis nicht ob es richtig verstenden habe um was es hier geht. habe daher einmal nur was code hier zum testen. :-) Code: (and (setq entName (car (entsel "\nWähle Ansichtsfenster: "))) (setq entLst (entget entName)) (setq entType (cdr (assoc 0 entLst))) (or (= entType "VIEWPORT") (and (= entType "LWPOLYLINE") (setq entName (cdr (cadr (member '(102 . "{ACAD_REACTORS") entLst)) ) ) (setq entLst (entget entName)) (setq entType (cdr (assoc 0 entLst))) ) ) (= entType "VIEWPORT") (setpropertyvalue entName "AnnotationScaleName" "1:2");;;; Hier der BS-maßstab !!! )
------------------ Gruß Wolfgang [Diese Nachricht wurde von Meldin am 04. Mrz. 2022 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Andreas Kraus Mitglied Elektrotechniker
Beiträge: 1455 Registriert: 11.01.2006 WIN 10 ACAD 2022 BricsCAD V23
|
erstellt am: 04. Mrz. 2022 12:39 <-- editieren / zitieren --> Unities abgeben:
|