bsp
Verfasst: Do 28. Apr 2005, 11:08
(defun c:BSP ( / LT H )
(setq H -10)
(While (setq LT (tblnext "LTYPE" (null LT)))
(setq NAME (cdr(assoc 2 LT)))
(setvar "celtype" NAME)
(command "_line" (list 0 (setq H(+ H 10)) 0.0)
(list 100 H 0.0) "")
(command "_text" (list 110 H 0.0) 5 0 NAME "")
)
)
Textstil mit texthöhe 0
(setq H -10)
(While (setq LT (tblnext "LTYPE" (null LT)))
(setq NAME (cdr(assoc 2 LT)))
(setvar "celtype" NAME)
(command "_line" (list 0 (setq H(+ H 10)) 0.0)
(list 100 H 0.0) "")
(command "_text" (list 110 H 0.0) 5 0 NAME "")
)
)
Textstil mit texthöhe 0