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

Question

我想做的是尝试将多个实体转换为 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 对象时给出错误 错误参数类型：lentityp OFF1 因为在这种情况下 off 从 1 开始，我认为问题不是 read 的大写结果，因为 lisp 不区分大小写，而不是我无法解决的类型问题。我也尝试过使用 eval 或直接使用 assoc -1 但我并不幸运。

Answer 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，您应该使用列表，而不是分配所有这些递增的变量。要使用这些变量，您需要使用 while 或 repeat 循环遍历它们，就像使用 list 和 foreach 一样。假设 offsetList 是 dxf 列表的列表（所有你的 offset(n) 值），你可以简单地构建一个 enameS 列表和一个 vla-objectS.[=12 列表=]

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

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

convert vlax-ename->vla-object of multiple objects

lisp

autocad

autolisp