---

Hallo.
Ich arbeite mit acad 2002.
Ich suche folgenden Befehl oder eine lisp.
Ich möchte in meiner Zeichnung einen Bezugspunkt selektieren.
Selektiere ich nun einen anderen Punkt in der Zeichnung,
so sollen die x , y , z Koordinaten dieses Punktes in bezug zum Bezugspunkt angezeigt und oder als Text eingetragen werden
Kann mir jemand helfen ?
Danke Jürgen

   

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

---

Hallo,
Anzeige geht so:
BKS auf den Bezugspunkt verschieben.
_id eingeben und gewünschten Punkt auswählen.

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

gruß
thomas

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

---

Hallo nochmal,
oder ohne BKS-Verschiebung:
_dist, da wird auch dx und dy angezeigt,
musst nur den Bezugspunkt jedesmal wieder auswählen

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

gruß
thomas

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

---

pid-wz.zip

Siehe Attachment. Die Koordinaten werden angeschrieben. aAs ursprüngliche File war ein Vermessungstool, das ich abgeändert habe.

Es gibt bei Cadwiesel ein File (Punkteliste), das die Koordinaten in einem Textfile speichert. Ich habe das so erweitert, dass die Punkte laufend ab einer Startnummer durchnummeriert werden, die Nummer angeschrieben und alles in das Textfile geschrieben wird.

Bei Bedarf => PM

Walter

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

---

koordinaten.ZIP

hi,

habe hier was für die koordinatenbemaßung. unter anderem kannst du beim erstellen relativ/absolut auswählen. dürfte deine bedürfnisse voll erfüllen.

------------------
hopethishelps

Yeti

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

---

Hi Jürgen,
hier ne keine LISP, durch picken der Punkte, werden die Differenzen in der Befehlszeile angezeigt.

(defun
  C: DELTA_KOOR (/ POINT1 POINT2 P2_X P2_Y P2_Z)
  (setq P2_X 0)
  (setq P2_Y 0)
  (setq P2_Z 0)
  (while (= POINT2 NIL)
    (princ
      "\r                                                                                                                "
    ) ;_ Ende von princ
    (initget 1 "Basispunkt Ende ")
    (setq
      POINT2
      (getpoint
        (strcat
          "\rDelta X: "
          (rtos P2_X 2 3)
          " Delta Y: "
          (rtos P2_Y 2 3)
          " Delta Z: "
          (rtos P2_Z 2 3)
          " Punkt picken, oder [ Basispunkt / Ende]: "
        ) ;_ Ende von strcat
      ) ;_ Ende von GETWORD
    ) ;_ Ende von setq
    (cond
      ((= (type POINT2) 'list)
      (if (= POINT1 nil)
        (progn
          (setq POINT1 (getpoint "\nPicken Sie den Basispunkt : "))
          (setq POINT2 POINT1)
          (DELTA_RECHNEN)
        ) ;_ Ende von progn
        (progn (DELTA_RECHNEN)) ;_ Ende von progn
      ) ;_ Ende von if
      )
      ((eq POINT2 "Basispunkt")
      (setq POINT1 (getpoint "\nPicken Sie den Basispunkt : "))
      (setq POINT2 POINT1)
      (DELTA_RECHNEN)
      )
      ((eq POINT2 "Ende")
      (setq POINT2 "QUIT")
      (setq P2_X 0)
      (setq P2_Y 0)
      (setq P2_Z 0)
      )
    ) ;_ Ende von cond
  ) ;_ Ende von while
) ;_ Ende von defun
(defun
  DELTA_RECHNEN (/)
  (setq P2_X (- (car POINT2) (car POINT1)))
  (setq P2_Y (- (cadr POINT2) (cadr POINT1)))
  (setq P2_Z (- (caddr POINT2) (caddr POINT1)))
  (setq POINT2 NIL)
) ;_ Ende von defun

Viel Spaß,
Mario
www.the-skier.de

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

---

Hallo
Vielen Dank an alle.
Leider habe ich einige Probleme.
Die Lisp von Mario meldet mir
Fehler/Abbruch!-->Syntaxfehler
und die Koordinatenzip von yeti
meldet nach dem selektieren von Punkten :
Unbekannter Befehl "24000.00". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "12000.00". Drücken Sie F1-Taste für Hilfe.
Unbekannter Befehl "-11240.00". Drücken Sie F1-Taste für Hilfe.
Vielleicht kommen die lisp nicht mit acad 2002 klar.
Weis jemand Rat ?

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

---

hi jukni,

also bei mir läuft die lisp unter acad2002. wie hast du sie geladen? ich habe einen eintrag in der acad2000doc.lsp mit folgender syntax gemacht: (autoload "bemkoo" '("bemkoo"))  damit ist sie immer geladen und funzt ohne probleme.

nachtrag: natürlich habe ich ein icon mit bemkoo gemacht...

------------------
hopethishelps
 
Yeti

[Diese Nachricht wurde von Yeti am 12. März 2003 editiert.]

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

---

Hallo Yeti.
Funzt leider immer noch nicht.
Gleiche Meldung.
Habe lisp , dcl und dwg im gleichen Verz mit Pfad in acad.
Danach acad2000doc.lsp mit deinem Eintrag editiert.
Vielleicht hast Du ja eine angepasste Lisp oder dwg.
Vergleiche doch mal.
Danke
Jürgen

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

---

koordinaten.ZIP

hi jukni,

ich habe mir nur den block angepaßt. hänge dir noch mal den block ran. hast du eine applikation oder irgendwelche angepaßte startumgebungen?

------------------
hopethishelps

Yeti

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

---

Hallo Yeti.
Funzt leider immer noch nicht.
Gleiche Meldung.
Habe die neue dwg ins gleiche Verzeichnis gelegt.
Ist deine Lisp denn gleich?
Wir benutzen acad 2002 pur.
Danke
Jürgen

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

---

Hallo jukni,

entferne einmal der Leerzeichen zwischen "c:" und "DELTA_KORR" dann sollte das Lisp funktionieren.

Gruß
cad-lisp

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

---

hi,

ja - die gleiche lisp. auch acad2002 pur. mein supportpfad ist gelegt (habe hier mein extra firmenmenü) - bei dir auch im supportpfad? die anwendung scheint ja geladen zu werden, siehst du die "koordinatenwerte einfügen"-box? wenn ja, kannst du den bezugspunkt eingeben? was passiert, wenn du den haken bei "auf wks beziehen" setzt und dann bemaßt? kannst du den block bemkoo mal pur laden? nur um sicher zu gehen, das der block bei funzt. setzt du irgendwelche variablen beim start?

------------------
hopethishelps

Yeti

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

---

Hallo Yeti.
Es funktioniert alles, bis der Block bemkoo eingelesen
werden soll.
Der Block wird zwar in die Zeichnung eingefügt.
ist aber nicht sichtbar.
Welche Variablen gesetzt werden weis ich leider nicht.
Kann auch daran liegen.
Ich bin mit meiner Weisheit am Ende.
Danke
Jürgen

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

---

tja, viel kann es ja nicht mehr sein. du sagst, der block wird eingefügt. hast du dir mal den block in eine leere datei eingefügt? ich hoffe, es wird wohl nicht an der schrifthöhe liegen?! der ursprungsblock hat 0.2 "meiner" 2.5mm höhe - wie groß ist dein modellbereich bei einer leeren vorlagendatei? zoom doch nach einfügen mal auf den einfügepunkt. vielleicht is er ja doch da...
ansonsten weiß ich auch erstmal nicht weiter, da wir eigentlich gleiche voraussetzungen haben. nur eine frage noch - welches betriebssystem fährst du?

------------------
hopethishelps

Yeti

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

---

Hallo Yeti

Ich habs !

Die Sysvariable attreq muss auf 1 stehen.

Danke an alle die mir geantwortet haben.

Jürgen

         

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