[求助]如何在一条复合线的顶点批量插入指定块图

ldsslg

如何在一条复合线的顶点批量插入指定块图,请高手帮忙呀!!

(defun c:insb()
　　 (setq bs(car (entsel))
　　 (setq ts(getstring "\请输入插入符号的名称:"))
　　 (command "insert" ts bs "" "" "")
　　 (setq index (+ index 1))
　　　)
　　　(command　"redraw")
)

不知道有没有好心人帮帮忙呀!!!

fcut2004

参考http://bbs.mjtd.com/forum.php?mod=viewthread&tid=95934