以编程方式选择关闭

dallion · 发表于 2022-7-6 06:48:43

我有一个lisp，我正在尝试改进，它使用polar（基于用户选择的点）计算两个点，然后使用ssget选择一个对象，在两个点之间使用窗口选择。

问题是，当用户选择点时，如果要选择的对象不在屏幕上，则进行选择的ssget失败。

下面是我的问题的一个可运行的示例：

copy

(defun c:sother (/ a b c ent)
(setq b (polar (setq a (getpoint)) 0 5))
(setq c (polar b (dtr 315) 1))
(setq ent (entget (ssname (ssget "_W" b c) 0)))
;do something with ent
) 
(defun dtr 
(x)
   (* PI (/ x 180.0))
)

用户首先选择一个点，然后程序在图形中的预期位置选择一个对象（程序没有创建对象）。

可以通过在大约（5.3448，-0.344）处绘制一个小圆来演示该问题，运行该程序并选择（0，0）作为点。如果选择初始点时圆在屏幕上可见，entget将返回实体信息。否则，它将失败。

我是否可以设置一个系统变量或类似的变量来解决这个问题（简单的解决方案）？或者我应该尝试通过查询数据库来选择对象（我认为有点复杂）。

BlackBox · 发表于 2022-7-6 07:02:51

你还没有发布你的代码，所以我可能会错过一些信息。。。为什么不直接将名称传递给选择集？

copy


(defun _Select (ss)
 ;; Example:
 ;; (_Select (ssadd (car (entsel))))
 (sssetfirst nil ss)
)

下面是一个快速示例：

copy


(defun c:FOO (/ eName ss)
 (if (and (setq eName (car (entsel "\nSelect an entity: ")))
          (setq ss (ssadd eName))
     )
   (_Select ss)
 )
 (princ)
)

dallion · 发表于 2022-7-6 07:06:37

对不起，我已经用更详细的解释更新了最初的帖子。

BlackBox · 发表于 2022-7-6 07:12:46

我想你没有理解我的建议。。。不要使用窗口选择来创建选择集。相反，根据一些独特的识别标准（如图层、对象类型、XRecord等）将实体添加到选择集中。

Lee Mac · 发表于 2022-7-6 07:19:32

要选择在选择时可能不在屏幕上的对象，一种解决方案是在评估ssget表达式之前临时缩放到选择区域，例如：
或者，使用Visual LISP：
然而，正如BlackBox上面所建议的那样，一种更可靠、更优雅的方法是直接从图形数据库中检索实体（ssget“X”模式），该方法基于其他独特特征，例如实体类型、图层、线型等，甚至使用独特的几何特性（例如圆心或半径，如果它确实是您试图选择的圆）。