Hallo,
ich habe inzwischen folgende Funktion geschrieben:
(defun aussenkontur_ermitteln ( eobjfakon
/
eakon
pakon pobjfakon )
; Den Namen der Funktion für den Error-Fall sichern
(vl-doc-set '*cfunktionsave* "aussenkontur_ermitteln")
; Die Mechnical-Lisp-Dateien laden
(load "genhatch.lsp")
(load "genbas0.lsp")
; Das Objekt einem Auswahlsatz hinzufügen
(setq pobjfakon nil)
(if (/= eobjfakon nil)
(progn
(setq pobjfakon (ssadd)) ; initialisieren
(setq pobjfakon (ssadd eobjfakon pobjfakon))
) ; progn
) ; if
; Die Außenkontur des Objektes ermitteln
; (teilweise vom Mechnical-Befehl _amcontout übernommen)
(setq pakon (gencdrlese "SSNAME" (genkontur pobjfakon nil (+ 33554432.0 393494.0 (if gen_kontrace 512 0)) 0.0)))
(if (not pakon)
(setq pakon (gencdrlese "SSNAME" (genkontur pobjfakon nil (+ 33554432.0 393494.0 (if gen_kontrace 512 0)) 0.0 1e-6)))
) ; if
(setq eakon nil)
(if (and pakon (> (sslength pakon) 0))
(progn
(command "_.select" pakon "")
(setq eakon (ssname pakon 0))
) ; progn
) ; if
; Rückgabewert
eakon
) ; Modulende
Wende ich diese Funktion in der beiliegenden Zeichnung auf das Objekt durch den Aufruf (aussenkontur_ermitteln (car (entsel))) an, bekomme ich nicht die korrekte Außenkontur erstellt. Mit dem Mechanical-Befehl _amcontout wird ebenfalls die falsche Außenkontur erstellt. Bei anderen Objekten funktioniert meine Funktion.
Was muss ich noch ändern, damit meine Funktion auch für dieses Objekt die korrekte Kontur erstellt?
Danke im Voraus und viele Grüße
Bernd
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP