这非常有效！谢谢Tharwat！
我感谢在我的问题上得到的所有帮助！干得好，伙计们！！
不客气。
1+
顺便说一句，如果我想从pline的顶点中获得任何点，我会使用assoc列表：
(defun PlineVertices->AssocLst ( Pline / i )
(if
(and
(eq 'ENAME (type Pline))
(eq "LWPOLYLINE" (cdr (assoc 0 (entget Pline))))
(setq i 0)
)
(apply 'append (mapcar '(lambda (x) (if (= 10 (car x)) (list (list (strcat "P" (itoa (setq i (1+ i)))) (cdr x))))) (entget Pline)))
)
)
例子：
_$ (setq Points (PlineVertices->AssocLst (car (entsel "\nPick a pline: "))))
(("P1" (525.741 276.008))
("P2" (656.491 276.008))
("P3" (656.491 199.127))
("P4" (525.741 199.127))
)
_$ (setq Point3 (cadr (assoc "P3" Points)))
(656.491 199.127)
_$
嗨，李！（好像我认识你什么的。）
我明白你们的意思。（感谢你给大卫一些支持！）我的意图是使用这些变量在带有倒角的矩形上自动绘制尺寸。（我找到了一个对矩形执行此操作的工具）记住了你的点，我不太明白如何从列表中只调用正确的坐标。你能举一个例子来说明这是怎么做到的吗？我相信这是可以做到的，作为一个Lisp程序的傻瓜，我很难理解。
非常感谢。
乔
这似乎是我问李之前的问题的答案？（傻瓜说：D）
塔瓦，我还有一个问题要问你。如果已经将多段线作为选择集，该怎么办？如何将其纳入您的代码中？
非常感谢。
因此，您需要迭代选择集，并在实体名称上实现该函数。
如：
(repeat (setq nos (sslength selectionSet))
(setq lst (cons (SetvariableToEachCoordinate (ssname selectionSet (setq nos (1- nos)))) lst))
)
所以变量“lst”是我的函数返回的所需变量的列表。
是的，我现在明白了。非常好的塔尔瓦！
再次感谢！
乔
快乐编码乔。 使用提供的所有代码，我将在周末后发布我的发现。
Grrr、李、大卫、，
这开始有意义了。我至少还要再看几次才能完全理解它。
感谢你们在今天下午提供的帮助！
再一次，正如在这里的大量帖子中已经多次提到的那样，你们对我们其他人来说是多么大的帮助，而不是像你们这样有学问的人！！
干杯和
乔
页:
1
[2]