|
(setvar "FILEDIA" 0)
(setq e (entget (car (entsel "\n选择需要查询的对象:"))))
(setq tcmc (assoc 8 e));图层
(setq xxlx (assoc 0 e));线型
(setq xzj (ssget "x" (list xxlx tcmc)))
(setq n 0)
(setq MC 1)
(setq gs(sslength xzj));求出图元个数
(while (< n gs );如果有多个"jianchaliebei"就循环多次,只有一个就循环一次
(setq tym(ssname xzj n));得到选择集中第N个对象的个图元名称
(setq tysx(entget tym '("*")));读出所有图元名的图元属性及扩展属性
(setq xxlx (cdr(assoc -1 tysx)));线型
(setq q1 '(0,0))
(setq q1 '(0,0))
(command "-wblock " MC "" q1 xxlx "" "" )
(setq MC (+ 1 MC))
(setq n (+ 1 n))
)
(setvar "FILEDIA" 1)上面是一个批量将多个多段线闭合区域写块到多个文件的LISP但是不能运行那位帮忙看以下急用
|
|