(defun c:xgzt (/ elist nm )
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(setq elist (tblnext "STYLE" T))
(while (/= elist nil)
(setq nm (cdr (assoc 2 elist))
)
(command "-style"
nm
"romans.shx,hztxt.shx"
"0.0"
"0.7"
""
""
""
""
)
(setq elist (tblnext "STYLE"))
)
(prin1)
) |