Hallo zusammen,
wie kann ich einem Layer eine Linienstärke in einem Lisp-Programm zuweisen?
Der nachfolgende Progammausschnitt wurde nicht von mir geschrieben und sollte nun so verändert werden, dass der Layer Text_0.5 die Liniestärke 0.5mm und der Layer schmale Volllinie 0.25mm einnimmt.
Danke Andreas
(defun C:POS_NUM (/ NUM P1 P2 DXX DX DYY DY)
(defun NEUERR (MSG) (R_VAR) (princ MSG) (princ))
(setq ALTERR *ERROR*
*ERROR* NEUERR
C_E (getvar "CMDECHO") ; ECHO
C_L (getvar "CLAYER") ; LAYER
P_M (getvar "PDMODE") ; Punktmuster
P_S (getvar "PDSIZE") ; Punktgroesse
)
(setvar "CMDECHO" 0)
(setvar "ATTDIA" 0)
(if (not (tblsearch "LAYER" "schmale Volllinie"))
(command "LAYER" "MACH" "schmale Volllinie" "FA" "3" "" "") ; Layer und Farbe
)
(if (not (tblsearch "LAYER" "Text0.5"))
(command "LAYER" "MACH" "Text_0.5" "FA" "2" "" "" ) ; Layer und Farbe
)
(setq NUM NIL)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP