Entsel和Entsel在同一位置

Grrr · 发表于 2022-7-5 17:45:05

大家好，
我想问一下：
有没有办法同时执行“entsel”和“entsel”（单击一次）？
例如，我试图从动态块中选取一条嵌套线，
我试图存储line的实体名block的实体名。

Command: (entsel)
Select object: (<Entity name: 7ff64b74d980> (58158.7 46703.2 0.0))

我已经意识到（cdr（entsel））将返回用户拾取点的坐标，但是否可以调用entsel并应用/模拟相同的拾取点？

marko_ribar · 发表于 2022-7-5 17:50:27

可能是这样的-而不是nentsel-使用nentselp并查找这两个不同输出之间的差异（nentsel/nentselp）：

copy


(defun c:pick ( / es ns )
 (setq es (entsel "\nPick an entity..."))
 (setq ns (nentselp (cadr es)))
 (prompt "\nEntsel data : ")
 (princ es)
 (prompt "\nNentselp data : ")
 (princ ns)
 (princ)
)

Grrr · 发表于 2022-7-5 17:56:31

谢谢你，马尔科！
我对包含这种方法的例程几乎没有什么想法，我很高兴这不是很难解决。
保加利亚欢呼！

Lee Mac · 发表于 2022-7-5 18:02:16

无需第二次选择-当选择嵌套实体时，父实体列表是由nentselp返回的列表中的第四项。

Grrr · 发表于 2022-7-5 18:03:47

我刚试过这个：

copy

Command: (nentsel)
Select object: (<Entity name: 7ff6925060b0> (58211.6 46249.8 0.0) ((1.0 0.0 0.0) (0.0 1.0 0.0) (0.0 0.0 1.0) (55462.9 46380.2 0.0)) (<Entity name: 7ff692504ec0>))

据我所知，（car（nentsel））将返回嵌套实体的名称，（last（nentsel））将返回父实体，因此当我选择块的同一行时：

copy

Command: (entsel)
Select object: (<Entity name: 7ff692504ec0> (58178.1 46249.8 0.0))
Command: (last (nentsel))
Select object: (<Entity name: 7ff692504ec0>)

（last（entsel））将等于（car（entsel））
我希望我理解正确