求助选择集问题

述学

(defun c:myss (/ a b)
  (setq a (getpoint "选取第一点位置："))
  (setq b (getpoint "选取第二点位置："))
  (setq ss (ssget "W" a b))
  (princ)
)

这些写运行后，不亮显

不是很理解这句话：只有在不带参数调用 ssget 函数时,才会亮显被选取的对象。

wzg356

加一句
(sssetfirst nil ss)

不带参数调用因为有多次动作--需右键确认，显示的是中间结果，最后返回ss后也不显示

述学

wzg356 发表于 2023-12-25 17:30
加一句
(ssgetfirst nil ss)

加进去报错了

(defun c:mychoice (/ a b)
  (setq a (getpoint "选取第一点位置："))
  (setq b (getpoint "选取第二点位置："))
  (setq ss (ssget "W" a b))
  (ssgetfirst nil ss)
  (princ)
)

wzg356

述学 发表于 2023-12-25 17:55
加进去报错了

(defun c:mychoice (/ a b)

搞错了-----------》(sssetfirst nil ss)

自贡黄明儒

w 估计是window 的意思，改为(setq ss (ssget "_F" a b))