（n） entsel（p）
nentsel：通过指定点提示用户选择对象（实体），并提供对复杂对象中包含的定义数据的访问（我假设这意味着它将获取嵌套实体，例如块）nentselp：提供与nentsel功能类似的功能，无需用户输入
entsel：提示用户通过指定点来选择单个对象（实体）
我正在寻找一个EntSelp和entsel的组合，其中我有一个预定点（不希望被提示），我希望实体数据是块的数据，而不是块中的嵌套对象。为什么没有entselp函数？ Nentselp返回一个包含大量良好信息的列表。该列表中的第一项是嵌套实体。该列表中的最后一项是嵌套在其中的实体。您只需要（car（last（nentselp（getpoint）））之类的东西。 谢谢你的回复。我对这个有点陌生。你能告诉我我做错了什么吗？我只是想弄清楚积木的层次。ip是我的观点
(setq ent1 (nentselp ip))
(setq ent2 (entget (car (last (ent1)))))
(setq blayer (cdr (assoc 8 ent2)))
你的第一句话很好，准确无误。
第二行有一个错误：变量周围有括号。该语法将告诉解释器（ent1）是一个函数，很像（entsel）或（ssget）（参见括号？）。所以只要把你的第二行画成这样：
(setq ent2 (entget (car (last ent1))))
并且你的第三条线看起来也很对位，所以应该可以。 您可以使用ssget。例如：
(and (setq pt (getpoint "\nSpecify point: "))
(setq ss (ssget pt))
(setq en (entget (ssname ss 0)))
) 多亏了你们两个，现在效果很好！
没问题。我只是想提供另一个选择。 这是一个很好的解决方案，艾伦。我甚至没有想到，我只是跳进了“解决问题”的模式。似乎只有当我的思绪徘徊时，我才能跳出框框思考。 你好
注意（last（nentselp）），它返回从较深嵌套到外部的所有父实体的列表，即选择嵌套在块B中的块a中的一条线：
（car（nentselp））返回行ename
（last（nentselp））返回一个列表，其中第一项是行所有者（块a），第二项是块a（块B）的所有者。
因此，如果要获得较高的父实体，必须使用：
（最后（最后（nentselp））） 嗯，我昨晚在玩ssget，所以它在我脑海里很新鲜。所以，我得到了一些帮助。
页:
[1]