| |
| 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: Eigenschaftsmanager nutzen!? (308 mal gelesen)
|
elyias Mitglied Konstrukteur Alu-Metallbau
Beiträge: 57 Registriert: 18.02.2002 ACAD 2000i SP2 Athena ARX Wictop 4.5 Wicplot 6.5 Syscad 2000.08 WINdoof 2000 SP3 P4 2400MHz 3Dlabs Wildcat VP870<P>HP450C
|
erstellt am: 04. Jul. 2002 11:06 <-- editieren / zitieren --> Unities abgeben:
Hallo, gibt es eine Möglichkeit z.B. den Namen eines Objekts aus dem Eigenschaftsfenster mit einem Befehl, neben das Objekt zu kopieren? Zwecks einer schnelleren Beschriftung! Mit freundlichen Grüßen Jens Ehlers 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: 04. Jul. 2002 11:21 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
Zwecks einer schnelleren Beschriftung? könntest du dein Vorhaben mal etwas genauer umschreiben, und was soll denn da stehen, etwa "Kreis" "Linie" "MText" oder was? und wegen was genau möchtest du dies können ? Gruß Sebastian Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
elyias Mitglied Konstrukteur Alu-Metallbau
Beiträge: 57 Registriert: 18.02.2002 ACAD 2000i SP2 Athena ARX Wictop 4.5 Wicplot 6.5 Syscad 2000.08 WINdoof 2000 SP3 P4 2400MHz 3Dlabs Wildcat VP870<P>HP450C
|
erstellt am: 04. Jul. 2002 11:38 <-- editieren / zitieren --> Unities abgeben:
Hallo Sebastian, ich arbeite mit verschiedenen CAD-Aufsätzen von Profilherstellern (ALufassaden). Wenn ich einen Profilschnitt aus einigen Einzelteilen zusammenstelle, hat jedes Einzelteil seine korrekte Bezeichnung im Eigenschaftsmanager unter dem Feld - "Namen". Ich möchte nun, das diese Bezeichnung aus dem Feld "Namen" (Eigenschaftsmanager), neben das entsprechende Einzelteil kommt. Nur mit Kopieren und Einfügen geht das nicht! Gibt es dafür eine Lösung? Mit freundlichen Grüßen Jens Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 04. Jul. 2002 12:54 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
Hi, mach aus folgenden Zeilen eine .LSP-Datei und lade sie indem Du die Datei einfach aus dem Explorer in den Zeichenbereich zieht. Dann noch "Schreibname" in AutoCAD eingeben und los geht's: (defun c:SchreibName (/ wasdenn) (setq wasdenn (entsel "Objekt der Begierde wählen:")) (command "_text" pause "" "" (cdr (assoc 2 (entget (car wasdenn))))) )
[Diese Nachricht wurde von CADchup am 04. Juli 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
elyias Mitglied Konstrukteur Alu-Metallbau
Beiträge: 57 Registriert: 18.02.2002 ACAD 2000i SP2 Athena ARX Wictop 4.5 Wicplot 6.5 Syscad 2000.08 WINdoof 2000 SP3 P4 2400MHz 3Dlabs Wildcat VP870<P>HP450C
|
erstellt am: 04. Jul. 2002 13:19 <-- editieren / zitieren --> Unities abgeben:
Hallo CADchup, Vielen Dank, für Deine Bemühungen. Bis zu Punkt der "Begierden" läuft auch alles, nur kann ich kein Objekt auswählen??? Kannst Du mir auf die Sprünge helfen? Bei mir läuft ACAD2000i. Mit Freundlichen Grüßen Jens Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 04. Jul. 2002 16:44 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
Hallo Jens, warum der Code von CADchup nicht läuft versteh ich auch nicht so ganz. So: (defun c:SchreibName (/ wasdenn pt obj) (while (setq wasdenn (entsel "\nObjekt der Begierde wählen: ")) (if (assoc 2 (entget (car wasdenn))) (progn (setq pt (getpoint "\nTexteinfügepunkt wählen: ")) (setq obj (cdr (assoc 2 (entget (car wasdenn))))) (command "._text" pt "2.5" "" obj) (command) ) (progn (princ "\nDas gewählte Element hat keine Bezeichnung!") (princ "\nBitte nur Blöcke wählen!") ) ) ) ) läuft er auf jeden Fall mit Blöcken. Bei Attributen muß man ihn noch etwas umstricken. ------------------ hope this helps StephanJP
[Diese Nachricht wurde von StephanJP am 04. Juli 2002 editiert.] [Diese Nachricht wurde von StephanJP am 04. Juli 2002 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
elyias Mitglied Konstrukteur Alu-Metallbau
Beiträge: 57 Registriert: 18.02.2002 ACAD 2000i SP2 Athena ARX Wictop 4.5 Wicplot 6.5 Syscad 2000.08 WINdoof 2000 SP3 P4 2400MHz 3Dlabs Wildcat VP870<P>HP450C
|
erstellt am: 04. Jul. 2002 17:08 <-- editieren / zitieren --> Unities abgeben:
Hallo Stephan, Vielen Dank auch für Deine Bemühungen, aber warum kann ich denn keinen Block auswählen? Es wird nichts markiert, und nach dem klicken für den Texteinfügepunkt, kommt wieder die Abfrage nach der "Begierde". Sicher ist, das es sich um Blöcke handelt. Ich bin wohl zu bl... ??? Mit freundlichen Grüßen Jens Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
StephanJP Mitglied CAD-Admin
Beiträge: 834 Registriert: 09.11.2000
|
erstellt am: 04. Jul. 2002 17:21 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
Hallo Jens, das Proggi benutzt Deinen aktuellen Textstil mit der aktuellen Texthöhe.Wenn Du die Zeile (command "._text" pt "" "" obj) z.B. so (command "._text" pt "2.5" "" obj) veränderst, wird der Text mit 2.5 Zeichnungseinheiten auf dem aktuellen Layer gezeichnet. Das dann wieder die Abfrage nach der Begierde kommt soll nur die mehrfache Auswahlmöglichkeit bewirken. ------------------ hope this helps StephanJP Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADchup Ehrenmitglied V.I.P. h.c.
Beiträge: 3336 Registriert: 14.03.2001 Sicher ist, dass nichts sicher ist. Selbst das nicht. Joachim Ringelnatz
|
erstellt am: 05. Jul. 2002 09:03 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
Zugegeben, das Teil war mit seeehr heissen Nadel geklöppelt. Ursprünglich sollte das ein Einzeiler für einen Button sein. Nuja, hat nicht sollen sein... Wenn wir mal bei StephanJPs Variante bleiben, könnte man das Problem mit der Texthöhe so lösen: (defun c:SchreibName (/ wasdenn pt obj hgt); wenn Texthöhe bei jedem Aufruf gleich bleiben soll: hgt rausnehmen (while (setq wasdenn (entsel "\nObjekt der Begierde wählen: ")) (if (= "INSERT" (cdr (assoc 0 (entget (car wasdenn))))); kuckn obs ein Block is (progn (setq pt (getpoint "\nTexteinfügepunkt wählen: ")) (setq obj (cdr (assoc 2 (entget (car wasdenn))))) (if (= 0.0 (cdr (assoc 40 (tblsearch "STYLE" (getvar "TEXTSTYLE")))); Nach Texthöhe schaun ) (command "._text" pt (if hgt hgt (setq hgt (getstring)) ) "" obj ) (command "._text" pt "" obj) ) ) (progn (princ "\nDas gewählte Element hat keine Bezeichnung!") (princ "\nBitte nur Blöcke wählen!") ) ) ) ) Vielleicht hülfts... Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
elyias Mitglied Konstrukteur Alu-Metallbau
Beiträge: 57 Registriert: 18.02.2002 ACAD 2000i SP2 Athena ARX Wictop 4.5 Wicplot 6.5 Syscad 2000.08 WINdoof 2000 SP3 P4 2400MHz 3Dlabs Wildcat VP870<P>HP450C
|
erstellt am: 05. Jul. 2002 09:40 <-- editieren / zitieren --> Unities abgeben:
|
c@s Mitglied cad kommunikation
Beiträge: 269 Registriert: 07.08.2002 win 10<P> AutoCad 2018
|
erstellt am: 19. Jul. 2004 17:21 <-- editieren / zitieren --> Unities abgeben: Nur für elyias
hallo ich benutze schreibname jetzt schon längere zeit. das funktioniert super. ich würde gerne mit einem ähnlichen tool attribute schreiben. hat jemand einen lösungsansatz ? danke für euer interesse gruss jochen ------------------ N W-|-O S Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |