Likör Für Größe mit Übergröße

[Manifesti]

Hallo alle,
arbeiten für ein Unternehmen, das Steinbeschichtungen macht. Manchmal bei der Vorbereitung der Schneidlisten müssen Sie den Jungs in der Fabrik angeben, um die Stücke 25, 50 oder 100 mm größer zu schneiden. Normalerweise mache ich es manuell durch Quoten, zu denen ich die Übergröße hinzufügen, indem ich die untenstehende Maßnahme einfügen. zum Beispiel muss das Stück 200 x 25 sein, aber ich will es überdimensioniert auf 300 x 25 weil es im Hof geschnitten wird. wenn die Stücke zu schneiden sind wenige der Prozess ist schnell genug und mit begrenzten Fehlern, aber wenn mehr Stücke zu sprechen, erhöhen sich die Fehler. Ich frage mich, ob es möglich war, eine Lippe zu schaffen, um sicherzustellen, dass die Quoten die tatsächliche Maßnahme oben und die der übergroßen, unter denen sie zunimmt oder abnimmt zu den Variationen der realen Dimension.

 

[rpor66]

(defun c:addltaglio(/c sel n obj l fr)

(Prompt)

(setq sel (ssget (cons 0 "dimension")))

(Setq c 0)
(Repeat)
(ssname sel c)
(setq obj (vlax-ename->vla-object n))
(setq l (vlax-get-property obj 'Messung))
(setq addl (fnlistalunghezze l))
(vlax-put-property obj "textsuffix" (strcat " taglio" (rtos addl 2 0))))
(Setq c (1+c)
)
)

(defun fnlistalunghezze(l)
(cond)
(und (> l 0) (<= l 100)) 120
(und (> l 100) (<= l 200)) 230
(und (> l 200) (<= l 300)) 340)
(und (> l 300) (<= l 400) 450)
(und (> l 400) (<= l 500) 550)
(> l 500) (<= l 600) 660)
(t l)
)
)

so einfach wie möglich.
Wenn Sie die Lispe nicht verwenden können, ist es Zeit zu lernen.
Wählen Sie die Kontingente über den Add-In-Befehl; Auswahl filtert Einheiten, wenn Sie Zeilen oder Text oder andere auswählen, es spielt keine Rolle.
der Wortschnitt ist derjenige, der den Wert der Quote addiert, ändert es für wie Sie glauben.
die Messbereiche, die Sie erweitern können, ich hoffe, es ist intuitiv, wie es zu tun; (t l) ist die letzte Bedingung, dass, wenn ich größer als die größte Zahl, l zurückkehrt.
Bye

 

[rpor66]

Ich habe vergessen, wenn Sie den zusätzlichen Teil ausführen möchten, verwenden Sie \xtaglio

 

[Manifesti]

Hallo rpor66, vielen Dank für die Hilfe. Ich kann sie nicht wie du schreiben. Ich werde versuchen, Texte und Zeit Tutorials zu suchen, die lernen können.