---

HKATTS.dwg.txt HKATTSROH.dwg.txt

Ein freundliches Hallo an Alle,
Ich habe hier folgendes Problem:
Ich habe mir aus dem Forum das Lisp "HKATTS" für Höhenkoten besorgt und dieses meinen Bedürfnissen gerigfügig angepasst (Einfügelayer, Höhenbezugsabfrage).
Nun habe ich mir gedacht, es wäre schön zwei verschiedene Höhenkotentypen zu haben - eine für Rohhöhen (Dreieck nicht gefüllt) und eine für Fertighöhen (Dreieck mit solid gefüllt)(in Gebäudeschnittplänen erforderlich).
Deshalb habe ich den Code unter andrem Namen nochmals abgespeichert (HKATTSROH.lsp)und den Verweis auf den zugehörigen Block, der eingefügt werden soll auch umgeschrieben (HKATTSROH.dwg).

Jetzt tritt folgendes Phänomen auf, wenn ich beide Lisp's hintereinander über "appload" lade wird immer derBlock eingefügt dessen Lisp zuletzt geladen worden ist. 

Die Fettmarkierten Stellen in den folgenden Codes beziehen sich auf den Verweis, welche DWG als Block eingefügt werden soll.
Vieleicht kann mir jemand von Euch behilflich sein, den Fehler zu finden, da meine Lisp-Künste sehr rudimentär sind. 

1. Höhenkote Fertighöhe:

;*****************************************************************************
;HKATTS.lsp
;Benötigt HKATTS.dwg , Layer BEM
;(C) Copyright Konstruktionsbüro W. MEYER, D-85649 Otterloh,        16.12.2002     
;*****************************************************************************
(defun c:HKATTS (/ )
(princ "\nH'koten setzen.  Starten mit HKATTS ")
;FEHLERBEHANDLUNGSROUTINE.....................................................
(defun-q *error* (msg)
  (setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
  (setvar "attdia" aattdia) (setvar "attreq" aattreq)
  (setq p1 nil p2 nil p3 nil p4 nil c1 nil cy nil cym nil txt nil)
  (setq hkmz nil o_str nil n_str nil o_slen nil n_slen nil si nil st nil dx nil me nil cmmm nil cm1 nil cm2 nil mm1 nil mm2 nil txtme nil txtcm nil txtmm nil cym nil)
  (setq asatz nil len nil n nil e nil e1 nil)
  (setq o_str nil n_str nil o_slen nil n_slen nil si nil st nil)
  (if (= hk nil) (setq hk hkw) (setq hkw hk) )
  (princ msg)(princ)
)
;SYSTEMVARIABLEN SETZEN.......................................................
(while (or (= mxy nil)(= mxy 0)(= mxy 0.0))
  (setq mxy 1)
  (princ "\n\n\n")
)
(setq aosm (getvar "osmode"))
(setq abli (getvar "blipmode"))
(setq alup (getvar "luprec"))
(setq azin (getvar "dimzin"))
(setq aattdia (getvar "attdia"))
(setq aattreq (getvar "attreq"))
(setq aclayer (getvar "clayer"))
(setvar "cmdecho" 0)
(setvar "attdia" 0)
(setvar "attreq" 1)
(setvar "osmode" 111)
(HK-WAHL)
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(setvar "attdia" aattdia) (setvar "attreq" aattreq) (setvar "clayer" aclayer)
(princ)
)
;*****************************************************************************
(defun HK-WAHL (/ )
(if (or (= NPKT nil)(= NPKT "")) (HK-NPKT) (progn (HK-AKREUZ)(HK-BEZUG)) )
(if (= hk nil) (setq hk "S" hkw hk) )
(initget "B A S")
(setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
(if (= hk "B")
  (progn
  (setq hk hkw) (HK-NPKT)
  (initget "B A S")
  (setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
  )
)
(if (= hk "A")
  (progn
  (setq hk hkw) (HK-AKTUEL)
  (initget "B A S")
  (setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
  )
) 
(if (= hk nil) (setq hk hkw) (setq hkw hk) )
(if (= hk "S") (HK-SETZEN) )
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(setvar "attdia" aattdia)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT- BEZUGSWERT- FESTLEGEN...........................................
(defun HK-NPKT (/ )
(command "_redraw")
(princ "\n\n\n")
(setq pxy nil)
(while (or (= pxy nil)(= pxy ""))
  (setq pxy (getpoint "\nNullpunkt für die H'koten wählen: "))
  (princ "\n\n\n")
)
(HK-AKREUZ)
(setq py nil)
(while (or (= py nil)(= py ""))
  (setq py 0)
  (princ "\n\n\n")
)
(setq tpy py) ;für Bezugswert-Anzeige
(setq NPKT (cadr pxy) NPKT (- NPKT py))
(princ "\n\n\n\n")
(HK-BEZUG)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT-WERT ANZEIGEN....................................................
(defun HK-BEZUG (/ )
(if (or (= py 0.0)(= py 0)) (setq tpy (strcat "+/-" (rtos py))) )
(if (or (> py 0.0)(> py 0)) (setq tpy (strcat "+" (rtos py))) )
(princ "\nDer aktuelle Bezugspunkt liegt auf: ")(princ tpy)
(princ)
)
;*****************************************************************************
;ACHSKREUZ AM BEZUGSPUNKT ZEICHNEN............................................
(defun HK-AKREUZ (/ p1 p2 p3 p4)
(setq p1 (list (car pxy) (cadr (getvar "VSMIN")) )
      p2 (list (car pxy) (cadr (getvar "VSMAX")) )
      p3 (list (car (getvar "VSMIN")) (cadr pxy) )
      p4 (list (car (getvar "VSMAX")) (cadr pxy) )
)
(grvecs (list -124 p1 p2 -124 p3 p4))
(princ)
)
;*****************************************************************************
(defun HK-SETZEN (/ c1 cy cym txt)
(princ "\n\nH'kote wird am gewählten Punkt eingefügt. ")
(setvar "blipmode" 1)
(while
  (setq c1 (getpoint "\nH'koten-Punkt wählen: ") )
  (setq cy (cadr c1) cy (- cy NPKT))
  (setq cym cy)
  (setq txt (rtos cy 2 2))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "%%p" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "+" txt)) )
  (command "_layer" "_s" "A_04_BESCHRIFT" "")
  (command "_-insert" "HKATTS" c1 mxy "" "" txt)
  (princ txt)
)
(princ)

)
;*****************************************************************************
;HK-AKTUEL.lsp.......................... .....................................
;AKTUALISIERT H'KOTEN-BLÖCKE auf den aktuellen Y-Wert des Einfügepunktes     
;Anhängende Texte werden entfernt: z.B. wird aus +1000 O.K.S. dann nur +1222     
(defun HK-AKTUEL (/ asatz len n c1 e cy txt e1)
(command "_undo" "m") ;Zurück Markierung
(if (= meld nil) (MELDSTA) )
(princ "\n\n\nDas Programm aktualisiert die Werte gewählter H'koten. ")
(setq asatz (ssget (list (cons 2 "HKATTS"))) ;Blöcke HKATTS wählen
        len (sslength asatz) ;Länge Auswahlsatz
          n 0 ;Anzahl Elemente im Auswahlsatz
)
(while (< n len)
  (setq e (entget (ssname asatz n)) )
  (setq c1 (cdr (assoc 10 e)) qe c1) ;Basis c1 = WKS xyz Koordinaten
  (setq c1 (trans c1 0 1)) ;jetzt c1 = BKS xyz Koordinaten
  (setq cy (cadr c1) cy (- cy NPKT) )
  (setq cym cy)
  (setq txt (rtos cy))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "%%p" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "+" txt)) )
  (setq e1 (entget (entnext (cdr (assoc -1 e)))) )
  (setq e1 (subst (cons 1 txt)(assoc 1 e1) e1) )
  (entmod e1)
  (entupd (cdr (assoc -1 e1)))
  (setq n (1+ n))
) ;ende-while
(princ "\n\n\n")
) ;ende-defun
;*****************************************************************************
;MELDUNG NUR BEIM START.......................................................
(defun MELDSTA (/ )
(alert "
\Auch von Hand geänderte Zahlen
\ ändern sich auf den Wert der
\      aktuellen Position"
)
(setq meld 1)
(princ)
)
;*****************************************************************************

2. Höhenkote Fertighöhe:

;*****************************************************************************
;HKATTS.lsp
;Benötigt HKATTS.dwg , Layer BEM
;(C) Copyright Konstruktionsbüro W. MEYER, D-85649 Otterloh,        16.12.2002     
;*****************************************************************************
(defun c:HKATTSROH (/ )
(princ "\nH'koten setzen.  Starten mit HKATTSROH ")
;FEHLERBEHANDLUNGSROUTINE.....................................................
(defun-q *error* (msg)
  (setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
  (setvar "attdia" aattdia) (setvar "attreq" aattreq)
  (setq p1 nil p2 nil p3 nil p4 nil c1 nil cy nil cym nil txt nil)
  (setq hkmz nil o_str nil n_str nil o_slen nil n_slen nil si nil st nil dx nil me nil cmmm nil cm1 nil cm2 nil mm1 nil mm2 nil txtme nil txtcm nil txtmm nil cym nil)
  (setq asatz nil len nil n nil e nil e1 nil)
  (setq o_str nil n_str nil o_slen nil n_slen nil si nil st nil)
  (if (= hk nil) (setq hk hkw) (setq hkw hk) )
  (princ msg)(princ)
)
;SYSTEMVARIABLEN SETZEN.......................................................
(while (or (= mxy nil)(= mxy 0)(= mxy 0.0))
  (setq mxy 1)
  (princ "\n\n\n")
)
(setq aosm (getvar "osmode"))
(setq abli (getvar "blipmode"))
(setq alup (getvar "luprec"))
(setq azin (getvar "dimzin"))
(setq aattdia (getvar "attdia"))
(setq aattreq (getvar "attreq"))
(setq aclayer (getvar "clayer"))
(setvar "cmdecho" 0)
(setvar "attdia" 0)
(setvar "attreq" 1)
(setvar "osmode" 111)
(HK-WAHL)
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(setvar "attdia" aattdia) (setvar "attreq" aattreq) (setvar "clayer" aclayer)
(princ)
)
;*****************************************************************************
(defun HK-WAHL (/ )
(if (or (= NPKT nil)(= NPKT "")) (HK-NPKT) (progn (HK-AKREUZ)(HK-BEZUG)) )
(if (= hk nil) (setq hk "S" hkw hk) )
(initget "B A S")
(setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
(if (= hk "B")
  (progn
  (setq hk hkw) (HK-NPKT)
  (initget "B A S")
  (setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
  )
)
(if (= hk "A")
  (progn
  (setq hk hkw) (HK-AKTUEL)
  (initget "B A S")
  (setq hk (getkword (strcat "\n(B)ezugspunkt ändern  (A)ktualisieren  (S)etzen  <" hk "> ?: ")) )
  )
) 
(if (= hk nil) (setq hk hkw) (setq hkw hk) )
(if (= hk "S") (HK-SETZEN) )
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(setvar "attdia" aattdia)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT- BEZUGSWERT- FESTLEGEN...........................................
(defun HK-NPKT (/ )
(command "_redraw")
(princ "\n\n\n")
(setq pxy nil)
(while (or (= pxy nil)(= pxy ""))
  (setq pxy (getpoint "\nNullpunkt für die H'koten wählen: "))
  (princ "\n\n\n")
)
(HK-AKREUZ)
(setq py nil)
(while (or (= py nil)(= py ""))
  (setq py 0)
  (princ "\n\n\n")
)
(setq tpy py) ;für Bezugswert-Anzeige
(setq NPKT (cadr pxy) NPKT (- NPKT py))
(princ "\n\n\n\n")
(HK-BEZUG)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT-WERT ANZEIGEN....................................................
(defun HK-BEZUG (/ )
(if (or (= py 0.0)(= py 0)) (setq tpy (strcat "+/-" (rtos py))) )
(if (or (> py 0.0)(> py 0)) (setq tpy (strcat "+" (rtos py))) )
(princ "\nDer aktuelle Bezugspunkt liegt auf: ")(princ tpy)
(princ)
)
;*****************************************************************************
;ACHSKREUZ AM BEZUGSPUNKT ZEICHNEN............................................
(defun HK-AKREUZ (/ p1 p2 p3 p4)
(setq p1 (list (car pxy) (cadr (getvar "VSMIN")) )
      p2 (list (car pxy) (cadr (getvar "VSMAX")) )
      p3 (list (car (getvar "VSMIN")) (cadr pxy) )
      p4 (list (car (getvar "VSMAX")) (cadr pxy) )
)
(grvecs (list -124 p1 p2 -124 p3 p4))
(princ)
)
;*****************************************************************************
(defun HK-SETZEN (/ c1 cy cym txt)
(princ "\n\nH'kote wird am gewählten Punkt eingefügt. ")
(setvar "blipmode" 1)
(while
  (setq c1 (getpoint "\nH'koten-Punkt wählen: ") )
  (setq cy (cadr c1) cy (- cy NPKT))
  (setq cym cy)
  (setq txt (rtos cy 2 2))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "%%p" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "+" txt)) )
  (command "_layer" "_s" "A_04_BESCHRIFT" "")
  (command "_-insert" "HKATTSROH" c1 mxy "" "" txt)
  (princ txt)
)
(princ)

)
;*****************************************************************************
;HK-AKTUEL.lsp.......................... .....................................
;AKTUALISIERT H'KOTEN-BLÖCKE auf den aktuellen Y-Wert des Einfügepunktes     
;Anhängende Texte werden entfernt: z.B. wird aus +1000 O.K.S. dann nur +1222     
(defun HK-AKTUEL (/ asatz len n c1 e cy txt e1)
(command "_undo" "m") ;Zurück Markierung
(if (= meld nil) (MELDSTA) )
(princ "\n\n\nDas Programm aktualisiert die Werte gewählter H'koten. ")
(setq asatz (ssget (list (cons 2 "HKATTS"))) ;Blöcke HKATTS wählen
        len (sslength asatz) ;Länge Auswahlsatz
          n 0 ;Anzahl Elemente im Auswahlsatz
)
(while (< n len)
  (setq e (entget (ssname asatz n)) )
  (setq c1 (cdr (assoc 10 e)) qe c1) ;Basis c1 = WKS xyz Koordinaten
  (setq c1 (trans c1 0 1)) ;jetzt c1 = BKS xyz Koordinaten
  (setq cy (cadr c1) cy (- cy NPKT) )
  (setq cym cy)
  (setq txt (rtos cy))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "%%p" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "+" txt)) )
  (setq e1 (entget (entnext (cdr (assoc -1 e)))) )
  (setq e1 (subst (cons 1 txt)(assoc 1 e1) e1) )
  (entmod e1)
  (entupd (cdr (assoc -1 e1)))
  (setq n (1+ n))
) ;ende-while
(princ "\n\n\n")
) ;ende-defun
;*****************************************************************************
;MELDUNG NUR BEIM START.......................................................
(defun MELDSTA (/ )
(alert "
\Auch von Hand geänderte Zahlen
\ ändern sich auf den Wert der
\      aktuellen Position"
)
(setq meld 1)
(princ)
)
;*****************************************************************************

Anbei noch die beiden DWG's, für's austesten.
Bin für Hilfe jeder Art dankbar

Gruß
Robert

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

---

Hi Robert,
das liegt daran, dass Du die Definition der Funktion HK-SETZEN (und auch alle anderen) mit jedem Laden neu setzt. Dann ist immer die zuletzt definierte Funktion gültig.
Verschiedene Möglichkeiten der Lösung:
- Du benennst nicht nur die C:... Funktion um, sondern auch alle zugehörigen und erzeugst so eindeutige Namen.
- Du schreibst die (Defun...)-Funktionen IN die (defun C:...) hinein, und definierst sie jedesmal beim Aufruf neu.
- Du definierst die HK-SETZ-Funktion mit Übergabeparameter (= Blockname)    [EDIT] So würde ich es machen [/EDIT]

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

              http://www.voxelman.de

[Diese Nachricht wurde von wronzky am 13. Aug. 2008 editiert.]

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

---

Hallo Henning,
vielen Dank für Deine schnelle Antwort.
1.Möglickeit - Ich schreibe bei jedem defun noch ein z.B. "-Roh" dazu
2.Möglichkeit:Alle defun-funktionen in die defun c: -d.h. weniger Klammern und alle variablen an den Anfang.
3. Möglichkeit: Übergabeparameter (versteh ich leider (noch) nicht).

Habe ich diese Lösungsansätze korrekt wiedergegeben?
Wie gesagt ist alles sehr rudimentär, meine Lisp Kenntnisse. 

Gruß Robert

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

---

Hi Robert,
frei nach Radio Eriwan: im Prinzip JA, aber:

Zitat:

---

1.Möglichkeit - Ich schreibe bei jedem defun noch ein z.B. "-Roh" dazu

---

ist nur die halbe Wahrheit, natürlich müssen die Aufrufe aus den anderen Funktionen dann auch angepasst werden.

Zitat:

---

2.Möglichkeit:Alle defun-funktionen in die defun c: -d.h. weniger Klammern und alle variablen an den Anfang.

---

nicht weniger Klammern, sondern anders verschachtelt:

Code:

---

(defun c:blabla () ;--> Command-Defun
(defun funktion1 () ;--> Funktion 1-Defun
...
)
(defun funktion2 () ;--> Funktion 2-Defun
...
)
...
(funktion1) ;--> Aufruf Funktion 1
(funktion2) ;--> Aufruf Funktion 2
...
)

---

Zitat:

---

3. Möglichkeit: Übergabeparameter (versteh ich leider (noch) nicht).

---

also Du übergibst der Funktion einen Parameter (hier den Blocknamen):

Code:

---

(defun HK-SETZ (Blockname / ...)
...
(command "_.insert" Blockname ...)
)

---

und Aufruf dann mit:(HK-SETZ "meinblock1"). So kannst Du mit EINER Funktion Verschiedene Blöcke einsetzen.

Grüsse, Henning

------------------
Henning Jesse
VoxelManufaktur
Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

---

Hallo Henning,
nochmals vielen Dank für die weitere sehr schnell Hilfe.
Werde den 3. Ansatz mal Probieren, sieht auch am einfachsten  und logischten aus.
Melde mich dann hoffentlich bei Erfolg wieder.
Gruß
Robert

P.S. U's sind unterwegs

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

---

Hallo,
wenn es nur das ausgefüllte Dreieck ist welches den Unterschied ausmacht, dann bearbeite doch deinen Block dahingehend, dass du einen dynamischen Block daraus machst...
Sonst würde ich auch zu 3. tendieren...
mfg heiko

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

---

HKATTA.zip

Hallo Robert,
hab da noch eine andere Variante, allerdings mit hochgestellten cm.

Gruß
Werner

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

---

Hallo Werner,
danke für den neuen Code.
Leider gibt es ein Problem mit mit der Übergabe des Y-Wertes an den Block
H'koten-Punkt wählen: Unbekannter Befehl "+0,0¥8"        (¥=Alt190)
siehe auch PM
Meine Kenntnisse reichen dafür leider nicht aus.
Trotzdem erstamal Dankeschön
Gruß
Robert

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

---

F437.zip

Hallo Robert,
verwende mal diese Schrift, funktioniert mit diesen Dateien auf 2006 (bei mir).

Gruß
Werner

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

---

Hallo Werner,
erst war die Schrift wieder nicht zu sehen, habe dann einfach mal "aktualisieren" gemacht und siehe da, alle Zahlen da.
Juhu -ist echt super.
Gruß
Robert

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