请问如何删除同时落在在p1和p2两点上的直线

669423907

请问如何删除同时落在在p1和p2两点上的直线，谢谢了(defun c:13()

(setq p1 (getpoint "\n请指定第一点"))
(setq p2 (getpoint p1 "\n请指定第二点"))


(command "erase",,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,
(princ))

Andyhon

(ssget "x"
(list
   '(0 . "LINE")
     '(-4 . "<OR")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 10 p1)
          '(-4 . "=,=,*") (cons 11 p2)
       '(-4 . "AND>")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 10 p2)
          '(-4 . "=,=,*") (cons 11 p1)
       '(-4 . "AND>")
     '(-4 . "OR>")
))
sorry! Copy后忘了订正
已改如上

Andyhon

是指 单一线段 吗?

kwok

(defun c:tt()
(setq p1 (getpoint "\n请指定第一点"))
(setq p2 (getpoint p1 "\n请指定第二点"))
(command "erase" "f" p1 p2 "" "")
  )

669423907

Andyhon 发表于 2018-2-24 18:25
是指 单一线段 吗?

是的，其它的图元不处理

669423907

kwok 发表于 2018-2-24 19:16
(defun c:tt()
(setq p1 (getpoint "\n请指定第一点"))
(setq p2 (getpoint p1 "\n请指定第二点"))

这样会删除很多东西了

669423907

如图，只删除红色的那根直线

Andyhon

若四方框是 'LINE' 单纯些
若非是 请给出足够的样本(*.Dwg)供调试

669423907

Andyhon 发表于 2018-2-24 21:20
若四方框是 'LINE' 单纯些
若非是 请给出足够的样本(*.Dwg)供调试

有劳大师了

669423907

Andyhon 发表于 2018-2-24 22:34
(ssget "x"
(list
   '(0 . "LINE")

非常感谢Andyhon长老热情帮忙，从左上到右下，左下到右上可以，其它方向的不行。
方便方便再帮整合一下吗？
(defun c:13()
(setq p1 (getpoint "\n请指定第一点"))
(setq p2 (getpoint p1 "\n请指定第二点"))
(setq ss1 (ssget "x"
(list
   '(0 . "LINE")
     '(-4 . "<OR")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 10 p1)
          '(-4 . "=,=,*") (cons 11 p2)
       '(-4 . "AND>")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 11 p2)
          '(-4 . "=,=,*") (cons 10 p1)
       '(-4 . "AND>")
     '(-4 . "OR>")
))
)
(setq ss2 (ssget "x"
(list
   '(0 . "LINE")
     '(-4 . "<OR")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 10 p2)
          '(-4 . "=,=,*") (cons 11 p1)
       '(-4 . "AND>")
       '(-4 . "<AND")
          '(-4 . "=,=,*") (cons 11 p1)
          '(-4 . "=,=,*") (cons 10 p2)
       '(-4 . "AND>")
     '(-4 . "OR>")
))
)
(command "erase" ss1 "")
(command "erase" ss2 "")
(princ))