Orderstruktur der Library in 2d und 3d unterteilt, Dateien entsprechend verschoben, Pfade in Variablen im gesamten Verzeichnis entsprechend korrigiert; Vario Vertikalbögen für 2d und 3d erzeugt;
This commit is contained in:
@@ -22,15 +22,15 @@
|
||||
;; hoehe-str : Hoehe als String (fuer HOEHE-Attribut)
|
||||
;; drehung-str : Drehung als String (fuer DREHUNG-Attribut)
|
||||
(defun omni:test-insert (sivasnr-str insert-pt hoehe-str drehung-str /
|
||||
dxf-pfad data-pfad blockEnt angleDeg)
|
||||
(setq data-pfad (getenv "DXFM_DATA"))
|
||||
(if (null data-pfad)
|
||||
dxf-pfad omniflo-pfad blockEnt angleDeg)
|
||||
(setq omniflo-pfad (getenv "DXFM_OMNIFLO"))
|
||||
(if (null omniflo-pfad)
|
||||
(progn
|
||||
(princ "\n[TEST_OMNIFLO] FEHLER: DXFM_DATA nicht gesetzt!")
|
||||
(princ "\n[TEST_OMNIFLO] FEHLER: DXFM_OMNIFLO nicht gesetzt!")
|
||||
nil
|
||||
)
|
||||
(progn
|
||||
(setq dxf-pfad (strcat data-pfad "/omniflo/" sivasnr-str ".dxf"))
|
||||
(setq dxf-pfad (strcat omniflo-pfad "/" sivasnr-str ".dxf"))
|
||||
(if (not (findfile dxf-pfad))
|
||||
(progn
|
||||
(princ (strcat "\n[TEST_OMNIFLO] WARNUNG: DXF nicht gefunden: " dxf-pfad))
|
||||
|
||||
Reference in New Issue
Block a user