| |
| 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 neue NVIDIA RTX A400 und die A1000 Grafikkarte, eine Pressemitteilung
|
Autor
|
Thema: Blöcke beschriften (458 mal gelesen)
|
quepasa Mitglied Metallbautechniker
Beiträge: 186 Registriert: 02.02.2004
|
erstellt am: 03. Mrz. 2004 00:10 <-- editieren / zitieren --> Unities abgeben:
|
cadffm Moderator 良い精神
Beiträge: 22275 Registriert: 03.06.2002 System: F1 und Google
|
erstellt am: 03. Mrz. 2004 07:40 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
Moin erstmal, wenn sich sonst keiner zu fragen traut... Konstante und variable Attribute sind dir ein Begriff ? - Warum nicht so ? Oder einfach als Text der Blockdefinition hinzufügen - evtl. so ? Welche Software nutzt du ? ( Infothread im Forum lesen - "1.Thema..." )Entschuldigung wenn ich dir jetzt auf die Füße getreten bin, aber 1. denke ich da ist jmd verwirrt das er das nicht im Block definiert sondern als Text haben möchte, 2. selbst wenn man das als Textobjekt haben möchte gibt es da evtl schnellere Wege. Also: Mehr Info´s bitte - bis denne
------------------ - Sebastian Mattis - 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: 03. Mrz. 2004 08:22 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
Vielleicht sowas als ausbaufähige Grundvariante: (defun c:INSERT_GETNAME ( / OBJEKT OBJEKTDATEN NAME PKT ABBRUCH) (if (and(setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq OBJEKT (ssname OBJEKT 0))) (progn (setq OBJEKTDATEN (entget OBJEKT)) (setq NAME (cdr(assoc 2 OBJEKTDATEN))) (if (setq PKT (getpoint "\nStartpunkt der Führung : ")) (progn (command ".leader" PKT) (while (not ABBRUCH) (princ "\nNächster Punkt <Ende>: ") (command pause) (if (equal PKT (getvar "LASTPOINT")) (setq ABBRUCH 'T) (setq PKT (getvar "LASTPOINT")) ) ) (command NAME "") ) ) ) (princ "\nkeine Blockreferenz gewählt") ) (princ) ) ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Caladia Ehrenmitglied V.I.P. h.c.
Beiträge: 2546 Registriert: 04.03.2002 ACAD2009 ACAD2010 SP2 ACAD2011 SP1 ABDS-S 2012 SP2 ABDS-S 2013 SP2 ABDS-S 2014 SP1 ABDS-S 2015 SP2 ABDS-S 2016 Expresstools A3-Makroboard 16-Tasten Lupe Impression 3 Win7 64bit IE11 Firefox Office2003 SP3
|
erstellt am: 03. Mrz. 2004 09:14 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
|
quepasa Mitglied Metallbautechniker
Beiträge: 186 Registriert: 02.02.2004
|
erstellt am: 03. Mrz. 2004 18:06 <-- editieren / zitieren --> Unities abgeben:
hallo Danke für die schnelle Antwort Also, ich arbeite mit ACAD 2004, XP Professional / Attribute, konstante oder variabel, kenn ich nich / als Text geht nicht weil wir ihn manchmal brauchen oder die Blöcke spiegeln. frohes schaffen Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
quepasa Mitglied Metallbautechniker
Beiträge: 186 Registriert: 02.02.2004 Win7, SWX 2010, ACAD 2010, i7/965, FX 1700, 12Gb RAM, Honda CB500T, Alfa 75 www.psmetalltechnik.ch
|
erstellt am: 03. Mrz. 2004 18:38 <-- editieren / zitieren --> Unities abgeben:
hallo, bin LISP Anfänger schaut gut aus der Code, bring in nur nich zum laufen Danke für die Hilfe mfG Paul Zitat: Original erstellt von CADmium: Vielleicht sowas als ausbaufähige Grundvariante: (defun c:INSERT_GETNAME ( / OBJEKT OBJEKTDATEN NAME PKT ABBRUCH) (if (and(setq OBJEKT (ssget "_:S" '((0 . "INSERT")))) (setq OBJEKT (ssname OBJEKT 0))) (progn (setq OBJEKTDATEN (entget OBJEKT)) (setq NAME (cdr(assoc 2 OBJEKTDATEN))) (if (setq PKT (getpoint "\nStartpunkt der Führung : ")) (progn (command ".leader" PKT) (while (not ABBRUCH) (princ "\nNächster Punkt <Ende>: ") (command pause) (if (equal PKT (getvar "LASTPOINT")) (setq ABBRUCH 'T) (setq PKT (getvar "LASTPOINT")) ) ) (command NAME "") ) ) ) (princ "\nkeine Blockreferenz gewählt") ) (princ) )
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: 04. Mrz. 2004 08:00 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
Ich zitiere die Anleitung von www.defun.de ->Hilfe->Training : Eigene AutoLISP- Anwendungen laden: Zunächst den Code in einer Datei mit der Erweiterung LSP in einem der AutoCAD-Supportpfade speichern - re.lsp Anwendung laden - In der Befehlszeile: (load“dateiname.lsp“) - Über das MenüMenü: Extras -> Anwendungen, Datei auswählen, Laden Danach können die Funktionen durch Eingabe der darin definierten (defun c:NAME () in der AutoCAD- Befehlszeile aufgerufen werden. BSP: (load“re.lsp“) Befehl: re .. also hier Textselektierung im Beitrag, copy - paste in einer Textdatei und speichern unter "INSERT_GETNAME.lsp", dann (load "INSERT_GETNAME.lsp") und in der Befehlszeile INSERT_GETNAME ------------------ - Thomas - Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WoK Mitglied
Beiträge: 116 Registriert: 19.05.2003 WinXPSP2 ADT 2008, ET ACLT 2008, LT-Extender, ET
|
erstellt am: 04. Mrz. 2004 09:40 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
|
Alpschorsch Mitglied Dipl.-Ing.(FH) Architektur
Beiträge: 735 Registriert: 18.11.2003 Grafikkarte: Rage128 Fury ProII 32MB Prozzesor ~1,5MHz Arbeitsspeicher~1,3GB Windows 2000 Professional ACAD 2004 Express Tools(deutsch) Photoshop 7.0 Quark Express 5.5 Acrobat 5.0
|
erstellt am: 04. Mrz. 2004 09:56 <-- editieren / zitieren --> Unities abgeben: Nur für quepasa
|
quepasa Mitglied Metallbautechniker
Beiträge: 186 Registriert: 02.02.2004
|
erstellt am: 04. Mrz. 2004 11:33 <-- editieren / zitieren --> Unities abgeben:
|