Extrudieren LISP - Hoehe nach Layer-Name / Rund um AutoCAD
SNOOP_69 15. Mrz. 2023, 10:53

Hallo zusammen,
hat jemand eine Lisp mit der ich eine Polylinie in Z-Richtung extrudieren kann und hierbei als Extrusionshöhe die letzten 1-2 Stellen aus dem Layernamen übernehmen kann?
Wir arbeiten mit Layernamen die Materialstärken enthalten - Bsp: "100-Material-X-S20". Ich möchte jetzt eine Polylinie extrudieren und die "20" aus dem Layernamen der gewählten Linie direkt als Extrusionshöhe übernehmen.
Hat jemand was passendes dazu?
Vielen Dank für euren Support schon im voraus!
Gruß

CADwiesel 15. Mrz. 2023, 11:11

sowas?
(command"_extrude" (entsel)(substr Layername 1 (-(strlen layername)3))

SNOOP_69 15. Mrz. 2023, 11:23

Hi,
ja ich denke so müsste es aussehen!
Wie kriege ich das jetzt richtig verpackt, dass es auch mit dem ausgewählten Objekt bzw. dessen Layer funktioniert?

Code:
(defun C:EXTLAY ()
(command"_extrude" (entsel)(substr Layername 1 (-(strlen layername)3))
)
)

ist das richtig?