CADsoft Forum | Forumas | Форум

Lietuviškai => LISP, DCL, Meniu, pritaikymas... => Topic started by: Vaidas on 2012-03-04, 16:45:57

Title: Kaip įrašyti visus brėžinyje esančius blokus į diską kaip .dwg failus
Post by: Vaidas on 2012-03-04, 16:45:57

Kelią iš "c:\\folder\\" reikia pasikeisti į norimą katalogą arba ištrinti, kad blokai būtų išsaugoti brėžinio kataloge.

Code: [Select]

(while (setq b (tblnext "BLOCK"))
 (vl-cmdf "_wblock" (strcat "c:\\folder\\" (setq b (cdr (assoc 2 b))) ".dwg") b)
)