---

habe 3 Fragen und hoffe auf Hilfe

1. Habe seit 14 Tagen win 2000, bin total zufrieden nur nach Arbeiten in Acad 2000i fährt mein Rechner nicht mehr herunter. Einzige Chance Reset Taste. Vorher auf Win 98 kein Problem.
2. Benutzte den selben Plankopf für verschieden Layouts. Muß ich tatsächlich dieses xRef auflösen um verschieden Beschriftungen einzufügen oder gibt es schon beim Einfügen des Plankopf eine Möglichkeit, ihn verschieden zu definieren.
3. Einfache Frage. Gibt es eine Möglichkeit, einen vorhandenen, horizontal geschriebenen Text exakt an ein diagonales Objekt, ohne bekannten Winkel, zu fügen.
Im vorraus danke  christa

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

---

Hi,
zu 1: Hm, keine Ahnung was das sein könnte... Guck doch mal in der Autodesk KnowledgeBase nach.

zu 2:
Lies mal 'n bischen in der AutoCAD Hilfe zum Thema Attribute.
Attribute sind variable Texte in Blöcken. Damit gehts.
Auszug aus der Hilfe:

Attribute sind Beschriftungen oder Bezeichnungen, mit denen Sie einem Block einen Text zuordnen. Jedesmal, wenn Sie einen Block mit einem variablen Attribut einfügen, werden Sie von AutoCAD aufgefordert, die Daten anzugeben, die mit dem Block gespeichert werden sollen. Solche Daten können zum Beispiel Teilenummern, Preise, Kommentare oder Namen der Eigentümer sein.

Sie können aus einer Zeichnung Attributinformationen extrahieren und diese Angaben in einer Tabellenkalkulation oder Datenbank verwenden, um beispielsweise Teile- oder Stücklisten zu erstellen. Sie können einem Block mehrere Attribute zuordnen, vorausgesetzt jedes Attribut besitzt ein anderes Kennzeichen. AutoCAD fragt den Wert jedes Attributs ab, wenn Sie den Block einfügen. Sie können auch konstante Attribute definieren; da diese immer denselben Wert haben, ist beim Einfügen des Blocks keine Angabe eines Werts erforderlich.

Attribute können unsichtbar sein, was bedeutet, daß sie weder angezeigt noch geplottet werden. Die Informationen eines solchen Attributs werden jedoch in der Zeichnungsdatei gespeichert und mit dem BefehlATTEXT in eine Auszugsdatei geschrieben.

zu 3:
Da hab' ich mal 'n Pgm im Induma DLoad Forum reingestellt...
Ich versuch's mal hier anzuhängen.
Zum Aufrufen hab' ich mir 'n Icon in eine Toolbar gelegt und folgendes als Code dort angehängt:
(Der Doppelpunkt geht hier immer flöten, das [Doppelpunkt] steht für eben diesen...)

Code:

---

^C^C^P(if (null C[Doppelpunkt]ALIGN-TXT)(load "txt_set.lsp"))(princ);ALIGN-TXT;

---

Anbei dann die "txt_set.lsp". Guck mal rein und such
die "defun C[Doppelpunkt]..." Texte. Da ist noch 'n Haufen mehr an Textfunktionen was interessant für Dich sein könnte...
Übrigens funktioniert die Winkelübertragung vom Ablauf her wie der Übertragungspinsel von Acad. 1. Winkel von Objekt abnehmen und 2. auf Zielobjekt übertragen.
Ciao,
Marc

PS: Mist, unsere Firewall blockt den Upload...
Hier der Code. Du mußt nur nachher die "c[doppelpunkt]" durch "c:" ersetzen...

Code:

---

;;; *********************************************************************
;;; TXT_SET.LSP (c) 1998 by Marc Scherer
;;; Kontakt: marc.scherer@zvo.com
;;;
;;; Lauffähig unter AutoCAD 2000/2000i
;;; Programmaufruf mit:
;;; "xt" oder "(C[doppelpunkt]TXT_SET [Real])" für Texteintragung
;;; "txt" für Textwertübertragungen
;;; "align-txt" für Textausrichtungsübertragungen

;;; Textausrichtungen werden immer so vorgenommen, das sie nie auf dem
;;; Kopf stehen, sondern (bezogen auf das WKS) von Vorn
;;; oder von Rechts lesbar sind. Ausnahme ist das "Zeigen" der Richtung.

;;; Tool zum Erstellen von DTEXT-Objekten in Topographischen Lageplänen
;;;
;;; LWPOLYLINIEN-Part des PGM teilweise der
;;; "TAL.LSP" von Holger Brischke entnommen.

;;; Kontakt TAL-LSP:
;;; Holger Brischke
;;; Metro Real Estate Management GmbH
;;; DV-CAD
;;; 66123 Saarbrücken
;;; Bertha-v-Suttner-Str. 5
;;; [0049]-(0)681/8104-2584
;;; brischkh@mre.de
;;;
;;;
;;; Kontakt TXT_SET.LSP:
;;;                     Marc Scherer
;;;                     marc.scherer@zvo.com
;;;
;;;
;;; Version 2 vom 18.10.2001
;;; *********************************************************************

;;; *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm ***
;;; PGM erstellt DTEXT
(defun c[doppelpunkt]txt_set (hoehe / TMP-ORI pkt eingabe dcl_id newtxt NEWTXTLIST STYLE-LIST)
  (setq pkt (getpoint "\nStartpunkt für Texteinfügung klicken: "))
  (while pkt
    (setq TMP-ORI (FROM-OBJ))
    (if (= TMP-ORI NIL)
      (progn
(setq PKT (trans PKT 1 0))
(command "_.ucs" "_w")
(setq TMP-ORI
       (getorient
PKT
"\nRichtung für Texteinfügung bestimmen, oder Space/Enter für vorherige: "
       ) ;_ end getorient
) ;_ end setq
(command "_.ucs" "_p")
(setq PKT (trans PKT 0 1))
      ) ;_ end of progn
    ) ;_ end of if
    (if (= ori nil)
      (setq ori 0.0)
    ) ;_ end if
    (if (= tmp-ori nil)
      (setq tmp-ori ori)
    ) ;_ end if
    (setq ori tmp-ori)
    (if ms_txt
      (progn
(setq eingabe
       (getstring
T
(strcat
   "\nAktueller Text: "
   "\t\""
   ms_txt
   "\""
   "\nNEUEN Text eingeben; \"ü+Enter\" zum Übernehmen oder Rechtsklick/Enter für aktuellen: "
) ;_ end strcat
       ) ;_ end getstring
) ;_ end setq
(if eingabe
  (setq xeingabe (nul-del eingabe))
  )
(cond
  ((or (= eingabe "") (= xeingabe ""))
   (if (= ms_txt "")
     (progn
       (setq ms_txt nil)
       (alert "Unzulässig !\nTextwert war leer.\nProgrammende !"
       ) ;_ end alert
     ) ;_ end progn
     (setq ms_txt ms_txt)
   ) ;_ end if
  )
  ((and (= (type eingabe) 'STR) (/= eingabe ""))
   (if (or (= (nul-del eingabe) "ü") (= (nul-del eingabe) "Ü"))
     (progn
       (setq ms_txt (get-tw))
       (if (= ms_txt nil)
(progn
   (princ "\n...und noch einmal...")
   (c[doppelpunkt]txt_set hoehe)
) ;_ end progn
(setq ms_txt ms_txt)
       ) ;_ end if
     ) ;_ end progn
     (setq ms_txt eingabe)
   ) ;_ end if
  )
) ;_ end cond
      ) ;_ end progn
      (progn
(setq eingabe
       (getstring
T
"\nEinzufügenden Text eingeben, oder \"ü+Enter\" zum Übernehmen: "
       ) ;_ end getstring
) ;_ end setq
(if eingabe
  (setq xeingabe (nul-del eingabe))
  )
(cond
  ((or (= eingabe "") (= xeingabe ""))
   (setq ms_txt nil)
   (alert "Unzulässig !\nTextwert war leer.\nProgrammende !")
  )
  ((and (= (type eingabe) 'STR) (/= eingabe ""))
   (if (or (= (nul-del eingabe) "ü") (= (nul-del eingabe) "Ü"))
     (progn
       (setq ms_txt (get-tw))
       (if (= ms_txt nil)
(c[doppelpunkt]txt_set hoehe)
(setq ms_txt ms_txt)
       ) ;_ end if
     ) ;_ end progn
     (setq ms_txt eingabe)
   ) ;_ end if
  )
) ;_ end cond
      ) ;_ end progn
    ) ;_ end if
    (if (/= ms_txt nil)
      (progn
(if (= (tblsearch "STYLE" "SIMPLEX") NIL)
  (progn
    (setq STYLE-LIST
   (list '(0 . "STYLE") '(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbTextStyleTableRecord") '(2 . "SIMPLEX")
'(70 . 0) '(40 . 0.0) '(41 . 1.0) '(50 . 0.0)
'(71 . 0) '(42 . 2.5) '(3 . "simplex.shx") '(4 . "")) ;_ end of list
    ) ;_ end of setq
    (entmake STYLE-LIST)
  ) ;_ end of progn
) ;_ end of if
(setq PKT (trans PKT 1 0)
      NEWTXTLIST
(list '(0 . "TEXT")
       (cons 10 PKT)
       (cons 40 HOEHE)
       (cons 1 MS_TXT)
       (cons 7 "SIMPLEX")
       (cons 50 ORI)
) ;_ end of list
) ;_ end of setq
(entmake NEWTXTLIST)      
(setq pkt
       (getpoint
"\nStartpunkt für weitere Texteinfügung klicken, oder Space/Enter für Ende: "
       ) ;_ end getpoint
) ;_ end setq
      ) ;_ end progn
      (setq pkt nil)
    ) ;_ end if
  ) ;_ end while
  (princ)
) ;_ end defun

;;; *** Main-Variante *** Main-Variante *** Main-Variante *** Main-Variante ***
;;; Pgm zum Aufruf der Hauptfunktion TXT_SET wenn TXT_SET nach einer
;;; Texthöhe fragen soll.
(defun c[doppelpunkt]XT (/ ASK-TXT XT-HX)
  (if XT-H
    (setq ASK-TXT
   (strcat
     "\nZeichne Text auf AKTUELLEM Layer...\n\"REAL\" für Texthöhe, oder \"ENTER\" für <"
     (rtos XT-H 2 2)
     ">: "
   ) ;_ end strcat
    ) ;_ end setq
    (setq ASK-TXT
   "\nZeichne Text auf AKTUELLEM Layer...\n\"REAL\" für Texthöhe: "
    ) ;_ end setq
  ) ;_ end if
  (initget 6) ;_ Keine null oder negativ
  (setq XT-HX (getreal ASK-TXT) ;_ end getreal
  ) ;_ end setq
  (cond ((and (= XT-HX NIL) (/= XT-H NIL)) (c[doppelpunkt]TXT_SET XT-H))
((= (type XT-HX) 'REAL) (setq XT-H XT-HX) (c[doppelpunkt]TXT_SET XT-H))
(t (alert "Sorry, Fehleingabe. Programmende!"))
  ) ;_ end cond
  (princ)
) ;_ end defun

;;; *** Main-Variante *** Main-Variante *** Main-Variante *** Main-Variante ***
;;; Aufruf mit globaler Variable "XXT-H" aus anderem LISP-PGM
(defun c[doppelpunkt]XXT (/)
  (if XXT-H
    (c[doppelpunkt]TXT_SET XXT-H)
  ) ;_ end of if
) ;_ end of defun

;;; *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm ***
;;; Pgm überträgt Quelltextwert auf Dtext-Objekte
(defun c[doppelpunkt]txt (/ ENT ENTBEM ENTDAT GTW TXTED-ALT TXTED-NEU)
  (setq gtw (get-tw))
  (if (= gtw nil)
    (princ "\nKein Quellobjekt gewählt, oder ungültig !")
    (progn
      (princ
"\nText\(e\) zur Textwertübertragung wählen..."
      ) ;_ end princ
      (setq ent T)
      (while (/= ent nil)
(setq ent
       (car
(entsel "\n...übertragen auf...\(Rechtsklick=Ende\)"
) ;_ end entsel
       ) ;_ end car
) ;_ end setq
(if ent
  (progn
    (setq entdat (entget ent)
  entbem (cdr (assoc 0 entdat))
    ) ;_ end setq
    (if (= entbem "TEXT")
      (progn
(setq txted-alt (assoc 1 entdat)
      txted-neu (cons 1 gtw)
      entdat (subst txted-neu txted-alt entdat)
) ;_ end setq
(entmod entdat)
(setq ent T)
      ) ;_ end progn
      (progn
(setq ent T)
(princ "\nSorry, Objekt war KEIN Text.")
      ) ;_ end progn
    ) ;_ end if
  ) ;_ end progn
  (progn
    (princ "\nNichts gewählt...")
    (setq ent nil)
  ) ;_ end progn
) ;_ end if
      ) ;_ end while
    ) ;_ end progn
  ) ;_ end if
  (princ "\nOK, Programmende !")
  (princ)
) ;_ end defun

;;; *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm ***
;;; Spezialisiertes Pgm zum erstellen von Detailmarkern
(defun c[doppelpunkt]detmark ( / pt tx os-mod)
  (setq pt (getpoint "\nPunkt für Detail-Markierung klicken: ")
tx (getstring
     "\nText für Detail-Markierung eingeben z.B. \"G99\":"
   )
  )
  (if (and pt (and (not (eq tx nil))(not (eq (vl-string-trim " " tx) ""))))
    (progn
      (setq os-mod (getvar "osmode"))
      (setvar "osmode" 0)
      (setvar "cecolor" "2")
      (setvar "lastpoint" pt)
      (command "_.circle" pt 2.8)
      (command "_.text" "_j" "_c" "@0,-0.8355" 1.75 "100g" tx "")
      (setvar "cecolor" "BYLAYER")
      (setvar "osmode" os-mod)
      (princ "\nOk, erledigt...")
    )
    (princ "\nKeinen Punkt oder Text eingegeben. Programmende")
  )
  (princ)
)

;;; *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm *** Main-Pgm ***
(defun c[doppelpunkt]ALIGN-TXT (/ TMP-ORI PKT)
  (setq TMP-ORI (FROM-OBJ))
  (if (= TMP-ORI NIL)
    (progn
      (initget 41)
      (setq PKT (trans (getpoint "\nErster Punkt für Richtung...") 1 0))
      (command "_.ucs" "_w")
      (setq TMP-ORI
     (getorient
       PKT
       "\nRichtung für Texteinfügung bestimmen..."
     ) ;_ end getorient
      ) ;_ end setq
      (command "_.ucs" "_p")
      (setq PKT (trans PKT 0 1))
    ) ;_ end of progn
  ) ;_ end of if
  (if (= ori nil)
    (setq ori 0.0)
  ) ;_ end if
  (if (= tmp-ori nil)
    (setq tmp-ori ori)
  ) ;_ end if
  (setq ori tmp-ori)
  (GO-APPLY TMP-ORI)
  (princ)
)

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
(defun GO-APPLY (OBJANGLE / NEW-ANGLE NEW-LST OBJ OBJDATA OBJNAME
OBJTYPE OLD-ANGLE)
  (setq NEW-ANGLE (cons 50 OBJANGLE))
  (while (/= (setq
       OBJ
(entsel
  "\nZielobjekt \(Text\) für Winkel wählen \(Rechtsklick=Ende\): "
) ;_ end of nentsel
     ) ;_ end of setq
     NIL
) ;_ end of /=
    (cond
      ((= OBJ NIL)
       (princ "\nSorry KEIN Objekt gewählt !")
      )
      (t
       (setq OBJDATA (entget (setq OBJNAME (car OBJ)))
     OBJTYPE (cdr (assoc 0 OBJDATA))
       ) ;_ end of setq
       (cond
((eq OBJTYPE "TEXT")
  (setq OLD-ANGLE (assoc 50 OBJDATA)
NEW-LST   (subst NEW-ANGLE OLD-ANGLE OBJDATA)
  ) ;_ end of setq
  (entmod NEW-LST)
  (entupd OBJNAME)
)
(t
  (princ
    "\nSorry, kein gültiges Zielobjekt \(Text\) gewählt !"
  ) ;_ end of princ
)
       ) ;_ end of cond
      ) ;_ end of T
    ) ;_ end of cond
  ) ;_ end of while
  (princ)
) ;_ end of defun

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Ermittelt den Winkel für Textobjekt aus Linie,Polylinie,Text und LWPOLY
(defun FROM-OBJ (/    1ST-KORD  2ND-KORD  OBJ OBJANGLE
OBJDATA   OBJNAME   OBJTYPE   ONAME ONAME-NXT
KEY    ELIST     LKLKPT    PTLISTE PTLISTE2
X
)
  (setq OBJ   NIL
KEY   "Zeigen"
KEY-WORDS "Zeigen Li->re Un->ob Re->li Ob->un"
  ) ;_ end of setq
  (while (= OBJ NIL)
    (initget KEY-WORDS)
    (setq OBJ
   (nentsel
     "\nQuellobjekt \(Polylinie/Linie/Text\) für Textwinkel wählen [Zeigen/Li->re/Un->ob/Re->li/Ob->un]: "
   ) ;_ end of nentsel
    ) ;_ end of setq
    (cond
      ((= OBJ NIL)
       (princ
"\nSorry, kein Objekt gewählt.\nVersuchs noch mal..."
       ) ;_ end of princ
      )
      ((eq OBJ KEY) (setq OBJANGLE NIL))
      ((eq OBJ "Li->re") (setq OBJANGLE 0.0))
      ((eq OBJ "Un->ob") (setq OBJANGLE (/ (* 2 pi) 4)))
      ((eq OBJ "Re->li") (setq OBJANGLE (/ (* 2 pi) 2)))
      ((eq OBJ "Ob->un") (setq OBJANGLE (/ (* 3 (* 2 pi)) 4)))
      ((= NIL
  (or
    (eq "LINE" (cdr (assoc 0 (entget (car OBJ)))))
    (eq "LWPOLYLINE" (cdr (assoc 0 (entget (car OBJ)))))
    (eq "VERTEX" (cdr (assoc 0 (entget (car OBJ)))))
    (eq "TEXT" (cdr (assoc 0 (entget (car OBJ)))))
  ) ;_ end of or
       ) ;_ end of =
       (setq OBJ NIL)
       (princ
"\nSorry, keine gültige Polylinie, Linie oder Text gewählt.\nVersuchs noch mal..."
       ) ;_ end of princ
      )
    ) ;_ end of cond
  ) ;_ end of while 
  (cond
    ((or (= (type OBJANGLE) 'REAL) (eq OBJ KEY))
     (setq OBJANGLE OBJANGLE)
    )
    (t
     (setq OBJDATA (entget (setq OBJNAME (car OBJ)))
   OBJTYPE (cdr (assoc 0 OBJDATA))
   LKLKPT  (trans (cadr OBJ) 1 0)
     ) ;_ end of setq
     (cond
       ((eq OBJTYPE "TEXT")
(setq OBJANGLE (cdr (assoc 50 OBJDATA))
      OBJANGLE (WINKEL-KORREKTUR OBJANGLE)
) ;_ end of setq
       )
       ((eq OBJTYPE "LINE")
(setq OBJANGLE (angle (cdr (assoc 10 OBJDATA))
      (cdr (assoc 11 OBJDATA))
       ) ;_ end of angle
      OBJANGLE (WINKEL-KORREKTUR OBJANGLE)
) ;_ end of setq
       )
       ((eq OBJTYPE "VERTEX")
(if (= (member "geomcal.arx" (arx)) NIL)
  (arxload "geomcal.arx")
) ;_ end of if
;_ erstellen einer Punktliste der Polyline
(setq EL       (entget (setq EN (cdr (assoc 330 OBJDATA))))
      Z        0
      PTLISTE2 '()
) ;_ end setq
(while (and (setq EN (entnext EN))
    (= (cdr (assoc 0 (setq EL (entget EN)))) "VERTEX")
       ) ;_ end and
  (setq P (cdr (assoc 10 EL))
P (list (car P) (cadr P))
  ) ;_ end setq
  (if (= (member P PTLISTE2) NIL)
    (setq PTLISTE2 (append (list P) PTLISTE2))
  ) ;_ end if
) ;_ end while
(setq PTLISTE (SEARCHPLSEGMENT PTLISTE2 LKLKPT))
(if (= PTLISTE NIL)
  (setq OBJANGLE (angle (car PTLISTE2) (last PTLISTE2)))
  (setq OBJANGLE (angle (car PTLISTE) (cadr PTLISTE)))
) ;_ end of setq
(setq OBJANGLE (WINKEL-KORREKTUR OBJANGLE))
       )
       ((eq OBJTYPE "LWPOLYLINE")
(if (= (member "geomcal.arx" (arx)) NIL)
  (arxload "geomcal.arx")
) ;_ end of if
(setq ELIST    (entget OBJNAME)
      PTLISTE2 (apply
'append
(mapcar
   '(lambda (X)
      (if (= 10 (car X))
(list (cdr X))
      ) ;_ end of if
    ) ;_ end of lambda
   ELIST
) ;_ end of mapcar
       ) ;_ end of apply
) ;_ end of setq
(setq PTLISTE (SEARCHPLSEGMENT PTLISTE2 LKLKPT))
(if (= PTLISTE NIL)
  (setq OBJANGLE (angle (car PTLISTE2) (last PTLISTE2)))
  (setq OBJANGLE (angle (car PTLISTE) (cadr PTLISTE)))
) ;_ end of if
(setq OBJANGLE (WINKEL-KORREKTUR OBJANGLE))
       )
     ) ;_ end of cond
    ) ;_ end of t
  ) ;_ end of cond
  (if OBJANGLE
    (setq OBJANGLE OBJANGLE)
    (setq OBJANGLE NIL)
  ) ;_ end of if
) ;_ end of defun

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Sucht das geklickte Polyliniensegment
(defun searchplsegment (ptli klkpt / za pt1 pt2 aept)
  (setq za 0)
  (repeat (1- (length ptli))
    (setq pt1 (nth za ptli))
    (setq pt2 (nth (1+ za) ptli))
    (setq za (1+ za))
    (if (klksegmentepr pt1 pt2 klkpt)
      (setq aept (list pt1 pt2))
    )
  )
  aept
)

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Ermittelt den Vektor eines LWPolylinien-Segmentes
(defun klksegmentepr (ap1 ep1 ap2 / rtg rv1 rv2 rv3)
  (setq rv1 (cal "vec1(ap1,ap2)"));Richtungsvector bestimmen
  (setq rv2 (cal "vec1(ap2,ep1)"))
  (setq rv3 (cal "vec1(ap1,ep1)"))
  (if (= T (and
     (equal rv1 rv2 0.5)
     (equal rv1 rv3 0.5)
     (equal rv2 rv3 0.5)
   )
      )
    (setq rtg T)
    (setq rtg nil)
  )
  rtg
)

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Unterprogramm zur Winkelkorrektur.
;;; "Normalisiert" einen Winkel so, dass er nicht "auf dem Kopf" steht!
(defun winkel-korrektur (Eingangswinkel /)
  (if (and (<= Eingangswinkel (* (/ 3.0 4.0) (* 2 pi)))
   (> Eingangswinkel (* (/ 1.0 4.0) (* 2 pi)))
      ) ;_ end of or
    (setq Eingangswinkel (+ Eingangswinkel pi))
  )
  Eingangswinkel ;_ Rückgabe des Winkels an rufende Funktion
)

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Ermittelt den Textwert eines Dtext-Objektes
(defun get-tw (/ ENT ENTBEM ENTDAT TXTED)
  (princ
    "\nWählen Sie das Textobjekt an, von dem Sie den Textwert übernehmen wollen: "
  ) ;_ end princ
  (setq ent T)
  (while (/= ent nil)
    (setq ent
   (car
     (nentsel "\nTextobjekt anklicken, oder \(Rechtsklick=Ende\)"
     ) ;_ end entsel
   ) ;_ end car
    ) ;_ end setq
    (if ent
      (progn
(setq entdat (entget ent)
      entbem (cdr (assoc 0 entdat))
) ;_ end setq
(if (= entbem "TEXT")
  (progn
    (setq txted (cdr (assoc 1 entdat))
  ent nil
    ) ;_ end setq
  ) ;_ end progn
  (progn
    (setq ent T)
    (princ "\nSorry, Objekt war KEIN Text.")
  ) ;_ end progn
) ;_ end if
      ) ;_ end progn
      (progn
(princ "\nNichts gewählt...")
(setq ent nil)
      ) ;_ end progn
    ) ;_ end if
  ) ;_ end while
  (if txted
    (setq txted txted)
    (setq txted nil)
  ) ;_ end if
) ;_ end defun

;;; *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm *** Sub-Pgm ***
;;; Löschen ALLER Leerzeichen innerhalb des übergebenen Strings...
;;; Input: "   123 456 789   " -> "123456789"
;;; Input: "123456789" -> "123456789" [logisch ;-) ]
(defun nul-del (t-x-t / INDEX NEW-TXT QUEST S-LEN ZCH BACK)
  (setq quest (vl-string-search " " t-x-t)) ;_ Leerzeichen vorhanden?
  (if (= quest nil)
    (setq t-x-t t-x-t)
    (progn
      (setq t-x-t (vl-string-trim " " t-x-t) ;_ Leerz. am Anfang und Ende entfernen
    quest (vl-string-search " " t-x-t) ;_ Leerzeichen vorhanden?
      ) ;_ end setq
      (if (= quest nil)
(setq t-x-t t-x-t)
(progn
  (setq index 1
new-txt ""
s-len (strlen t-x-t)
  ) ;_ end setq
  (while (<= index s-len)
    (setq zch (substr t-x-t index 1))
    (if (/= zch " ")
      (setq new-txt (strcat new-txt zch))
    ) ;_ end if
    (setq index (1+ index))
  ) ;_ end while
  (setq t-x-t new-txt)
) ;_ end progn
      ) ;_ end if
    ) ;_ end progn
  ) ;_ end if
  (setq back t-x-t)
) ;_ end defun
(princ)

---

[Diese Nachricht wurde von marc.scherer am 05. März 2002 editiert.]

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

---

Hi Christa,
vielleicht kann ich dir (zu 1)helfen, aber es ist etwas schwer mit den wenigen Angaben über deinen Rechner eine Ferndiagnose zu stellen. Was hast du für Hartware? Wieviel Festplattenspeicher hast du noch auf der C frei? Ist dein Rechner vernetzt? Wie hast du WIN2000 installiert (nur über 98 drübergeschrubt)?
AutoCAD2000 läuft normalerweise fehlerfrei unter Win2000.
gruss
Caladia

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

---

Hallo Zusammen
zum letzetn Beitrag- ES IST EIN NEUER RECHNER SPEZIELL FÜR CAD ANWENDUNGEN ZUSAMMENGEBAUT
Ich benutzte auf meinem Rechner 3CAD Programme und zwei Grafikprogramme. Alle laufen problemlos, bis auf AutoCAD. Habe jetzt den dritten Spezialisten bestellt, um AutoCAD in den Rechner zu integrieren und habe mittlerweile das Gefühl, so wie Autodesk die Monopolstellung auf dem Markt hat, soll auch im PC für AutoCAD eine Monopolstellung eingeräumt werden. Habe zum Glück bei anderen CAD Entwicklern festgestellt, dass Sie sich an den Anwendern orientieren und nicht die Anwender am Programm.
Zu dem vorherigen Riesenbeitrag habe ich nur anzumerken: Ich möchte Konstruieren und nicht Programmieren.
Das wärs zu meinem Frust.
Da ich auch heute wieder 16 Stunden gezeichnet habe ist es für mich wichtig, dass ein Programm läuft und ich nicht ständig die Foren wegen techischen Problemen absuchen muß.
Gute Nacht christa

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

---

Hallo Christa,

zu 1) Haben wir auch manchmal. Woran es liegt? - keine Ahnung.

zu 2) Einen Block mit gleichen Attributen auf unterschiedlichen Layern für die verschiedenen Maßstäbe definieren. Über die Layersteuerung kannst Du dann die entsprechenden Texte ein - bzw. ausblenden.

zu 3)
Dass du nicht Programmieren möchtest, kann ich akzeptieren. Man muß schließlich Prioritäten setzen. Wenn du dich jedoch hinreißen lassen würdest, fertig ausprogrammierte Tools zu nutzen, wäre das nur von Vorteil. AutoCAD ist nun mal ein ganz allgemein gehaltenens CAD-Programm. Weshalb es bei spezifischen Anforderungen ohne Zusatzapplikationen oftmals an seine Grenzen stößt.
Die Lösung ohne Tool ist auch nicht so schwer, aber eben umständlich.
1. Befehl 'Ausrichten'
2. Wenn der Text horizontal ist, und der Anfangspunkt der Diagonalen gleich dem Basispunkt des Textes kann man einfach den Befehl 'DREHEN' nutzen.

Grüße Holger

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

---

Hallo Christa,
ich hab sogenannte Spezialisten schon bei der Arbeit gesehen. Viele tun nur so als ob sie Ahnung haben, ich hab jedenfalls nur die Hände überŽm Kopf zusammengeschlagen. Ich spiel die Sachen alle selbst auf und hab auch so selten Probleme das etwas nicht funktioniert.

Gruss Caladia

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

---

@ zei-knoe:
Wieso mußt Du programmieren? Das Tool ist fix und fertig, Du mußt das nur kopieren, 'n paar Texte austauschen (weil dieses Forum eben die "C[doppelpunkt]" Syntax "frißt", als "txt_set.lsp" speichern und in Acad laden. Und ab geht's... Versuch's doch erstmal, bevor Du rummeckerst. Ich habe nur versucht Dir zu helfen. Schließlich hast DU nach einer Möglichkeit gefragt.
Aber wenn Dir sowas zu mühselig ist, werde ich in Zukunft Deine Fragen ignorieren.
Ciao,
Marc

PS: Vielleicht können ja wenigstens andere hier im Forum damit ewas anfangen.

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

---

zu 2.
Warum fügt man eine Plankopf als X-Ref ein?

Gruß
Peter

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

---

Hi Marc,
ich hab dein Tool mal ausprobiert und finde es recht nützlich. Aber ich glaube nicht das es das war was Christa sucht.
@ Christa:
ehrlich gesagt habe ich nicht richtig verstanden was du unter deiner 3. Frage genau Suchst?

Gruß Caladia

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

---

Hallo an alle Schreiber
der dritte Experte hat auch nicht herausgefunden, warum der Rechner (nur nach zeichnen in Acad) nicht herunterfährt. Allerdings habe ich erfahren, dass Win2000 manches anders handhabt als Win98. Warum weiß von Autodesk niemand was dazu??
MfG Ch Knörnschild

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

---

Klar, das Betriebsysem ist auf NT Basis, du brauchst andere Treiber. Ich würde mich nie auf sogenannte Experten verlassen, das gibt nur Murks. Jedesmal wenn ich eine Rechner sehe, der von so einem sgenannten Experten eingerichtet wurde, kann ich nur mit dem Kopf schütteln. Ich hab sogar mal aus einer Rechnung von so einem Experten herauslesen können, wie er das Betriebsystem zwangsweise geschrottet hat, und alle haben sich nur gewundert warum der Rechner ständig abstürzte.

bye Caladia

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

---

Moin.

Habe gerade hier was geschrieben:
http://www.cad.de/foren/ubb/Forum54/HTML/000027.shtml

Admin-Rechte und "PhoneHome" könnten auf Dich zutreffen.

ML

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

---

Samstag Nacht ein Uhr.
Wollte mal wieder ACAD beenden und Rechner runterfahren, Frust. Alle Ideen helfen nicht, Acad schließt, Rechner fährt nicht runter.
An der Speicherkapazität meines Rechners (14Tage alt) 512+256MB ist nach Auskunft von Autodesk ausreichend für Win 2000 + Acad 2000.
Die Frage, die sich mir stellt, welches Programme haben Konflikte miteinander???? Ist es t-online und AutoCAD ?? Corel Draw und AutoCAD??? Sind es die zwei anderen CAD Programme, die ich ebenfalls sehr häufig nutzte, und die mit Dongle laufen??
Ich merke, ich bin völlig ratlos und geh jetzt besser schlafen. Übrigens macht wirklich nur ACAD Probleme auf meinem neuen Rechner und das nervt.  GUTE NACHT  christa

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

---

Hi Christa,
du solltest auf keinen Fall mit der t-online Software ins Internet gehen. Die wirkt sich mitunter auf verschiedene Programme schlecht aus. AutoCAD, T-Online und Works zum Beispiel ist eine tötliche Kombination. Auserdem habe ich schon festgestellt, das nur ein Programm, was fehlerfrei läuft, dafür verantwortlich seien kann, das ein anderes nicht mehr läuft. Ich hatte allerdings auch schon mal ein Problem nach einbau eines neuen Rambausteins. Städig gab es Abstürze beim IE. Nachdem ich etwas eindringlicher darauf gepocht habe, das dieser sofort wieder ausgetauscht wird, war der Fehler behoben. Der "Computer-Spezi" der dafür verantwortlich war, wollte mir danach noch verkaufen, dass der offensichtlich vehlerhafte Rambaustein, nichts mit den Abstürzen zu tun hat. Der Fehler war danach jedenfalls nicht wieder aufgetaucht. Aber wieder zu deinem Problem. Es gibt viele ältere Programme, die zwar auf WIN2000 laufen, aber sich schädlich auf ihre Umgebung auswirken. Die müssen nicht einmal gestartet werden, es reicht das sie installiert sind. Es kann sogar ein kleines Tool sein, auf das man überhaupt nicht kommen würde. WIN2000 und XP reagieren in dieser hinsicht sogar extrem empfindlich.

Gruß Caladia

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

---

zu 1.)
Diesen Beitrag kann ich jetzt mit einem Ergebnis beenden, nachdem hier die aberwitzigsten Ideen kamen. Für alle, die das gleiche Problem bekommen, es gibt doch noch Spezialisten:
Eine Unverträglichkeit einer win2000 exe (ntvdm.exe) und einer Acad2000i exe (cdilla.exe)verursachen alle Probleme die ich beschrieben habe.
Mit einem Stabilitäts update von acad 2000i war der Fehler behoben. Leider steht dieses update nicht ohne weiteres zur Verfügung.
Endlich kann ich ohne Frust weiterarbeiten.
zu 2.)
Habe noch nicht ganz die unterschiedlichen Anwendungen von xRefs und Blöcken kapiert. Werde mich bemühen, dazu noch mehr zu verstehen.
zu 3.)
Da ich mit zwei weiteren CAD Programmen arbeite, suche ich in ACAD immer das, was diese zwei Programme können. Deswegen habe ich nicht so viel Lust, bis in die Tiefen von ACAD vorzudringen.
MfG Ch Knörnschild

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