删除对象时，老是提示 选择集：xxxx

669423907

cad2018，删除或复制对象的时候，老是提示   选择集：xxxx
需要确定（其实已经删除完毕），2008的时候没有这种现象，不知道是什么原因造成的？
;标角度
(defun c:bjd()
(if (ssget "i")
(vl-cmdf "_erase" (ssget "i") "") ;删除
(vl-cmdf "dimangular") ;标角度
)
(princ))

jun353835273

2. (defun c:bjd( / i ss )
   
3. (if (setq ss (ssget ":L" ))
   
4.   (progn
   
5.    (setq i 0)
   
6.    (repeat (sslength ss)
   
7.      (entdel (ssname ss i))
   
8.      (setq i (+ 1 i))
   
9.      )
   
10.     )
    
11.   )
    
12. )

(defun c:bjd( / i ss )<br /> (if (setq ss (ssget ":L" ))<br />   (progn<br />    (setq i 0)<br />    (repeat (sslength ss)<br />      (entdel (ssname ss i))<br />      (setq i (+ 1 i))<br />      )<br />     )<br />   )<br /> )

这样删吧
你的(ssget "i")啥意思呢，没有这种用法吧

669423907

jun353835273 发表于 2023-5-24 23:19
这样删吧
你的(ssget "i")啥意思呢，没有这种用法吧

http://bbs.mjtd.com/forum.php?mo ... amp;highlight=ssget
&#8203;
&#8203;
I 隐含窗口选择
参数语法:  (ssget "i" [filter-list])
CAD 命令有两种执行方式，第一种先命令后选择，第二种先选择后命令。所以在 Lisp 中也允许先选择后命令，
而且这方式可以通过系统变量 pickfirst 来关闭（值为 0），此时 I 参数将失效，(ssget "i") 将返回 nil。
选择对象后，选择集呈现亮显状态，可以用 (sssetfirst nil) 取消选择集的亮显。

X 整个文件
在当前打开的CAD文件中选择所有对象，包括关闭、冻结图层中的图元和可见屏幕外的图元，不分大小写。
参数语法: (ssget "x" [filter-list])
X 用法与 A 用法等价，(ssget “A”) 也是选择所有对象，但是 A 模式不返回冻结图层上的对象。

:E 拾取框
用鼠标拾取框选择对象，此时 ssget 将不再拉出一个矩形窗口，直到点右键结束选择。此模式可与 “+” 组合使用。
参数语法: (ssget ":E" [filter-list])
与 :E 对应的 :N 参数为只能拉出一个矩形窗口选择，而不能通过点选拾取对象。

:S 仅允许单一选择集
使用:s参数时，ssget 将点选对象一次就会结束，无论是否选中对象，未选中则返回 nil，可节省一次回车确认。
参数语法: (ssget ":S" [filter-list])
说明： “:S” 参数和 “:E” 可以同时使用，例如： (ssget "_:S:e")，此时 ssget 与 entsel 作用相同，但是返回值不同。
以下参数可以组合使用， “+” 或 “-“，例如：(ssget "_:S+D")

:D 重复选择
允许同一个对象多次加入选择集，每选择一次，则加入一次。
参数语法:   (ssget ":D" [filter-list])
例如：画两条直线，然后运行代码 (setq ss (ssget ":d"))，框选3次直线后 (sslength ss) 返回 6

不选择锁定图层对象
注意： L、：L、-L 的参数是不同的。
参数语法: (ssget "" [filter-list])
ssget 默认选择所有图层对象，这样在程序中需判断图层是否锁定，才能编辑，否则 lisp 对选择集操作时将返回错误

程序有两个功能：
1：如果先选择对象，则删除对象
2：如果没有选择对象，则执行角度标注

jun353835273

669423907 发表于 2023-5-24 23:53
http://bbs.mjtd.com/forum.php?mod=viewthread&tid=175755&highlight=ssget
&#8203;
&#8203;

这样试一试
(defun c:bjd( / i ss )
(if (setq ss (ssget "i"))
  (progn
   (setq i 0)
   (repeat (sslength ss)
     (entdel (ssname ss i))
     (setq i (+ 1 i))
     )
    )
  (progn
  (vl-cmdf "dimangular") ;标角度
    )
  )
  (princ)
)

669423907

jun353835273 发表于 2023-5-25 14:05
这样试一试
(defun c:bjd( / i ss )
(if (setq ss (ssget "i"))

非常感谢你回复，这样的确可以，没有提示了。
究竟是什么原因呢？很多地方都用到 (setq ss (ssget "i"))，
在08版用一直都是没有问题，18，20版都不行，不知道问题出在哪…

jun353835273

669423907 发表于 2023-5-25 21:48
非常感谢你回复，这样的确可以，没有提示了。
究竟是什么原因呢？很多地方都用到 (setq ss (ssget "i")) ...

(vl-cmdf "_erase" (ssget "i") "") ;应该是command的原因

669423907

jun353835273 发表于 2023-5-26 07:47
(vl-cmdf "_erase" (ssget "i") "") ;应该是command的原因

多谢大师指点