框内选择

孙玉坤

框内选择 轮廓线内的可以选择到，但和轮廓线有重合的边就不行。
(defun c:ta (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2)  
  (princ "\n功能 [批量选择多段内所有对象]")
  (if (setq get (ssget '((0 . "LWPOLYLINE"))))
    (progn
      (setq Len        (sslength get)
            add        (ssadd)
      )
      (repeat Len
        (setq nn  (ssname get (setq Len (1- Len)))
              ent (entget nn)
        )
        (setq dxf-10 (vl-remove-if '(lambda (x) (/= (car x) 10)) ent)
              get2   (ssget "_WP" (mapcar 'cdr dxf-10))
              Len2   (sslength get2)
        )
        (repeat        Len2
          (setq nn2 (ssname get2 (setq Len2 (1- Len2))))
          (ssadd nn2 add)
        )                                
      )
    )                                       
  )                                       
  (sssetfirst nil add)
  (princ)
)

845245015

孙玉坤 发表于 2021-9-24 16:33
很长的好用啦  圆和圆弧的能修改支持一下吗 感谢

;;;;部分子程序取自本网站http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1
(defun c:tq (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2 ENAME n pc r plist)
  (princ "\n功能 [批量选择多段内所有对象]")
  (if (setq get (ssget '((0 . "LWPOLYLINE,CIRCLE,ARC"))))
    (progn
      (setq Len (sslength get)
            add (ssadd)
            )
      (repeat Len
        (setq nn (ssname get (setq Len (1- Len)))
              ent (entget nn)
              )
        (cond
          ((= (cdr (assoc 0 ent)) "CIRCLE")
           (setq n 0)
           (SETQ PC (cdr (assoc 10 ent))
                 r (cdr (assoc 40 ent))
                 )
           (repeat 180
             (setq dxf-10 (cons (list 10 (car (polar pc (/(* 2 n pi)180) r)) (cadr (polar pc (/(* 2 n pi)180) r))) dxf-10))
             (setq n (+ n 1))
             )
           )
          ((= (cdr (assoc 0 ent)) "ARC")
           (setq plist (arc_3point nn));;;;子程序arc_3point取自http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1
           (print plist)
           (foreach x plist
             (setq dxf-10 (cons (list 10 (car x) (cadr x)) dxf-10))
             )
           )
          ((= (cdr (assoc 0 ent)) "LWPOLYLINE")
           (setq dxf-10 (vl-remove-if '(lambda (x) (/= (car x) 10)) ent))
           )
          )
        (setq get2   (ssget "_CP" (mapcar 'cdr dxf-10))
              Len2   (sslength get2)
              )
        (repeat Len2
          (setq nn2 (ssname get2 (setq Len2 (1- Len2))))
          (ssadd nn2 add)
          )
        )
      )
    )
  (repeat (sslength get)
    (Setq ENAME (SsName get 0))
    (SsDel ENAME get)
    (SsDel ENAME add)
  )
  (sssetfirst nil add)
  (princ)
)
;;;;子程序arc_3point取自http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1
(defun arc_3point (a / cenp radius STP ENPmp arcmidpoint)
(setq cenp (cdr (assoc 10 (entget a))))
(setq radius (cdr (assoc 40 (entget a))))
(setq STP (vlax-curve-getPointAtParam A (vlax-curve-getstartparam A)))
(setq ENP (vlax-curve-getPointAtParam A (vlax-curve-getEndParam A)))
(setq arcmidpoint (polar (polar stp (angle stp enp) (/ (distance STP ENP) 2.0))
(angle cenp (polar stp (angle stp enp) (/ (distance STP ENP) 2.0)))
(- radius (distance (polar stp (angle stp enp) (/ (distance STP ENP) 2.0)) cenp))))
(list stp enp arcmidpoint)
)

cqu20104225

把(ssget "_WP" (mapcar 'cdr dxf-10))改成(ssget "_CP" (mapcar 'cdr dxf-10))应该就可以了。

845245015

(defun c:ta (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2 ENAME)
  (princ "\n功能 [批量选择多段内所有对象]")
  (if (setq get (ssget '((0 . "LWPOLYLINE"))))
    (progn
      (setq Len (sslength get)
            add (ssadd)
            )
      (repeat Len
        (setq nn  (ssname get (setq Len (1- Len)))
              ent (entget nn)
              )
        (setq dxf-10 (vl-remove-if '(lambda (x) (/= (car x) 10)) ent)
              get2   (ssget "_CP" (mapcar 'cdr dxf-10))
              Len2   (sslength get2)
              )
        (repeat Len2
          (setq nn2 (ssname get2 (setq Len2 (1- Len2))))
          (ssadd nn2 add)
          )
        )
      )
    )
  (repeat (sslength get)
    (Setq ENAME (SsName get 0))
    (SsDel ENAME get)
    (SsDel ENAME add)
  )
  (sssetfirst nil add)
  (princ)
)

孙玉坤

845245015 发表于 2021-9-24 15:31
(defun c:ta (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2 ENAME)
  (princ "\n功能 [批量选择多段内所有 ...

很长的好用啦  圆和圆弧的能修改支持一下吗 感谢

孙玉坤

845245015 发表于 2021-9-24 20:35
(defun c:ta (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2 ENAME)
  (princ "\n功能 [批量选择多段内所 ...

圆和圆弧还是不能识别

845245015

孙玉坤 发表于 2021-9-25 08:34
圆和圆弧还是不能识别

您是要选出圆弧和圆，还是点选圆弧和圆获取其内部的图元

孙玉坤

845245015 发表于 2021-9-25 08:56
您是要选出圆弧和圆，还是点选圆弧和圆获取其内部的图元

点选圆弧和圆获取其内部的图元

845245015

孙玉坤 发表于 2021-9-25 09:46
点选圆弧和圆获取其内部的图元

;;;;部分子程序取自本网站http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1(defun c:tq (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2 ENAME n pc r plist)
  (princ "\n功能 [批量选择多段内所有对象]")
  (if (setq get (ssget '((0 . "LWPOLYLINE,CIRCLE,ARC"))))
    (progn
      (setq Len (sslength get)
            add (ssadd)
            )
      (repeat Len
        (setq nn (ssname get (setq Len (1- Len)))
              ent (entget nn)
              )
        (cond
          ((= (cdr (assoc 0 ent)) "CIRCLE")
           (setq n 0)
           (SETQ PC (cdr (assoc 10 ent))
                 r (cdr (assoc 40 ent))
                 )
           (repeat 180
             (setq dxf-10 (cons (list 10 (car (polar pc (/(* 2 n pi)180) r)) (cadr (polar pc (/(* 2 n pi)180) r))) dxf-10))
             (setq n (+ n 1))
             )
           )
          ((= (cdr (assoc 0 ent)) "ARC")
           (setq plist (arc_3point nn));;;;子程序arc_3point取自http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1
           (print plist)
           (foreach x plist
             (setq dxf-10 (cons (list 10 (car x) (cadr x)) dxf-10))
             )
           )
          ((= (cdr (assoc 0 ent)) "LWPOLYLINE")
           (setq dxf-10 (vl-remove-if '(lambda (x) (/= (car x) 10)) ent))
           )
          )
        (setq get2   (ssget "_CP" (mapcar 'cdr dxf-10))
              Len2   (sslength get2)
              )
        (repeat Len2
          (setq nn2 (ssname get2 (setq Len2 (1- Len2))))
          (ssadd nn2 add)
          )
        )
      )
    )
  (repeat (sslength get)
    (Setq ENAME (SsName get 0))
    (SsDel ENAME get)
    (SsDel ENAME add)
  )
  (sssetfirst nil add)
  (princ)
)
;;;;子程序arc_3point取自http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1
(defun arc_3point (a / cenp radius STP ENPmp arcmidpoint)
(setq cenp (cdr (assoc 10 (entget a))))
(setq radius (cdr (assoc 40 (entget a))))
(setq STP (vlax-curve-getPointAtParam A (vlax-curve-getstartparam A)))
(setq ENP (vlax-curve-getPointAtParam A (vlax-curve-getEndParam A)))
(setq arcmidpoint (polar (polar stp (angle stp enp) (/ (distance STP ENP) 2.0))
(angle cenp (polar stp (angle stp enp) (/ (distance STP ENP) 2.0)))
(- radius (distance (polar stp (angle stp enp) (/ (distance STP ENP) 2.0)) cenp))))
(list stp enp arcmidpoint)
)

孙玉坤

845245015 发表于 2021-9-25 10:05
;;;;部分子程序取自本网站http://bbs.mjtd.com/forum.php?mo ... hlight=%D4%B2%BB%A1(defun c:tq (/ ADD ...

可以啦 感谢