---

Hallo Leute!

Ich bin blutiger Anfänger was 3D Sachen betrifft. Ich möchte ein Makro schreiben mit den ich eine VL erstellen kann. AE habe ich wia Makro platziert aber jetz komm ich einfach nicht weiter. Kann mir jemand einen heißen Tip geben.

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

---

Hallo Daniel und willkommen im Forum!
Ich fürchte Du müßtest noch etwas genauer beschreiben was Du vor hast.
Die VL soll wozu dienen? Mit welchem Makro hast Du die AE wohin plaziert?

Ein Bild als Anhang wäre evtl. eine Hilfe.

Gruß, Michael

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

---

Hallo Michael,
die AE,s sind über ein lisp makro platziert und das 2d profil darauf geladen jetzt möchte ich eine vl durch den Ursprung der AE erstellen und dan ein Loft durchführen.

hoffe auf schnelle Hilfe!

Gruß Daniel

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

---

Hallo Daniel,

wenn die Ursprung der AE nicht übereinstimmt mit der 2D-Kontur, bringt dir das nichts. Verbinde mit "VL erstellen" im Menu "Freiform" die 2 Konturen miteinander.
Wichtig: Gleiche Anzahl Eckpunkte in beiden Geometrien.

HTH

------------------
Sven        Alle Bayern hier entlang...

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

---

Hallo Sven,

das ist mir soweit klar von Hand geht es auch nur würde ich gern die VL gleich mit dem Makro erstellen. Leider finde ich keine möglichkeit die Punkte der Funktion "create_match_line" zu übergeben.

gruß daniel

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

---

Genau so was hab ich auch noch nicht gemacht, aber wenn du einen 2D-Vektor z.B. "aepunkt" auf einer AE berechnet hast, solltest du den mit

Code:

---

(setf raumpunkt (sd-vec-xform aepunkt :source-space (sd-inq-curr-wp) :dest-space :global))

---

in einen brauchbaren 3D-Vektor umrechnen können. Leider hält sich die Onlinehilfe bezüglich der verlangten Eingabestruktur mal wieder vornehm zurück 

------------------
meine LISP-Makros sind auf osd.cad.de
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

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

---

Ich als Lisp-Laie würde mal mit dem Recorder aufzeichnen, und sehen, was der ausspuckt...
Ansonsten hab ich ehrlich gesagt keinen blassen Schimmer 

Viel Glück!

------------------
Sven        Alle Bayern hier entlang...

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

---

Hallo Daniel,

Hast Du mitlerweile eine Lösung gefunden ?
Ich stehe nämlich vor dem selben Problem...

Gruß, Kai.

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

---

Im wesentliche sollen nur zwei .mi-Dateien mit Konturen in 2 parallele AE geladen werden. Der Punkt unten links ist jeweils bekannt. Diese beiden Punkte sollen durch eine VL verbunden werden, um dann mittels LOFT ein Teil zu erstellen.
Alles funktioniert, nur nicht das Erzeugen eines AE-Satzes durch VL.

So sieht mein Lisp-Code z.Zt. aus:

(use-package :OLI)

(sd-defdialog 'TestFoS
  :dialog-title "TestFoS"

  :variables
    '(

(Programmnr
:value-type :string
:title "Prg.nr."
rompt-text "Programmnummer angeben"
            :after-input
            (setf FilenameXY (format nil "~A_XY.mi" Programmnr )
                  FilenameUV (format nil "~A_UV.mi" Programmnr )))

      (FilenameXY :value-type :display-only
                :initial-value " "
                :title "Filename1:")
      (FilenameUV :value-type :display-only
                :initial-value " "
                :title "Filename2:")

(Naechste
ush-action (los-gehts))

      ) ; end variables
 
    k-action '(los-gehts)

    :local-functions '(
(los-gehts ()

;(cd "M:/CoCreate/daten/Sonstiges/K.Wiegand/3D-Diverses/Virtuelle Maschine")
;(cd "C:/Dokumente und Einstellungen/Wiegand/Eigene Dateien/CAD")
;(load_package "WPH_HORN_16mm_roh.pkg")
;(load_package "Rohling.pk2")

uic_new_wp_with_cgeo ;Neue AE auf Ursprung

;(cd "M:/CoCreate/daten/Erodierprogramme/XY_UV_3D")

(load_profile :MI_FILENAME FilenameXY)

(setf rp1 (sd-vec-xform (gpnt2D -12 0) :source-space (sd-inq-curr-wp) :dest-space :global))

(CREATE_WORKPLANE :new  ar_wp  ffset -5)

(load_profile :MI_FILENAME FilenameUV)

(setf rp2 (sd-vec-xform (gpnt2D -12 0) :source-space (sd-inq-curr-wp) :dest-space :global))

(setf p1 (make-gpnt3d :x -12.0 :y 0 :Z 0))
(setf p2 (make-gpnt3d :x -12.0 :y 0 :Z (* -1 5.0)))

(setf rp2 (sd-vec-xform (gpnt2D -12 0) :source-space (sd-inq-curr-wp) :dest-space :global))

(create_match_line rp1 rp2)
(create_match_line p1 p2)

) ;end los-gehts          
   
  ) ;end local-functions
) ;end def dialog

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

---

Hier geht's zur Lösung:
http://ww3.cad.de/foren/ubb/Forum92/HTML/000362.shtml

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