ssget函数

aloy · 发表于 2022-7-5 23:09:11

大家好，
我有一个变量“ptlist”，表示下面例程中引用的列表：

（ssget“_WP”'（（0 1）（4 2）（6 4））'（（0。“弧”）（40.1.0）））
如何在例程中给出变量而不是列表？。
提前感谢。
芦荟

mostafa badran · 发表于 2022-7-5 23:16:17

也许这有帮助。

aloy · 发表于 2022-7-5 23:19:54

莫斯塔法，
似乎给出的链接并没有解释我如何逐个提取点并提供或给出整个列表。我将进一步解释。我的列表是以下内容的子列表，通过随机点击屏幕生成。我想给出点p1，p2，p3。。。。，不要手动单独引用：

(((10.4966 10.8902 0.0) (14.6999 8.8122 0.0) (19.9433 11.1932 0.0) (19.9433
15.9985 0.0) (14.9599 17.3839 0.0) (11.6666 15.9985 0.0)))

有办法吗？还是不可能？。
当做

Tharwat · 发表于 2022-7-5 23:26:48

是的。

copy


(setq i 0
     l '(((10.4966 10.8902 0.0)
          (14.6999 8.8122 0.0)
          (19.9433 11.1932 0.0)
          (19.9433 15.9985 0.0)
          (14.9599 17.3839 0.0)
          (11.6666 15.9985 0.0)
         )
        )
)
(foreach x (car l)
 (set (read (strcat "p" (itoa (setq i (1+ i))))) x)
)

aloy · 发表于 2022-7-5 23:31:48

塔尔瓦特，
初始化i并将ptlist设置为子列表后，我将例程定义如下：

（setq ent（ssget“_Wp”（foreach x ptlist
（set（读取（strcat“p”（itoa（setq i（1+i \k）а）））x）
)'（（0.“点”）））

错误消息是参数太多。

Tharwat · 发表于 2022-7-5 23:32:42

既然变量ptlist应该工作，那么重写坐标的需要是什么？

你盲目地复制和粘贴了我之前发布的内容。

Lee Mac · 发表于 2022-7-5 23:38:20

假设已为变量“ptlist”分配了坐标列表，则可以使用：

copy

(ssget "_WP" ptlist '((0 . "ARC") (40 . 1.0)))

aloy · 发表于 2022-7-5 23:42:31

实际上，以下操作没有任何模糊：
（ssget“_wp”ptlist）就像我过去用（ssget“W”w1 w2）所做的那样。
我只是想把它放在表单（ssget“_wp”ptlist”（（0。“point”））中，因为我在图纸上的所有内容都是点，但它不起作用，因此我发表了文章。也许我说错了。

谢谢Lee Mac
很抱歉，塔瓦给你带来了困惑。

marko_ribar · 发表于 2022-7-5 23:50:47

copy


(setq ss (ssadd))
(foreach p ptlist
 (setq e (ssname (ssget p '((0 . "POINT"))) 0))
 (ssadd e ss)
)
(sssetfirst nil ss)

aloy · 发表于 2022-7-5 23:53:37

你好，Marko，
我记得你在一年多前回复了我的帖子，它们很有帮助。我会测试一下你给了一些时间，因为我明天将旅行。到时候我会回复你的。
当做
芦荟

[编程交流] ssget函数

发表回复

精选推荐