---

Hallo.
Habe im Forum dieses nette lisp gefunden, welches die z-Koordinate schreibt. Leider muß man jeden (Höhen)Punkt einzeln anfahren. Kann das so abgeändert werden, dass man mehrere (oder alle) Punkte gleichzeitig wählen kann? Bin lisp-technisch vollkommen planlos...
Danke, schon mal!!!

(defun c:hkote () 
(if (not (tblsearch "BLOCK" "HKOTE")) (exit)) 
(setq attdia-s (getvar "attdia")) 
(setq dimzin-s (getvar "dimzin")) 
(setvar "attdia" 0) 
(setvar "dimzin" 0) 
(command "_-insert" "hkote" (setq p1 (getpoint "\nPunkt wählen: ")) "" "" ""
(rtos (caddr p1) 2 2)) 
(setvar "attdia" attdia-s) 
(setvar "dimzin" dimzin-s) 
)

------------------
  die_Pat 

hp xw4100  Pentium 4  Win XP
AutoCAD 2000  ADT 3.3  Expresstools

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

---

Hi,
wie: "dass man mehrere (oder alle) Punkte gleichzeitig wählen kann?"
Getpoint fordert ja nicht zur Objektwahl auf, sondern zum picken von Punkten. Was willst Du erreichen?
Willst Du einfach immer wiederholt Punkte picken, oder sind Deine Punkte als Objekte (Punkt, Kreis, Block) in der Zeichnung bereits vorhanden?

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

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

---

Guten Morgen.
Die Höhenpunkte sind als Objekte in der Zeichnung vorhanden. Ich würde die Objekte gerne gemeinsam anwählen und nicht jeden einzelnen anpicken (ist bei den vielen Punkten etwas mühsam...), dann das geht mit der lisp ja.
Vielen Dank.

------------------
  die_Pat 

hp xw4100  Pentium 4  Win XP
AutoCAD 2000  ADT 3.3  Expresstools

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

---

Hi die_pat,
*aus der Nase zieh" -> WAS für Objekte sind es denn? Punkte? Blöcke? Das wäre schon interessant zu wissen, wenn man das Pgm. anpassen will.

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

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

---

*schäm*
es sind Punkte...

------------------
  die_Pat 

hp xw4100  Pentium 4  Win XP
AutoCAD 2000  ADT 3.3  Expresstools

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

---

Hi,
versuch's mal hiermit:

Code:

---

(defun c:hkote (/ ATTDIA-S DIMZIN-S DXF-CODE ENAME KOORD SGET SNAME)
  (if (find-block "hkote")
    (progn
      (setq attdia-s (getvar "attdia")
            dimzin-s (getvar "dimzin")
            attreq-s (getvar "attreq")
      ) ;_ end of setq
      (setvar "attdia" 0)
      (setvar "dimzin" 0)
      (setvar "attreq" 1)
      (if (not (setq SGET (ssget "I")))
        (progn
          (princ "\nObjekte für Beschriftung wählen: ")
          (setq sget (ssget))
        ) ;_ end of progn
      ) ;_ end of if
      (if (not sget)
        (princ "\nKeine Objekte gewählt! Funktionsende.")
        (progn
          (setq index 0)
          (while (> (sslength sget) 0)
            (setq sname (ssname sget 0)
                  koord (dxf-lst-from sname 10)
            ) ;_ end of setq
            (foreach elem koord
              (setq index (1+ index))
              (command "_.-insert"
                      "hkote"
                      (cdr elem)
                      ""
                      ""
                      ""
                      (if (setq zwrt (caddr (cdr elem)))
                        (rtos zwrt 2 2)
                        (rtos 0.0 2 2)
                      ) ;_ end of if
              ) ;_ end of command
            ) ;_ end of foreach
            (ssdel sname sget)
          ) ;_ end of while
        ) ;_ end of progn
      ) ;_ end of if
      (setvar "attdia" attdia-s)
      (setvar "dimzin" dimzin-s)
      (setvar "attreq" attreq-s)
      (princ (strcat "\n>" (itoa index) "< Höhenkoten eingefügt! Funktionsende."))
    ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

(defun dxf-lst-from (ename dxf-code /)
  (if ename
    (progn
      (vl-remove-if-not
        (function (LAMBDA (x) (= (car x) dxf-code)))
        (entget ename)
      ) ;_ end of vl-remove-if-not
    ) ;_ end of progn
  ) ;_ end of if
) ;_ end of defun

(defun find-block (bname / bpath)
  (if (not (tblsearch "BLOCK" bname))
    (if (setq bpath (findfile (strcat bname ".dwg")))
      (progn
        (command "_.insert" bpath "0,0,0" "1" "1" "") ;_ nimm nur den Blocknamen
        (entdel (entlast))
      ) ;_ end of progn
      (progn
        (princ (strcat "\nKein Block mit Namen: >"
                      bname
                      "< gefunden! Funktionsende."
              ) ;_ end of strcat
        ) ;_ end of princ
        (setq bname nil)
      ) ;_ end of progn
    ) ;_ end of if
  ) ;_ end of if
  bname
) ;_ end of defun

(princ)

---

..

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

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

---

Hallo,

das klappt ja ganz gut, aber woher kommen denn die anderen 14 Punkte, wenn nur einer gesetzt ist?

Ciao

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

---

Hi AsSchu,
???
Woher kommen Deine Gedanken?
Ich weiß es nicht.
Ohne eine etwas präzisere Beschreibung dessen, was bei Dir passiert kann ich Dir nicht Antworten.
Bin ich Hellseher? Oder gibt es eine ActiveX-Funktion für Dich?

(vla-get-gedanken (vlax-get-asSchu-obj))

Und: Ist das 'ne collection oder ein Object?

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

[Diese Nachricht wurde von marc.scherer am 27. Apr. 2004 editiert.]

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

---

tausendmal Entschuldigung.

Es lag an meiner "normalen"
Zeichnungsvorlage.
Das lisp klappt hervorragend.

Ciao

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

---

Freude, Freude!

Danke, das war genau das, was wir brauchten.

------------------
  die_Pat 

hp xw4100  Pentium 4  Win XP
AutoCAD 2000  ADT 3.3  Expresstools

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