Author Topic: Kaip įrašyti visus brėžinyje esančius blokus į diską kaip .dwg failus  (Read 8709 times)

Vaidas

  • Administrator
  • Full Member
  • *****
    • View Profile
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)
)
« Last Edit: 2012-03-05, 20:36:08 by Vaidas »