---

Hallo,

mit den nachfolgenden Lisp Code kann man Höhenkoten anschreiben lassen.
Die dazugehörige Datei „HKATTS“ ist nur eine DWG-Datei womit man die Höhenkote platzieren kann.
zu den nachfolgenden Lisp Code habe ich drei Fragen bzw. Probleme.

1. Der Lisp Code setzt den Layer auf 0 beim platzieren der Höhenkote (Block),
dies ist soweit richtig. Er soll aber nach Programm ende den alten Layer wieder
zurückstellen. Wie funktioniert dies in dem Code?

2. Vor Programmaufruf soll die Anzeige der Dialogfelder für Attribute (Befehl: ATTDIA) von 1 auf 0 gesetzt werden und nach Programm ende wieder zurück auf 1.
Wie funktioniert dies in dem Code?

3. Vor Programmaufruf soll die Zeicheneinheit bei Länge die Genauigkeit (Befehl:  LUPREC) von 4 Stellen auf 3 Stellen gesetzt werden und nach Programm ende wieder auf 4 Stellen. Wie funktioniert dies in dem Code.

Ich hoffe ihr könnt mir weiter helfen.
Danke vorerst.
Nun der Code :

(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)
  (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.0))
  (setq mxy (getreal "\nDen Maßstab dieser Zeichnung eingeben  1:? "))
  (princ "\n\n\n")
)
(setq aosm (getvar "osmode"))
(setq abli (getvar "blipmode"))
(setq alup (getvar "luprec"))
(setq azin (getvar "dimzin"))
(setvar "cmdecho" 0)
(setvar "osmode" 111)
(HK-WAHL)
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(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)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT- BEZUGSWERT- FESTLEGEN...........................................
(defun HK-NPKT (/ )
(command "_redraw")
(princ "\n\n\n")
(setq pxy nil)
(while (or (= pxy nil)(= pxy ""))
  (setq pxy (getpoint "\nEinen Bezugspunkt für die H'koten wählen: "))
  (princ "\n\n\n")
)
(HK-AKREUZ)
(setq py nil)
(while (or (= py nil)(= py ""))
  (setq py (getreal "\nDer gewählte Bezugspunkt liegt auf welcher Höhe ?: "))
  (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))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "" txt)) )
  (command "_layer" "_ma" "0" "_c" "7" "" "" "_cecolor" "256" "_celtype" "bylayer" )
  (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 "-" 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
;*****************************************************************************

Gruß
Ralph

---

So etwa:

Code:

---

(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" attdiaold) (setvar "clayer" oldlayer)
  (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.0))
  (setq mxy (getreal "\nDen Maßstab dieser Zeichnung eingeben  1:? "))
  (princ "\n\n\n")
)
(setq aosm (getvar "osmode"))
(setq abli (getvar "blipmode"))
(setq alup (getvar "luprec"))
(setq azin (getvar "dimzin"))
(setq oldlayer (getvar "clayer"))
(setq attdiaold (getvar "attdia"))
(setvar "cmdecho" 0)
(setvar "osmode" 111)
(HK-WAHL)
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)
(setvar "attdia" attdiaold)
(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)
(princ)
)
;*****************************************************************************
;BEZUGSPUNKT- BEZUGSWERT- FESTLEGEN...........................................
(defun HK-NPKT (/ )
(command "_redraw")
(princ "\n\n\n")
(setq pxy nil)
(while (or (= pxy nil)(= pxy ""))
  (setq pxy (getpoint "\nEinen Bezugspunkt für die H'koten wählen: "))
  (princ "\n\n\n")
)
(HK-AKREUZ)
(setq py nil)
(while (or (= py nil)(= py ""))
  (setq py (getreal "\nDer gewählte Bezugspunkt liegt auf welcher Höhe ?: "))
  (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))
  (if (or (= cym 0.0)(= cym 0)) (setq txt (strcat "" txt)) )
  (if (or (> cym 0.0)(> cym 0)) (setq txt (strcat "" txt)) )
  (command "_layer" "_ma" "0" "_c" "7" "" "" "_cecolor" "256" "_celtype" "bylayer" )
  (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 "-" 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")
(setvar "clayer" oldlayer)
) ;ende-defun
;*****************************************************************************

---

Wegen Luprec sehe hier innerhalb des Defun Architektur Variable HKMZ ansonsten klärt den Rest die Suchfunktion. Mir ist noch beim Überfluiegen aufgefallen dass bei der Variable mxy negative und werte kleiner 0.0  bearbeitet werden, imho ist das kaum ok ? ich würde es bei Bedarf < 0 definieren ausser jemand Will -4 Meter zur +4 Meter um 180 Grad im 3'ten und 4'ten WKS-Quadranten gedreht definieren.

------------------
  "Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

[Diese Nachricht wurde von Proxy am 07. Mai. 2004 editiert.]

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

---

Das Programm ließe sich sicherlich hinsichtlich error-handling und Benutzung lokaler Variablen verbessern, aber hier die Systemvariablen zu den Fragen.
Prinzip ist
am Anfang die Einstellung der Systemvariablen merken, und am Ende des Programmes germerkte Werte wiederherstellen.

(defun c:HKATTS (/ )
(princ "\nH'koten setzen.  Starten mit HKATTS ")
;FEHLERBEHANDLUNGSROUTINE..................................
.
.
.
(setq aosm (getvar "osmode"))
(setq abli (getvar "blipmode"))
(setq alup (getvar "luprec"))
(setq azin (getvar "dimzin"))

(setvar "cmdecho" 0)
(setvar "osmode" 111)
(SETQ alayer  (GETVAR "CLAYER")) ; Merke akt. Layer in Variable
(SETQ aluprec (GETVAR "LUPREC")) ; Merke akt. Längenpräzisionsanzeige in Variable
(SETVAR "ATTDIA" 0)
(SETVAR "LUPREC" 0)
.
.
.
(HK-WAHL)
(SETVAR "LPUREC" aluprec)
(SETVAR "CLAYER" alayer)
(SETVAR "ATTDIA" 1) ; Attdia nach Ende auf 1 setzen, egal was vorher eingestellt war
(setvar "osmode" aosm) (setvar "blipmode" abli) (setvar "luprec" alup) (setvar "dimzin" azin)

(princ)
)
;*****************************************************************************
.
.
.

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

---

@ABDN
Ralph,
es ist nicht üblich u.a. Zeilen aus dem Programm zu entfernen.

;************************************************************
;HKATTS.lsp
;Benötigt HKATTS.dwg , Layer BEM
;(C) Copyright Konstruktionsbüro W. MEYER, D-85649 Otterloh,        16.12.2002     
;************************************************************

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

@otterloh: http://autolisp.mapcar.net/rechts.html
..

------------------
Ciao,
Marc

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

---

na, da bin ich aber froh, das ich so einen Quatsch erst garnicht in meine Programme reinschreibe - Copyright -
Kaputtlach und wegschmeiß

------------------
Gruß
CADwiesel
Besucht uns im CHAT

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

---

Tach Leutz :-),

habe auch ein paar Fragen oder verbesserungsvorschläge zu dem sonst genialen Programm (Copyright hin oder her):

1.
wenn ich die Höhenkoten setzte erscheint die Schrift nicht sofort. was mache ich falsch oder was macht das Programm falsch ?

2.
ich würde so gerne haben, dass die Höhekote "0" auch 4-stellig mit einer Kommastelle angezeigt wird. Was ist zu tun ?

3.
wie schafft man es, dass die Höhenkoten in Millimeter mit Tausender-Trennzeichen und Nachkommastelle dargestellt wird? Beispiel: "+17.495,5"

Vielen Dank im voraus.

Grüße

CAD-Tötti :-)

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

---

Zitat:

---

Original erstellt von CADwiesel:
na, da bin ich aber froh, das ich so einen Quatsch erst garnicht in meine Programme reinschreibe - Copyright -
Kaputtlach und wegschmeiß

---

Stimmt, das braucht man nicht. Nach deutschem Rechte hat man als Urheber sowieso und vollautomatisch und ohne jeden Hinweise alle Rechte, und dazu gehört auch das Recht, bei einer Veröffentlichung namentlich genannt zu werden. Gerade letzteres Recht kannst Du noch nicht mal aufgeben, wenn Du es aufgeben willst - Du kannt lediglich aktuell darauf verzichten, dieses Recht durchzusetzen.

So wie's aussieht, hat ABDN aber nicht nur den Urheber nicht genannt, sondern hat auch ohne jede Genehmigung ein urheberrechtlich geschütztes Werk veröffentlicht. Ersteres ist nur ein Fall für eine Zivilklage, letzteres ein Fall für den Staatsanwalt.

Tom Berger

------------------

---

Hmmm, irgendwie.....

...naja, sagen wir es so:
1.
habe eine andere Frage gestellt !
2.
bzgl. des Copyrights: ich habe lediglich eine Frage gestellt, das Programm gelobt, mich darauf bezogen, dass der Autor bereits genannt wurde und zusätzlich einen Verbesserungsvorschlag gemach *grins*

Wie nun lautet die Antwort auf die Frage, oder ist es hier neuerdings nicht mehr erlaubt, Fragen bzgl. des Topics zu stellen ?

Ich weiss zwar nicht, ob ich mit meiner persönlichen Rechtsauffassung richtig liege, aber ich denke, wenn jemand auf sein Copyright besteht, darf er hier grundsätzlich keine LSP-Dateien veröffentlichen sondern nur noch kompilierte Dateien (er hat ja somit damit gerechnet, dass diese "unverschlüsselte" Datei zu Testzwecken "evaluiert" wird, oder ?

Hmm, Moderator, bitte hilf ! Möchte mir nicht vorwerfen lassen, Salz in offene Wunden zu streuen, aber dies und anderes hier klingt nach grundsätzlicher Klärung - dazu bin ich nicht imstande !

Grüße

CAD-Tötti

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

---

Zitat:

---

Original erstellt von CAD-Tötti:
Hmmm, irgendwie.....

...naja, sagen wir es so:
1.
habe eine andere Frage gestellt !

---

Auf wen beziehst Du Dich damit?

Zitat:

---

Ich weiss zwar nicht, ob ich mit meiner persönlichen Rechtsauffassung richtig liege, aber ich denke, wenn jemand auf sein Copyright besteht, darf er hier grundsätzlich keine LSP-Dateien veröffentlichen sondern nur noch kompilierte Dateien (er hat ja somit damit gerechnet, dass diese "unverschlüsselte" Datei zu Testzwecken "evaluiert" wird, oder ?

---

Tut mir leid, aber mit dieser Rechtsauffasung liegst Du falsch, wovon Du Dich gerne durch Studium des UrhGs überzeugen kannst: http://transpatent.com/gesetze/urhg.html

Genau aus diesem Grund habe ich bereits mehrfach angeregt, dass die Betreiber dieser Webseiten ihre AGB dahin gehend ändern, dass die hier von den Urhebern oder mit Zustimmung der Urheber geposteten Quellcodes von diesen für jede beliebige Verwendung frei gegeben werden. Da das noch nicht der Fall ist, ist jede Veröffentlichung fremden Programmcodes (vorausgesetzt, eine gewisse Schöpfungshöhe wird damit erreicht) ohne ***ausdrückliche*** Zustimmung des Rechteinhabers eine Straftat! Wohlgemerkt: es können nicht nur zivilrechtliche Forderungen von Seiten der Rechtsinhaber gestellt und durchgesetzt werden, sondern auch strafrechtliche Maßnahmen ergriffen werden!

Zitat:

---

Hmm, Moderator, bitte hilf ! Möchte mir nicht vorwerfen lassen, Salz in offene Wunden zu streuen, aber dies und anderes hier klingt nach grundsätzlicher Klärung - dazu bin ich nicht imstande !

---

Wie gesagt: ich habe mehrfach versucht, dies grundsätzlich zu klären, habe aber meistenteils nur ignorant-dumme und hämische Antworten erhalten. Fakt ist: der jetztige Zustand ist rein juristisch betrachtet nicht haltbar!

Gruß
Tom Berger

------------------

---

Ähm, ich will ja niemanden hier zu nahe treten, aber wenn dem so ist oder wäre......

.....sollte dies das Ende von www.cad.de (einer, wie ich finde, echt guten Sache) bedeuten ?

.....sollte die "Schöpfungshöhe" schon damit beginnen, eine Idee zu formulieren, woraufhin der Nächste ein LISP bastelt (erinnere Dich mal, Herr Berger: ich formulierte den Bedarf nach einer "geordneten" Schraffur-Routine - nicht etwa, dass ich der einzige bin, dem es nach so etwas gelüstet - du hast die Idee aufgenommen in der Form, dass Du äußerstes, dies in Dein Programm aufzunehmen -> und wenn ich jetzt sage: "das war aber meine "Schöpfungshöhe"...wäre 1. nicht meine Art & 2. nicht im Sinne dieses CAD-Forums).

Ich bleibe dabei: bitte bitte, lieber Moderator, greif klärend ein. Es kann nicht sein, dass (in der letzten Zeit immer öfters) "einfache", sachbezogene Fragen in Diskussionen nach dem "Sinn des Lebens" ausarten. Folge wäre, dass die Resonanz in diesem Forum nachlässt, weil jeder aus Unsicherheit über die Rechtslage dann eher nichts mehr schreibt, und überhaupt schon gar keine Fragen mehr aufwirft ! Und überhaupt: wenn diese Diskussionen schon notwendig sind (und vielleicht sind sie das ja auch !), dann gehören diese in Foren wie z.B. "Heiße Eisen" !

Grüße

CAD-Tötti

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

---

Zitat:

---

Original erstellt von CAD-Tötti:
.....sollte die "Schöpfungshöhe" schon damit beginnen, eine Idee zu formulieren, woraufhin der Nächste ein LISP bastelt (erinnere Dich mal, Herr Berger: ich formulierte den Bedarf nach einer "geordneten" Schraffur-Routine - nicht etwa, dass ich der einzige bin, dem es nach so etwas gelüstet - du hast die Idee aufgenommen in der Form, dass Du äußerstes, dies in Dein Programm aufzunehmen -> und wenn ich jetzt sage: "das war aber meine "Schöpfungshöhe"...wäre 1. nicht meine Art & 2. nicht im Sinne dieses CAD-Forums)

---

Pech gehabt, lieber CAD-Tötti: Ideen unterliegen nicht dem Schutz des Urheberrechts. Übrigens sind reine Ideen auch nicht patentierbar.

Zitat:

---

Ich bleibe dabei: bitte bitte, lieber Moderator, greif klärend ein.

---

Ich gestehe Dir gerne das Recht zu, an meinem juristischen Sachverstand in der Frage zu zweifeln. Damit Du Dich selber schlau machen kannst, habe ich Dir einen Link zum UrhG gepostet, in dem alles zur Klärung dieser Frage Nötige drin steht.

Zitat:

---

Es kann nicht sein, dass (in der letzten Zeit immer öfters) "einfache", sachbezogene Fragen in Diskussionen nach dem "Sinn des Lebens" ausarten.

---

Nach dem Sinn des Lebens? Da hast Du aber eine ziemlich falsche Vorstellung vom Leben an sich.

Es ging hier nicht um den Sinn des Lebens, sondern darum, dass ein Teilnehmer mit dem merkwürdigen Namen ABDN (warum haben hier fast alle Scheu davor, mit ihrem guten Namen zu ihrer Meinung zu stehen, obwohl die Netiquette und die CAD.de-Richtlinien dies fordert?) fremden Quellcode gepostet hat, ohne die Zustimmung des Urhebers zu haben, und ohne den Urheber namentlich zu nennen. Und dass genau dieser Urheber sich genau hier ganz genau völlig zurecht darüber beschwert hat.

ABDN hat ja noch Glück gehabt, dass Werner von Konstruktionsbüro W. MEYER, die die Rechte an diesem Code haben, nicht gleich den Staatsanwalt eingeschaltet haben. Ich glaube aber kaum, dass sich die Betreiber dieses Forums und die hier postenden Leute auf das gutmütige Wohlwollen der Rechteinhaber verlassen wollen. Vielleicht hat irgend ein Rechteinhaber einfach mal einen schlechten Tag oder irgend welche Wut gegen einen der Poster hier, oder ist nur (das ist nicht unwahrscheinlich) ein scharfer Konkurrent des Verletzers, udn sieht hier eine Möglichkeit, sich Luft zu verschaffen ...

Und jetzt macht nicht wieder mich dumm an, denn ich bin nur der Bote dieser eiskalten Wahrheit. Zwar lebe ich auch von der Wahrnehmung von Urheberrechten und Patenten, aber ich habe bereits mehrfach ausdrücklich erklärt, dass ich allen Quellcode, den ich hier poste, ausdrücklich für jede beliebige Verwendung frei gebe, und dass ich auch bei Weiterverbreitung auf die Nennung meines Namens als Urheber verzichte (Vorsicht: dieses Recht kann ich gar nicht aufgeben. Wenn es mir in zehn Jahren einfällt, dass doch jeder meinen Namen zu nennen hat, der meine Quellcodes weiter verbreitet, dann gilt das leider auch).

Zitat:

---

Und überhaupt: wenn diese Diskussionen schon notwendig sind (und vielleicht sind sie das ja auch !), dann gehören diese in Foren wie z.B. "Heiße Eisen" !

---

Nein, das gehört genau hierher, denn hier wurde ein Urheberrechtsverstoss begangen. Das ist sicherlich unwissentlich geschehen, aber Unwissenheit schützt nicht vor Strafe.

Gruß
Tom Berger

------------------

---

Leute, jetzt läuft hier aber einiges aus dem Ruder! Das Thema einfach mit "kaputtlach und wegschmeiss" als erledigt zu betrachten, ist reichlich daneben - und auch der Link auf meine Seite trifft nicht so richtig: Da rede ich nämlich von einem Beispiel-Einzeiler, und es geht ausschließlich um die Begründung, warum ich meinen Code als public domain freigebe. Hier geht es aber um ein komplettes Programm, das geistiges Eigentum von Otterloh ist. Und der beschwert sich nicht mal darüber, dass es hier veröffentlicht und diskutiert wird, sondern nur darüber, dass der Autorenvermerk entfernt wurde - völlig zu Recht!

Scheinbar hat hier eine gewisse Leseschwäche um sich gegriffen, anders kann ich mir manches hier nicht erklären. Warum z.B. würde es das Ende von CAD.DE bedeuten, wenn Ralph die Zeilen dringelassen und vorher einfach mal den Programm-Autor Otterloh gefragt hätte, ob ihm das Recht ist, das hier zu veröffentlichen? Dafür stehen doch diese Zeilen oben in den Programmen drin!

> Ich bleibe dabei: bitte bitte, lieber Moderator, greif klärend ein

Da hat CAD-Tötti Recht. CADWiesel, du bist Moderator in diesem Forum. Also klopf dem Ralph auf die Finger. Das ist nun mal deine Aufgabe als Moderator hier. Nur "kaputtlach und wegschmeiss" ist jedenfalls eine völlig inadäquate Reaktion. Was hier für ein Rechtsverstoß vorliegt, lasse ich dahingestellt - ich finde es einfach eine Unverschämtheit von Ralph, so mit einem anderen Forumsteilnehmer umzugehen.

Gruß, Axel Strube-Zettler

------------------
(defun - Lisp over night - AutoLisp-Programmierung für AutoCad - Da weiß man, wann man's hat
Meine AutoLisp-Seiten Mein Angriff auf dein Zwerchfell Mein Lexikon der Fotografie Mein gereimtes Gesülze

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

---

@All,

Habe mir diesen und andere Threads gespeichert. ich bin kein Jurist, auch kein Mitarbeiter und/oder Angestellter von CAD.de, werde somit auch nicht die Benutzungsbedingungen physisch ändern können.

Ich werde diesen Thread zum Anlaß nehmen und cad.de auf die mögliche Rechtslage aufmerksam machen. Ich bin kein Jura-Prof und nehme das, was T.B. schreibt erst einmal als gültiges Recht hin. Klingt schließlich plausiebel, deshalb
@Tom Berger an Dich ein Dankeschön, dass du darauf hingewiesen hast.
Eine Bitte dennoch, sinngemäß hast du, Tom, es in einem anderen Thread selbst auch geschrieben, dass du immer nur noch das Wiedderholen kannst, was du mehrfach geschrieben hast.
Ich finde, es ist richtig, dass du darauf hinweist, du solltest es allerdings nicht zu Deinem persönlichem Ziel machen, hier die Forumsteilnehmer von dem geltenden Recht zu überzeugen. Die Teilnehmer sind alle alt genug und sollten soviel Sachverstand haben, dann selbst zu entscheiden, was sie selber wie handhaben. Häng da nicht soviel Herzblut rein, es ist ein PAL - Problem anderer Leute.

nocheinmal @ALL
Schaut mal auf das Datum der Beiträge! Diese Thematik ist (mir zumindest) hier erst in den letzten Wochen richtig aufgefallen und bewußt geworden. Deshalb gehe ich davon aus, dass CADwiesel sich auch eine gewisse Sensibilität für dieses Thematik angeeignet hat.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Zitat:

---

Original erstellt von Brischke:
Ich finde, es ist richtig, dass du darauf hinweist, du solltest es allerdings nicht zu Deinem persönlichem Ziel machen, hier die Forumsteilnehmer von dem geltenden Recht zu überzeugen. Die Teilnehmer sind alle alt genug und sollten soviel Sachverstand haben, dann selbst zu entscheiden, was sie selber wie handhaben. Häng da nicht soviel Herzblut rein, es ist ein PAL - Problem anderer Leute.

---

Nein, mach Dir da mal keine Sorgen - mein Herzblut fliesst für Anderes :-) Wieviel Promille meiner Beiträge hatten mit diesem Thema zu tun?

Zitat:

---

Schaut mal auf das Datum der Beiträge!

---

Das allerdings ist ein wirklich guter Hinweis - da hätte ich mir meine Beiträge auch sparen können :-)

Gruß
Tom Berger

------------------

---

hmmmpfffff :-)

also, wir fassen noch mal zusammen: lieber ABDN, Header mit Urheber muss sein !

Ansonsten schönes Rest-Wochenende allen :-)

Grüße

CAD-Tötti

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

---

@ALL,
1. Das Programm steht auf meiner Homepage und bei Industrie24 für jeden zur Verfügung.
2. Das Programm darf jeder an seine Bedürfnisse anpassen.
3. Die Urheber-Zeile ist ein sichtbarer Hinweis / Absicherung gegen gewinnbringende Verbreitung (Verkauf des Programms) und sollte daher nicht entfernt werden.

Also: passt das Programm an eure Bedürfnisse an.

------------------
Gruß Werner
http://Meyer-Werner.bei.T-Online.de

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

---

Hallo Werner,

@Alle
Durch das "schlau-dapige" (Dialektwort) Verhalten, des "ABDN" wurde diese interessesante Diskusion angestoßen.

Zum Thema: "Etwas wollen, aber seinen Namen nicht nennen" habe ich schon einmal geschrieben.
Das Einzige was gegen die Unverschämtheit helfen würde, wäre
          - keine Antwort auf solche Beiträge -
Aber im ersten Moment sieht man nur, dass jemand Hilfe sucht und man ihm helfen kann und übersieht dabei, dass es sich wieder um einen Schlaudapigen ohne Anstand handelt.

@Werner
Durch diese Diskusion bin ich auf Deine Seite gegangen und das Tool
CHTMTBEM entdeckt und ausprobiert. Danke! Wenn ich bisher an einem Masstext etwas ändern wollte, habe ich vorher die Bemassung aufglöst. Danach war sie nicht mehr assoziativ. Bei Deinem Tool ist keine Auflösung erforderlich. Es ist sehr praktisch, ich würde es gerne, auf meiner Seite, zu den kostenlosen Tools stellen. Natürlich unverändert.

Viele Grüße

Theodor Schönwald

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

---

Hallo Theodor,
Mit dem AutoCAD-Befehl: _ddedit
können auch Maßtexte bearbeitet werden.
Mit einem Eintrag vor oder hinter dem < > können einzelne Zeichen zugefügt werden
und das Maß bleibt assoziativ (Präfix< >Suffix).
Wenn dieses Zeichen <> überschrieben wird – ist das Maß nicht mehr assoziativ.

------------------
Gruß Werner
http://www.konstruktionsbuero-meyer.de

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