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