将不同的变量分配给

drafter_joe · 发表于 2022-7-5 17:19:00

这非常有效！谢谢Tharwat！

我感谢在我的问题上得到的所有帮助！干得好，伙计们！！

Tharwat · 发表于 2022-7-5 17:22:30

不客气。

Grrr · 发表于 2022-7-5 17:25:58

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)))
 )
)

例子：

copy


_$ (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)
_$

drafter_joe · 发表于 2022-7-5 17:29:45

嗨，李！（好像我认识你什么的。）

我明白你们的意思。（感谢你给大卫一些支持！）我的意图是使用这些变量在带有倒角的矩形上自动绘制尺寸。（我找到了一个对矩形执行此操作的工具）记住了你的点，我不太明白如何从列表中只调用正确的坐标。你能举一个例子来说明这是怎么做到的吗？我相信这是可以做到的，作为一个Lisp程序的傻瓜，我很难理解。

非常感谢。
乔

drafter_joe · 发表于 2022-7-5 17:31:39

这似乎是我问李之前的问题的答案？（傻瓜说：D）

drafter_joe · 发表于 2022-7-5 17:36:52

塔瓦，我还有一个问题要问你。如果已经将多段线作为选择集，该怎么办？如何将其纳入您的代码中？

非常感谢。

Tharwat · 发表于 2022-7-5 17:38:41

因此，您需要迭代选择集，并在实体名称上实现该函数。

如：

copy


(repeat (setq nos (sslength selectionSet))
 (setq lst (cons (SetvariableToEachCoordinate (ssname selectionSet (setq nos (1- nos)))) lst))
 )

所以变量“lst”是我的函数返回的所需变量的列表。

drafter_joe · 发表于 2022-7-5 17:41:24

是的，我现在明白了。非常好的塔尔瓦！

再次感谢！
乔

Tharwat · 发表于 2022-7-5 17:46:07

快乐编码乔。

drafter_joe · 发表于 2022-7-5 17:48:31

使用提供的所有代码，我将在周末后发布我的发现。

Grrr、李、大卫、，

这开始有意义了。我至少还要再看几次才能完全理解它。

感谢你们在今天下午提供的帮助！

再一次，正如在这里的大量帖子中已经多次提到的那样，你们对我们其他人来说是多么大的帮助，而不是像你们这样有学问的人！！

干杯和

乔

[编程交流] 将不同的变量分配给

发表回复

精选推荐