---

amadabend-3.lsp

Hallo liebes Forum,

ich habe ein Problem mit dem Programm Sheet Metal. Dort haben wir unsere Biegeverkürzungswerte in einer Datei. Die Datei wird in der "sha_customize" durch einen Eintrag geladen.  Die zu ladende Datei habe ich (sehr stark) verkürzt als Beispiel angefügt. Nun möchte ich diese Tabelle "p_bend_form_allow" auf viele kleine, kurze Tabellen aufteilen, um besser neue Biegeverkürzungswerte einzufügen.

Problem:
Lade ich beim Programmstart mehrere hintereinander, nimmt er logischerweise nur die zuletzt geladene Datei als gültige, da ich ja stets die gleiche Tabelle "p_bend_form_allow" füttern möchte.

Frage an Euch: Wie kann ich eine LISP-Datei mit enthaltener Tabelle in Dateien mit kurzen Tabellen zerlegen und beim Programmstart einzeln hintereinander laden und diese "Tabellen-Stücke" werden im CAD-Programm wieder zusammengefügt?

------------------
freundliche Grüße
Achim

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

---

Grobe Idee für einen Ansatz folgt.

In shoptable1.lsp:

Code:

---

(defvar *shop-table-contents* '(
  ("DC 01 A" 1.50  90.0  0.800010  0.8 10 -2.60)
  ("DC 01 A" 1.50  60.0  0.800010  0.8 10 -1.35)
  ("DC 01 A" 1.50  45.0  0.800010  0.8 10 -0.80)
  ))

---

In shoptable2.lsp:

Code:

---

(push '("DX51D+Z275 MA-C" 1.50  90.0  0.800010  0.8 10 -2.60) *shop-table-contents*)

---

shoptable1.lsp laden, shoptable2.lsp laden, dann amabend-3.lsp:

Code:

---

(sha-define-shop-table "p_bend_form_allow"
  :TABLE-TITLE "Amada-Einzugswerte"

  :COLUMNS
    ;;    material key    tool key
    (:MATERIAL :THICK     :ANGLE     :RADIUS   :PISTON_RAD      :DIE_WIDTH :ALLOWANCE)
  :COLUMN-NAMES
    ("Material" "Blechdicke" "Aussenwinkel" "Biegeradius" "Stempel Radius" "Matrize"    "Abzugswert")
  :UNITS
    (nil        :mm          :Deg            :mm          :mm              :mm        :mm )
  :CONTENTS
    *shop-table-contents*
 
  :KEY
    (:MATERIAL :THICK :ANGLE :PISTON_RAD :DIE_WIDTH :RADIUS )
  :DISPLAY
  (:MATERIAL  :THICK  :ANGLE  :RADIUS :PISTON_RAD :DIE_WIDTH  :ALLOWANCE)
  :BROWSER-ICON  "icon_table"
)

---

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/ - Blog: http://www.clausbrod.de/Blog

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

---

Danke clausb,

ich habs' verstanden, ich werde versuchen, es entsprechend umzusetzen.

------------------
freundliche Grüße
Achim

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