| | | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
Autor
|
Thema: Objekt auf einen festen Koordinatenpunkt verschieben (703 mal gelesen)
|
ichCADnix Mitglied Display Designer
Beiträge: 2 Registriert: 12.11.2008 Win XP / Vista AutoCAD 9.0 - 2009 Inventor 2009 uvm
|
erstellt am: 12. Nov. 2008 14:53 <-- editieren / zitieren --> Unities abgeben:
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 |
Ex-Mitglied
|
erstellt am: 12. Nov. 2008 15:00 <-- editieren / zitieren -->
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.] |
Dorfy Mitglied Double-Dipl.-Ing. Bleistiftanspitzer
Beiträge: 900 Registriert: 21.07.2006 AutoCad2007, ProE, HiCad
|
erstellt am: 12. Nov. 2008 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für ichCADnix
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 |
ichCADnix Mitglied Display Designer
Beiträge: 2 Registriert: 12.11.2008 Win XP / Vista AutoCAD 9.0 - 2009 Inventor 2009 uvm
|
erstellt am: 13. Nov. 2008 07:33 <-- editieren / zitieren --> Unities abgeben:
|
| Anzeige.:
Anzeige: (Infos zum Werbeplatz >>)
|