求高手帮忙修改代码！！在此先谢Gu_xl 框选删除源码 很给力！！

wayne_myles

用了论坛Gu_xl高手的框选全删除源码 很给力 谢谢了 不好意思
求帮忙加入筛选 即改为除文字 块 圆 圆弧 样条曲线之外框选全部删除  谢谢了

;;框内物体删除 By Gu_xl
(defun c:tt (/ OS P1 P2 CP SS ENREC N *error*)
  (defun *error* (s)
    (setvar "osmode" os)
    (princ s)
    )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq p1 (getpoint "\n指定基点："))
  (setq p2 (getcorner p1 "\n指定对角点："))
  (setq cp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))
  (setq ss (ssget "w" p1 p2))
  (if ss (command "erase" ss ""))
  (command "rectang" p1 p2)
  (setq enRec (entlast))
  ;;重复5次，以保证剪切干净
  (repeat 5
  (setq ss (ssget "c" p1 p2))
    (ssdel enRec ss)
  (command ".trim" enRec "")
  (repeat (setq n (sslength ss))
    (command (list (ssname ss (setq n (1- n))) cp))
    )
  (command "")
    )
  ;;删除绘制的方框
  (entdel enRec)
  (setvar "osmode" os)
  (princ)
  )

wayne_myles

dbqtju 发表于 2015-6-11 20:22
将(ssget "w" p1 p2)替换为(ssget "w" p1 p2 '((-4 . "")))；
(ssget "c" p1 p2)替换为(ssget "c" p1 p2 ' ...

谢谢高手指点了 我试下

dbqtju

将(ssget "w" p1 p2)替换为(ssget "w" p1 p2 '((-4 . "<NOT") (0 . "ARC,CIRCLE,INSERT,SPLINE*TEXT") (-4 . "NOT>")))；
(ssget "c" p1 p2)替换为(ssget "c" p1 p2 '((-4 . "<NOT") (0 . "ARC,CIRCLE,INSERT,SPLINE*TEXT") (-4 . "NOT>")))

wayne_myles

刚来没有啥 发点小软件 给大伙用 小巧的音乐播放器（PC）

wayne_myles

再发个绿色单文件的  个人觉得很小巧很好用 本人发的都是精品无广告小软件哦

wayne_myles

dbqtju 发表于 2015-6-11 20:22
将(ssget "w" p1 p2)替换为(ssget "w" p1 p2 '((-4 . "")))；
(ssget "c" p1 p2)替换为(ssget "c" p1 p2 ' ...

dbqtju大侠 是这样吗 ！  基本可以了 ，就是文字会被删除，请指点下，再帮忙加入中心线不删除 和绿色直线 还有黄色虚线不删除 不知道可行吗  麻烦了 谢谢

;;框内物体删除 By Gu_xl
(defun c:tt (/ OS P1 P2 CP SS ENREC N *error*)
  (defun *error* (s)
    (setvar "osmode" os)
    (princ s)
    )
  (setq os (getvar "osmode"))
  (setvar "osmode" 0)
  (setq p1 (getpoint "\n指定基点："))
  (setq p2 (getcorner p1 "\n指定对角点："))
  (setq cp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))
  (setq ss (ssget "w" p1 p2 '((-4 . "<NOT") (0 . "ARC,CIRCLE,INSERT,SPLINE*TEXT") (-4 . "NOT>"))))
  (if ss (command "erase" ss ""))
  (command "rectang" p1 p2)
  (setq enRec (entlast))
  ;;重复5次，以保证剪切干净
  (repeat 5
  (setq ss (ssget "c" p1 p2 '((-4 . "<NOT") (0 . "ARC,CIRCLE,INSERT,SPLINE*TEXT") (-4 . "NOT>"))))
    (ssdel enRec ss)
  (command ".trim" enRec "")
  (repeat (setq n (sslength ss))
    (command (list (ssname ss (setq n (1- n))) cp))
    )
  (command "")
    )
  ;;删除绘制的方框
  (entdel enRec)
  (setvar "osmode" os)
  (princ)
  )

dbqtju

现在还不是大侠，也是刚刚上路。((-4 . "<NOT") (0 . "ARC,CIRCLE,INSERT,SPLINE*TEXT") (-4 . "NOT>"))内SPLINE和*TEXT之间少了个逗号。
附件增加了不选择红色或者青色的直线（要自己改的不能是bylayer)。
先试试吧。现在只能想到这么多了。还不行，只能一起等大大侠了。
还有，最好是把图作为附件传上来，才能让人知道具体的东西。

鱼与熊掌

为什么这个帖子的中间夹杂着广告

wayne_myles

dbqtju 发表于 2015-6-12 08:50
现在还不是大侠，也是刚刚上路。((-4 . ""))内SPLINE和*TEXT之间少了个逗号。
附件增加了不选择红色或者青 ...

hehe  谦虚  可以了蛮好的 麻烦 谢谢了

wayne_myles

鱼与熊掌 发表于 2015-6-12 11:19
为什么这个帖子的中间夹杂着广告

呵呵 不是广告 是分享好东西 如何分辩是否是广告是广告就一定会有链接