请问是否能选择任意不规则多边形内的文字或对象？

xdcad9819 · 发表于 2019-12-30 19:10:00

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请问是否能选择任意不规则多边形内的文字或对象？

下面这个程序是可以实现选择圆圈内的文字或对象？
(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))
请问如何修改上面的程序？谢谢指导

xdcad9819 · 发表于 2019-12-30 19:55:22

请多指导请多指导请多指导请多指导请多指导

tzfcn · 发表于 2019-12-30 21:12:33

不错的方法，值得学习。

zyclyl · 发表于 2019-12-31 08:42:04

cad自带的select命令就可以呀

xdcad9819 · 发表于 2019-12-31 09:18:16

zyclyl 发表于 2019-12-31 08:42
cad自带的select命令就可以呀

不行啊，我的意思当点选多边形的时候，就可以选择多边形内的对象或文字

xdcad9819 · 发表于 2019-12-31 09:19:43

请问是否能选择任意不规则多边形内的文字或对象？

下面这个程序是可以实现选择圆圈内的文字或对象，请问如何修改，当当点选多边形的时候，就可以选择多边形内的对象或文字？
(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))
请问如何修改上面的程序？谢谢指导

pxr201419 · 发表于 2019-12-31 12:09:51

(defun c:bb  (/ lst);选择圆、多线、样条曲线内对象
(defun getlst_3(lst)
   (vl-remove nil (mapcar '(lambda (x) (if (= (rem (vl-position x
                  (mapcar 'list lst (cdr lst)(cddr lst))) 3) 0) x nil))
               (mapcar 'list lst (cdr lst)(cddr lst)))))
(setq e (car (entsel "\n选点封闭线："))
      type_e (cdr(assoc 0 (entget e))))
(cond ((= type_e "LWPOLYLINE")
      (setq lst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget e)))))
      ((= type_e "POLYLINE")
      (setq lst (getlst_3 (vlax-safearray->list (vlax-variant-value
                  (vlax-get-property (vlax-ename->vla-object e) 'Coordinates))))))
      ((member type_e '("SPLINE" "CIRCLE"))
      (setq s (/ (vlax-curve-getdistatparam e (vlax-curve-getendparam e)) 100)
            i -1 lst_1 nil)
      (repeat 100 (setq lst_1 (append lst_1 (list (* (setq i (1+ i)) s)))))
      (setq lst (mapcar '(lambda(x)(vlax-curve-getpointatdist e x)) lst_1))))
(sssetfirst nil (ssget "wp" lst))
(princ))

yinchuan99001 · 发表于 2019-12-31 14:33:32

lambda函数的用法，谢谢分享。

yinchuan99001 · 发表于 2019-12-31 14:35:05

有点不好理解，还得学习。

账号		自动登录	找回密码
密码			立即注册

[求助] 请问是否能选择任意不规则多边形内的文字或对象？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分