---

moin moin,
ich war früher schonmal hier unterwegs, und habe einige von euch
auch beim Augi CAD Camp im März getroffen.

ich habe ja schon einiges geschrieben und programmiert, aber ich habe
noch nie feste Koordinaten eingesetzt  und grübel hier die ganze Zeit rum:

hier mal ein Test...

Code:

---

(defun C:test()

(princ "\nObjekt wählen")
(setq ob1 (ssget))
(setq P01 (getpoint "\nBasispunkt:"))
(command "_move" ob1 P01 0,0,0 "")
(princ)
)

---

ich hier nur ein gewähltes Objekt auf die Koordinaten 0,0,0 schieben,
das geht so natürlich nicht, gent mir mal nen kleinen Anschupser
damit ich weiter komm 

mfg
Toni

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

---

Hi Toni,

(command "_move" ob1 "" P01 "0,0,0")

Und wenn Du von Benutzerkoordinatensystem unabhängig sein willst, dann

(command "_move" ob1 "" P01 "*0,0,0")

- alfred -

[Diese Nachricht wurde von a.n. am 12. Nov. 2008 editiert.]

---

Hi,
Punkt sind Listen, in der Hilfe findest du Funktionen zum bearbeiten...

(defun C:test (/ ob1 p01 p00)
  (princ "\nObjekt wählen")
  (setq ob1 (ssget))
  (setq P01 (getpoint "\nBasispunkt:"))
  (setq p00 '(0.0 0.0 0.0));-->übergabe als 3D-Liste
  (command "_move" ob1 "" P01 p00)
  (princ)
)
mfg heiko

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

---

Guten Morgen,

vielen Dank Euch beiden...

dann werde ich mal weiter schreiben

bis später
Toni

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