怎样多段选择的时候使用ssget "f"

张大锤

(defun c:xxx ()
(setq p1(getpoint))
(setq p2(getpoint p1))
(setq ss (ssget "f" (list p1 p2)))
(command "ERASE" ss "")
(princ)
)
现在只能选择2点 删除 这一条线的东西
请问用什么函数 可以选择多次（比如像 多段线一样 选择完 多短线的点与点之间的物体删除）

namezg

;再给你一种方式
(defun c:test ()
        (command "ERASE" "f")
        (while (/= (getvar "cmdactive") 0)
                (command pause)
        )
        (princ)
)

newer

ssget "f" 你就是负责构造点表，
你上面的，想自己选点，多个，就用循环
(setq pts nil)
(while (setq p1 (if (not pts)
                          (getpoint "\n拾取点<退出>:"))
                          (getpoint (car pts) "\n下一点<结束>:")))
   (setq pts (cons p1 pts))
)
(setq pts (reverse pts))

张大锤

newer 发表于 2018-8-29 20:00
ssget "f" 你就是负责构造点表，
你上面的，想自己选点，多个，就用循环
(setq pts nil)

早上好 很感谢你 帮忙
实在是没弄懂。。。
能再帮忙看一下吗
(defun c:mm ()
(setq pts nil)
(while (setq p1 (if (not pts)
(getpoint "\n拾取點<退出>:"))
(getpoint (car pts) "\n下一點<結束>:")))
(setq pts (cons p1 pts))
(setq pts (reverse pts))
(setq ss (ssget "f" pts))
(command "ERASE" ss "")
(princ)
)

张大锤

namezg 发表于 2018-8-30 08:27
;再给你一种方式
(defun c:test ()
        (command "ERASE" "f")

感谢感谢 很6

张大锤

namezg 发表于 2018-8-30 08:27
;再给你一种方式
(defun c:test ()
        (command "ERASE" "f")

感谢感谢 很6

konglong604

F后面跟一个点表就行了.

namezg

;栏选删除对象
(defun c:ZG_EraseF (/ pt ptlst ss)
        ;获取点表
        (if (setq pt (getpoint "\n指定第一点<退出>: "))
                (progn
                        (setq ptlst (cons pt ptlst))
                        (while (setq pt (getpoint pt "\n指定下一点<结束>: "))
                                (setq ptlst (cons pt ptlst))
                                (grdraw (cadr ptlst) (car ptlst) 7 1)
                        )
                        (setq ptlst (reverse ptlst))
                )
        )
        ;删除选择集
        (setvar "cmdecho" 0)
        (if (and ptlst (setq ss (ssget "f" ptlst)))
                (command "_.erase" ss "")
        )
        (setvar "cmdecho" 1)
        (princ)
)