框选在选择范围内的一类块，下面是我写的源码，但是没法运行，请大神指点

熙城故事

框选在选择范围内的一类块，下面是我写的源码，但是没法运行，请大神指点

maiko

2. (defun c:gbk( / pt1 pt2 elist iname ss )
   
3.   (setq pt1 (getpoint "请输入所需范围点1"))
   
4.   (setq pt2 (getcorner pt1 "请输入所需范围点2"))
   
5.   (setq elist(entget(car(entsel "\n 请选择需要的图块"))))
   
6.   (setq iname (assoc 2 elist)) ;;;获取图块名称
   
7.   (setq ss (ssget "W" pt1 pt2 (list'(0 . "insert") iname)));;;过滤条件
   
8.   (sssetfirst nil ss)
   
9.   (princ)
   
10. )

(defun c:gbk( / pt1 pt2 elist iname ss ) <br />   (setq pt1 (getpoint "请输入所需范围点1"))<br />   (setq pt2 (getcorner pt1 "请输入所需范围点2"))<br />   (setq elist(entget(car(entsel "\n 请选择需要的图块"))))<br />   (setq iname (assoc 2 elist)) ;;;获取图块名称<br />   (setq ss (ssget "W" pt1 pt2 (list'(0 . "insert") iname)));;;过滤条件<br />   (sssetfirst nil ss)<br />   (princ)<br /> )

熙城故事

maiko 发表于 2014-9-2 10:36

谢谢，很好用