框选在选择范围内的一类块，下面是我写的源码，但是没法运行，请大神指点
框选在选择范围内的一类块，下面是我写的源码，但是没法运行，请大神指点本帖最后由 maiko 于 2014-9-2 10:41 编辑
(defun c:gbk( / pt1 pt2 elist iname ss )
(setq pt1 (getpoint "请输入所需范围点1"))
(setq pt2 (getcorner pt1 "请输入所需范围点2"))
(setq elist(entget(car(entsel "\n 请选择需要的图块"))))
(setq iname (assoc 2 elist)) ;;;获取图块名称
(setq ss (ssget "W" pt1 pt2 (list'(0 . "insert") iname)));;;过滤条件
(sssetfirst nil ss)
(princ)
) maiko 发表于 2014-9-2 10:36 static/image/common/back.gif
谢谢，很好用
页:
[1]