问一个关于图块的问题

north911

用lisp怎样得到一个块里面多段线的各个顶点呢？

meflying

(defun c:test( / ent ents pt blkname pts pt_lst x)
(setq ent (car (entsel)))
(setq ents (entget ent))
(if (/= (cdr (assoc 0 ents)) "INSERT") (progn (princ "\n没有选择图块!") (exit)))
(setq pt (cdr (assoc 10 ents)))
(setq blkname (cdr (assoc 2 ents)))
(setq ent (tblobjname "BLOCK" blkname))
(while (setq ent (entnext ent))
(setq ents (entget ent))
(cond
((= (cdr (assoc 0 ents)) "LWPOLYLINE")
(setq pts nil)
(foreach x ents
(if (eq 10 (car x))
(setq pts (append pts (list (cdr x))))
)
)
(setq pt_lst (append pt_lst (list pts)))
)
)

)
(mapcar '(lambda(e) (mapcar '(lambda(x) (mapcar '+ pt x)) e)) pt_lst)
)

north911

谢谢飞哥，这段程序看懂了，也实现了我想要的结果，还有一个小问题请教一下 (setq ent (entnext ent)) entnext函数不是返回下一个图元名吗？ 我知道这里是返回块内的图元名（子图元名），就是对帮助里面的解释不太明白

meflying

(setq ent (tblobjname "BLOCK" blkname))


注意这句，ent是BLOCK，而不是INSERT对象的，平常在图形中看到的是INSERT对象，只不过是这个INSERT引用了一个BLOCK，BLOCK是存在DWG数据库中，看不到的，而我这个对象是BLOCK，所以返回的是块的子对象，而不是INSERT对象的下一个图元。。。


一定要分清楚BLOCK和INSERT对象的区别，否则，以后你还会遇到麻烦的