---

Hallo Forum

Vor vielen Jahren entstand hier im Forum eine kleine aber feine Funktion, mit der man im ADT2005 oder ACA2008 an manuelle Bemaßungen von Fenstern, Türen oder TF-Kombinationen die Höhe dazuschreiben konnte. Dieses Lisp-Tool funktioniert leider in ACA2011 nicht mehr.
Habt ihr eine Ahnung, wo der Fehler liegt?

Code:

---

;; ADT-Öffnungshöhe.lsp
;;
;; Ergänzt Tür oder Fensterhöhen bei manueller AEC Bemassung
;; Entstanden aus Beiträgen im Forum CAD DE zum Thema
;; Dank an tmoehlenhoff und flaschenpost
;; 31 03 2005 Frank Stemper
;;;
;;;--MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----MAIN----
;;;
(defun c:tfhb (/ oeffnh z hz hz1 hz2 oeffnh_hz dz ech)
(setq ech (getvar "CMDECHO"))
(setq dz (getvar "DIMZIN"))
(setvar "DIMZIN" 0)
(if (setq oeffnh (entsel "\nFenster,Tür oder Tür-Fenster-Kombination wählen \noder 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: "))
)
(if (= ech 0)
(princ "Zu ändernden Bemaßungstext wählen:")
);end
;
; Original: (setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2)))),
; ersetzt durch nachfolgende Änderung
;
; Änderung für cm-Anzeige, wenn Höhenangabe unter 1 Meter
(if (>= oeffnh 1)
(setq z (substr (rtos oeffnh 2 3) 1 (strlen (rtos oeffnh 2 2))))
;else
(setq z (substr (rtos oeffnh 2 3) 3 2))
);end
; Ende der Änderung 15.11.2005 Heck

; Änderung für mm-Anzeige, 1-stellig/2-stellig
; letzten 2 Stellen der Öffnungshöhe auslesen (Prüfwert)
(setq hz2 (substr (rtos oeffnh 2 4)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3))))
; letzte Stelle des Prüfwertes auslesen
  (setq hz1 (substr hz2 2))
; Prüfung  0 gleich 1-stellig, sonst 2-stellig
  (if (eq hz1 "0")
(setq hz (substr (rtos oeffnh 2 3)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3))))
;else
(setq hz (substr (rtos oeffnh 2 4)(strlen (rtos oeffnh 2 3))(strlen (rtos oeffnh 2 3))))
);end
; Ende der Änderung 16.11.2005 Heck
; Prüfung hz: 0 gleich ohne Hochzahl, sonst mit Hochzahl
(if (eq hz "0")
(setq oeffnh_hz (strcat "\\X" z))
;else
(setq oeffnh_hz (strcat "\\X" z "\\H.7x;\\S" hz ";"))
)
(Command "_.-DimTextOverride" pause "s" oeffnh_hz "")
(setvar "DIMZIN" dz)
);end
;;;
;;;--------------------------------------------------ENDE---------------------------------------------------
;;;
;;;
(princ "\n")
(princ "\ADT-Öffnungshöhe.lsp geladen ")
(princ "\nAufruf: tfhb" )
(princ "\n")

---

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,
um die Geschichte zu Vereinfachen hättest du schreiben können, was als Fehlermeldung kommt (wenn eine kommt). Was du auch testen kannst, ob die aus der Zeile

(Command "_.-DimTextOverride" pause "s" oeffnh_hz "")

hervorgehenden Befehle überhaupt funktionieren.
_.-DimTextOverride
s

Ich bin aber kein Lispler, allerdings wäre das mein Ansatz.

------------------
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

---

Hallo,
Das manuelle Eintragen bei der Funktion geht (Option RETURN).
Aber eigentlich markiert man das Fenster und dann trägt das Tool die Öffnungshöhe automatisch zur Breite des Fensters ein.
(Bei AEC-Bemaßung Standard, ohne Maßketten)
Nur leider kommt bei ACA2011 die Fehlermeldung: "Fehlerhafter Argumenttyp: numberp: nil" ???
Bei ACA2008 ging es noch.
Was ist bei ACA2011 jetzt anders, so dass das Tool die Fensterbreite nicht mehr auslesen kann und dieses einträgt?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

ich muss mal in eigener Sache diesen Beitrag nach oben schubsen.

Da ich ja bekanntlich absoluter Lisp-Legastheniker bin, aber dennoch dieses Tool in seiner eigentlichen Bestimmung benötige (automatisch die Öffnungshöhe auslesen zu können), mal meine schamlose Frage an die Lisp-Fraktion:
Kann man das mit vertretbarem Aufwand für 2011/2012 gangbar machen?

UŽs in biblischem Ausmaß, jahrelange Anerkennung sowie Berücksichtigung in meinen Abendgebeten werden der (un)gerechte Lohn sein...  

Fehlermeldung in ACA 2011:
Fenster,Tür oder TFK wählen oder RETURN für manuelle Eingabe:*Abbruch*
Fehlerhafter Argumenttyp: numberp: nil

------------------
Gruß, Mario

Erfahrungen macht man immer kurz nachdem man sie gebraucht hätte.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi,

die Höhe kann in aktuellen Versionen nicht mehr direkt aus der Liste der Elementdaten ausgelesen werden.

Mach mal aus dem

(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))))))
)

ein

(setq oeffnh (vla-get-Height (vlax-ename->vla-object (car oeffnh))))

und füge sicherhaltshalber unter der (defun c:tfhb Zeile ein

(vl-load-com)

ein, dann sollte es wieder klappen.

sayonara
Torsten
ACAD-Systemhaus Bremen

------------------
Tadle nicht den Fluss, wenn Du ins Wasser fällst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Selber Hi,

da sage ich ganz artig Danke!

------------------
Gruß, Mario

Erfahrungen macht man immer kurz nachdem man sie gebraucht hätte.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Ich habe die Problematik mit einem Block gelöst welchen ich einfüge und dieser dann die Türhöhe aus den Eigenschaften abfragt.

Wie wird bei eurer Lösung die Höhe aktualisiert wenn sich die Türhöhe ändert?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

nee, es wird ja nur der Maßtext überschrieben und somit finde keine automatische Änderung statt. Ein MV-Block, der den Wert aus dem Eigenschaftssatz liest ist da sicher eine gute Alternative (da der dieses Problem dann nicht hat. Dafür ist es dann halt ein separates Objekt).

sayonara
Torsten
ACAD-Systemhaus Bremen

------------------
Tadle nicht den Fluss, wenn Du ins Wasser fällst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

oeffnungshoehe.JPG

Seltsam ist eigentlich an der AEC Bemassung, daß die Türbreite erkannt wird (auch wenn die Tür nicht in der Wand verankert ist) die Türhöhe aber anscheinend aus dem Loch in der Wand ausgelesen wird. Das ist nicht konsequent. (Siehe Attachment).
Da kann man wohl auch nichts ändern?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin,

Bin auch im Fassadenbau tätig, ist das ein brauchbarer Befehl, den du
mir acuh zur Verfügung stellen würdest ?

Gruß

Carsten

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Arbeitet niemand von euch mit dem OpenLight Tool um Öffnungen automatisch beschriften zu lassen?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Oja, aber es ist halt leider sehr Light... 

------------------
ciao markus

- Der größte Bug sitzt immer VOR dem Bildschirm -

Markus Mazanek

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wieso sehr Light?

Wo sind die fehlenden Kalorien?

Vielleicht sollte ich die Option auch mal überdenken....

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP