gpt4 book ai didi

lisp - 转换多个对象的vlax-ename->vla-object

转载 作者:太空宇宙 更新时间:2023-11-03 19:00:02 25 4
gpt4 key购买 nike

我想做的是尝试将多个实体转换为 prder 中的 VLA-OBJECTS,以使用它们可用的 Vlisp 函数。我想做的是:

(while (<= masa masas)
(set (read (strcat "off" (itoa masa) )) (cdr (assoc -1 (eval (read (strcat "offset" (itoa masa)))))))
(set (read (strcat "obj" (itoa masa) )) (vlax-ename->vla-object (read (strcat "off" (itoa masa) ))))
(setq masa (+ masa 1))
)

其中 masa 是一个允许跳出 while 循环的计数器,masas 是变量限制。在 wy 代码中,while 循环内的第一行和第三行工作正常,但我试图将每个 ename 转换为 VLA 对象的第二行给我错误 bad argument type: lentityp OFF1 因为在这种情况从 1 开始,我认为问题不是读取的大写结果,因为 lisp 不区分大小写,而不是我无法解决的类型问题。我也尝试过使用 eval 或直接使用 assoc -1 但我并不幸运。

最佳答案

错误消息表示 OFF1 不是 ENAME(它是一个符号)。您需要使用 (eval ...) 评估符号值。

(while (<= masa masas)
(set (read (strcat "off" (itoa masa)))
(cdr (assoc -1 (eval (read (strcat "offset" (itoa masa))))))
)
(set (read (strcat "obj" (itoa masa)))
(vlax-ename->vla-object (eval (read (strcat "off" (itoa masa)))))
)
(setq masa (1+ masa))
)

IMO,您应该使用列表,而不是分配所有这些递增的变量。要使用这些变量,您需要使用 whilerepeat 循环遍历它们,就像使用 list 和 foreach 一样。假设 offsetList 是 dxf 列表的列表(所有您的 offset(n) 值),您可以简单地构建一个 enameS 列表和一个 vla-objectS 列表。

(setq offList (mapcar '(lambda (x) (cdr (assoc -1 x))) offsetList))
(setq objList (mapcar 'vlax-ename->vla-object offList))

关于lisp - 转换多个对象的vlax-ename->vla-object,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/41916805/

25 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com