有没有可以选择圆内实体的程序

小小的人

有没有可以选择圆内实体的程序，如图怎么点圆，就能选择圆内的文字，线段，矩形等实体，急需，有大神帮忙吗

cam0668

纯属转发 请参考
(ssget “WP” pt_list)
生成一个选择集，该选择集中既包含了由点表 pt_list 定义的多边形中的所有对象。
(defun c:bb( / lst pt )(vl-load-com)
(setq lst(entget(car(entsel"\必强提示点选圆")))pt(cdr(assoc 10 lst)))
(vl-cmdf "polygon" 360 "non" pt "I" "non"(polar pt 0(cdr(assoc 40 lst))))
(sssetfirst nil(ssget "wp"  (mapcar 'cdr(vl-remove-if '(lambda (x)
(/= 10 (car x)))(entget(entlast))))))(entdel (entlast))(princ))

(ssget “wp” pt_list filter_list)
生成一个选择集，该选择集中的所有对象既必须处于由点表 pt_list 定义的多边形内，也必须满足过
滤器表 filter_list 中的条件。
(ssget “wp” pt_list filter_list)
(defun c:bb( / lst pt )(vl-load-com)
(setq lst(entget(car(entsel"\必强提示点选圆")))pt(cdr(assoc 10 lst)))
(vl-cmdf "polygon" 360 "non" pt "I" "non"(polar pt 0(cdr(assoc 40 lst))))
(sssetfirst nil(ssget "wp"  (mapcar 'cdr(vl-remove-if '(lambda (x)
(/= 10 (car x)))(entget(entlast))))'((0 . "LINE"))))(entdel (entlast))(princ))

(ssget “cp” pt_list)
生成一个选择集，该选择集中既包含了由点表 pt_list 定义的多边形中的所有对象，也包含了与该多
边形相交的那些对象。
(defun c:bb( / lst pt )(vl-load-com)
(setq lst(entget(car(entsel"\必强提示点选圆")))pt(cdr(assoc 10 lst)))
(vl-cmdf "polygon" 360 "non" pt "I" "non"(polar pt 0(cdr(assoc 40 lst))))
(sssetfirst nil(ssget "Cp"  (mapcar 'cdr(vl-remove-if '(lambda (x)
(/= 10 (car x)))(entget(entlast))))'((0 . "LINE"))))(entdel (entlast))(princ))

(ssget “F” pt_list)
生成一个选择集，该选择集中包含了与点表 pt_list 定义的多边形篱笆相交的全部对象。
(defun c:bb( / lst pt )(vl-load-com)
(setq lst(entget(car(entsel"\必强提示点选圆")))pt(cdr(assoc 10 lst)))
(vl-cmdf "polygon" 360 "non" pt "I" "non"(polar pt 0(cdr(assoc 40 lst))))
(sssetfirst nil(ssget "F"  (mapcar 'cdr(vl-remove-if '(lambda (x)
(/= 10 (car x)))(entget(entlast))))'((0 . "LINE"))))(entdel (entlast))(princ))

小小的人

cam0668 发表于 2019-12-11 09:46
纯属转发 请参考
(ssget “WP” pt_list)
生成一个选择集，该选择集中既包含了由点表 pt_list 定义的多边 ...

已解决  非常感谢

流浪孤星

感谢楼主分享