| |
| 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: Werkzeug zum hinzufügen eines Suffix zur AEC-Bemassung (6140 mal gelesen)
|
f.stemper Mitglied CAD-Administrator, Bauzeichner
Beiträge: 11 Registriert: 28.01.2004 AutoCad 2007, ADT 2007, Palladio 2007,
|
erstellt am: 29. Mrz. 2005 20:09 <-- editieren / zitieren --> Unities abgeben:
Hallo, Ich bin gerade dabei mir ein eigenes Werkzeug zum Hinzufügen eines Suffix zur AEC-Bemassung zu erstellen. Das Suffix soll für die Angabe der Öffnungshöhe bei einer manuellen Bemassung dienen. Ein Werkzeug zum öffnen des Dialogfeldes zur Maßtextüberschreibung habe ich ja noch hingekriegt. Befehl: ^C^C_DimTextOverride Jetzt muss ich nur immer den Suffix ergänzen, z.B. \X1.88{\H0.7x;\S5^;} für die Höhe von 1,885 incl. Hochzahl. Gibt es eine Möglichkeit das Werkzeug so zu erstellen das immer automatisch dieses Suffix ergänzt wird? Ich habe schon folgendes probiert: ^C^C_DimTextOverride s \X1.88{\H0.7x;\S5^;} Aber so geht es nicht. Was mache ich verkehrt? Oder geht es nicht automatisch? Danke! Frank
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 30. Mrz. 2005 00:01 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Hallo Frank, ich denke, mit einem Makro wird es nicht klappen. Der Backslash (\) wird als Pause für eine Benutzereingabe gewertet. Vielleicht wäre das ein Lösung (Start mit TFHB): (defun c:tfhb (/ oeffnh z hz oeffnh_hz) (setq dz (getvar "DIMZIN")) (setvar "DIMZIN" 0) (while (setq oeffnh (entsel "\nFenster,Tür oder TFK wählen:")) (if (eq "A_TuerFensterKombination" (cdr (assoc 8 (entget (car oeffnh)))) ) (setq oeffnh (cdr(assoc 40 (reverse(entget (car oeffnh)))))) (setq oeffnh (cdr(assoc 41 (reverse(entget (car oeffnh)))))) ) (setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2)))) (setq hz (substr (rtos oeffnh 2 3)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3)))) (if (eq hz "0") (setq oeffnh_hz (strcat "/" z)) (setq oeffnh_hz (strcat "/\\A1;" z "\\H.75x;\\S" hz ";")) ) (Command "_.-DimTextOverride" pause "S" oeffnh_hz "") ) (getvar "DIMZIN" dz) ) Gruß Carsten edit: Kleine Korrektur, hab grad gesehen, dass die Programmierer die Gruppencodes bei Tür-und Fensterkombinationen getauscht haben. Läuft jetzt auch dafür korrekt.
[Diese Nachricht wurde von flaschenpost am 30. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SaschaG Mitglied Bauingenieur
Beiträge: 124 Registriert: 03.06.2004 AutoCAD Architecture 2021 + D-A-CH-Erweiterung 2021 auf Win10x64
|
erstellt am: 30. Mrz. 2005 10:24 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
f.stemper Mitglied CAD-Administrator, Bauzeichner
Beiträge: 11 Registriert: 28.01.2004 AutoCad 2007, ADT 2007, Palladio 2007,
|
erstellt am: 30. Mrz. 2005 20:48 <-- editieren / zitieren --> Unities abgeben:
Hallo, Carsten danke für das kleine LISP. Funktioniert richtig gut. Habe noch zwei ergänzende Fragen: 1. Wie muss ich das LISP umstellen damit die Höhenbemassung unter der Masskette erscheint? Wenn ich \X1.88{\H0.7x;\S5^;} manuell ergänze dann steht das Maß nämlich unter der Masskette. 2. Ich habe hier einige große Altpläne in 2D wo ich die Höhenbemassung von Türen und Fenstern bei der AEC-Bemassung ergänzen soll. Alle Fenster haben eine Höhe von 1,885. Wie kann ich das LISP hierfür auf feste Werte umschreiben? Habe es versucht aber es klappt nicht. Muss mich wohl mal intensiver mit LISP befassen. Gruss, Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 30. Mrz. 2005 22:12 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Hallo Frank, ich habs mal in zwei Varianten gemacht (auch das mit den TFKs nochmal korrigiert). (defun c:tfb1 (/ oeffnh z hz oeffnh_hz dz) (setq dz (getvar "DIMZIN")) (setvar "DIMZIN" 0) (while (setq oeffnh (entsel "\nFenster,Tür oder TFK wählen:")) (if (eq "AEC_WINDOW_ASSEMBLY" (cdr (assoc 0 (entget (car oeffnh)))) ) (setq oeffnh (cdr(assoc 40 (reverse(entget (car oeffnh)))))) (setq oeffnh (cdr(assoc 41 (reverse(entget (car oeffnh)))))) ) (setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2)))) (setq hz (substr (rtos oeffnh 2 3)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3)))) (if (eq hz "0") (setq oeffnh_hz (strcat "/" z)) (setq oeffnh_hz (strcat "/\\A1;" z "\\H.75x;\\S" hz ";")) ) (Command "_.-DimTextOverride" pause "S" oeffnh_hz "") ) (setvar "DIMZIN" dz) ) (defun c:tfb2 (/ oeffnh z hz oeffnh_hz dz) (setq dz (getvar "DIMZIN")) (setvar "DIMZIN" 0) (while (setq oeffnh (entsel "\nFenster,Tür oder TFK wählen:")) (if (eq "AEC_WINDOW_ASSEMBLY" (cdr (assoc 0 (entget (car oeffnh)))) ) (setq oeffnh (cdr(assoc 40 (reverse(entget (car oeffnh)))))) (setq oeffnh (cdr(assoc 41 (reverse(entget (car oeffnh)))))) ) (setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2)))) (setq hz (substr (rtos oeffnh 2 3)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3)))) (if (eq hz "0") (setq oeffnh_hz (strcat "\\X" z)) (setq oeffnh_hz (strcat "\\X" z "\\H.75x;\\S" hz "^;")) ) (Command "_.-DimTextOverride" pause "S" oeffnh_hz "") ) (setvar "DIMZIN" dz) )
Für Deine Altpläne müßte das so gehen. Ofang aus, Befehl HBK und dann weitertippen, auch wenns mal abbricht :
(defun c:hbk (/ gp) (while (setq gp (getpoint "\nMaßtext tippen: ")) (Command "_.-DimTextOverride" gp "S" "\\X1.88{\\H0.7x;\\S5^;" "") ) ) Gruß Carsten [Diese Nachricht wurde von flaschenpost am 31. Mrz. 2005 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
tmoehlenhoff Moderator Gutzum, CAD-Therapeut und BIM-Priester ;-)
Beiträge: 2996 Registriert: 14.10.2002 AutoCAD, AutoCAD Architecture, Revit Architecture, Building Design und Honeymoon Suite und das ganze auch gerne mal auf einem Mac
|
erstellt am: 30. Mrz. 2005 22:17 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Meine Variante sah so aus: (defun c:tfhb (/ oeffnh z hz oeffnh_hz dz) (setq dz (getvar "DIMZIN")) (setvar "DIMZIN" 0) (if (setq oeffnh (entsel "\nFenster,Tür oder TFK wählen oder RETURN für manuelle Eingabe:")) (if (eq "AEC_WINDOW_ASSEMBLY" (cdr (assoc 0 (entget (car oeffnh)))) ) (setq oeffnh (cdr(assoc 40 (reverse(entget (car oeffnh)))))) (setq oeffnh (cdr(assoc 41 (reverse(entget (car oeffnh)))))) ) ;else (setq oeffnh (getreal "Höhe: ")) ) (setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2)))) (setq hz (substr (rtos oeffnh 2 3)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3)))) (if (eq hz "0") (setq oeffnh_hz (strcat "\\X" z)) (setq oeffnh_hz (strcat "\\X" z "\\H.75x;\\S" hz ";")) ) (Command "_.-DimTextOverride" pause "s" oeffnh_hz "") (setvar "DIMZIN" dz) ) aber da wahr Carsten n bisschen schneller und da er sich auch vom Layer verabschiedet hat ... sayonara Torsten Möhlenhoff ACAD-Systemhaus Bremen ------------------ Alles wirD guT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 30. Mrz. 2005 22:25 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
tmoehlenhoff Moderator Gutzum, CAD-Therapeut und BIM-Priester ;-)
Beiträge: 2996 Registriert: 14.10.2002 AutoCAD, AutoCAD Architecture, Revit Architecture, Building Design und Honeymoon Suite und das ganze auch gerne mal auf einem Mac
|
erstellt am: 31. Mrz. 2005 08:55 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Hi Carsten. Tja, es gibt doch immer wieder Überraschungen. Was man sich bei den unterschiedlichen Gruppencodes gedacht hat, kann ich leider auch nicht erklären... BTW: Bei den oberen beiden Funktionen soll es am Ende doch sicher ein setvar sein, oder? sayonara Torsten Möhlenhoff ACAD-Systemhaus Bremen ------------------ Alles wirD guT Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
flaschenpost Mitglied Architekt
Beiträge: 497 Registriert: 29.09.2004 ADT 2004 / Windows XP
|
erstellt am: 31. Mrz. 2005 10:38 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
f.stemper Mitglied CAD-Administrator, Bauzeichner
Beiträge: 11 Registriert: 28.01.2004 AutoCad 2007, ADT 2007, Palladio 2007,
|
erstellt am: 31. Mrz. 2005 11:00 <-- editieren / zitieren --> Unities abgeben:
Hallo Hier gibt`s echt für jedes Problem eine Lösung. Je 10 U`s für Carsten und Torsten. Carsten, Deine beiden Varianten sind Klasse! Das LISP für die Altpläne ist echt super. Wenn man erstmal richtig gelesen hat und den OFANG ausstellt! Torsten, Dein LISP rundet das ganze richtig ab. Durch die Möglichkeit eine Höhe einzugeben ist man absolut flexibel und kann das Tool sowohl 3D als 2D nutzen. Wäre doch vielleicht eine klasse Ergänzung für Deine TM-Tools zur AEC-Bemassung. Grüße aus dem sonnigen Soest Frank Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DoCoCa Mitglied Architektin
Beiträge: 7 Registriert: 04.08.2014 AutoCAD Architecture 2014
|
erstellt am: 19. Aug. 2014 10:59 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Hallo, ist jemand hier so nett mir zu sagen wo man diese ewig lange Formeln eingibt? Habe leider mit solch augeklügelten LISPs noch nicht gearbeitet... Danke im Voraus! D.
------------------ Grüße D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
SaschaG Mitglied Bauingenieur
Beiträge: 124 Registriert: 03.06.2004 AutoCAD Architecture 2021 + D-A-CH-Erweiterung 2021 auf Win10x64
|
erstellt am: 19. Aug. 2014 11:20 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
DoCoCa Mitglied Architektin
Beiträge: 7 Registriert: 04.08.2014 AutoCAD Architecture 2014
|
erstellt am: 19. Aug. 2014 11:30 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Ooooops, in der Tat. habe nicht gut darauf geachtet. Ist die Frage, ob so etwas noch überhaupt möglich ist. Ich kenne: rechte Maustaste, Text und linien überschreiben, \X2.01 oder ähnliches bei Suffix eintragen. Trotzdem Danke und gutes Gelingen! D. ------------------ Grüße D. Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
charlieBV Ehrenmitglied V.I.P. h.c. Bauzeichnerin
Beiträge: 9319 Registriert: 28.08.2003 Win 10 Pro
|
erstellt am: 19. Aug. 2014 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
SaschaG Mitglied Bauingenieur
Beiträge: 124 Registriert: 03.06.2004 AutoCAD Architecture 2021 + D-A-CH-Erweiterung 2021 auf Win10x64
|
erstellt am: 19. Aug. 2014 11:33 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Nein, soweit ich mich recht entsinne muss man dazu entsprechende Scriptdateien (mit den o.g. Befehlsfolgen) anlegen und über einen Befehl laden, dann kann das Script wie andere Funktionen über die Textkonsole aufgerufen und angewendet werden. Das hat nichts mit der Fuunktion "Text überschreiben" o.ä. zu tun... ------------------ Mit freundlichen Grüßen Sascha Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
charlieBV Ehrenmitglied V.I.P. h.c. Bauzeichnerin
Beiträge: 9319 Registriert: 28.08.2003 Win 10 Pro
|
erstellt am: 19. Aug. 2014 11:40 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Hallo Sascha, auch wenn ich auch nur Lisp-Anwender bin, da zwischendrin von Command "_.-DimTextOverride" pause "S" oeffnh_hz "" geredet wird, denke ich schon, dass das Lisp genau das macht, den Maßtext überschreibt. Und wenn man genau sein möchte, sind das auch keine Skript-Dateien, sondern Lisp-Dateien, aber das nur am Rande. ------------------ Gruß Yvonne Inoffizielle ADT-Help-Site "Gehe nicht, wohin der Weg führen mag, sondern dorthin, wo kein Weg ist, und hinterlasse eine Spur." Jean Paul Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
DoCoCa Mitglied Architektin
Beiträge: 7 Registriert: 04.08.2014 AutoCAD Architecture 2014
|
erstellt am: 19. Aug. 2014 11:41 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
|
SaschaG Mitglied Bauingenieur
Beiträge: 124 Registriert: 03.06.2004 AutoCAD Architecture 2021 + D-A-CH-Erweiterung 2021 auf Win10x64
|
erstellt am: 19. Aug. 2014 11:45 <-- editieren / zitieren --> Unities abgeben: Nur für f.stemper
Zitat: Original erstellt von charlieBV: Hallo Sascha,auch wenn ich auch nur Lisp-Anwender bin, da zwischendrin von [i]Command "_.-DimTextOverride" pause "S" oeffnh_hz "" geredet wird, denke ich schon, dass das Lisp genau das macht, den Maßtext überschreibt. Und wenn man genau sein möchte, sind das auch keine Skript-Dateien, sondern Lisp-Dateien, aber das nur am Rande. [/i]
Das technisch die Textüberschreibung genutzt wird, ist mir klar - ich hatte die Frage weiter oben nur so verstanden, das versucht wurde die Befehle in der Textüberschreibung einzugeben...und die LISP-Dateien sind doch aber am Ende auch "nur" Scripte, also Befehlsfolgen, oder? Ich gestehe, meine letzten Unterrichtsstunden in Programmierung liegen ein paar Jahre her, daher bitte nicht kleinlich sein... ------------------ Mit freundlichen Grüßen Sascha Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |