vlax ldata请帮忙

mojo8997 · 发表于 2022-7-6 11:11:21

前几天我完成了这个，但现在我不记得它是如何完成的，我只想用vlax ldata put将数据写入对象，然后用vlax ldata get将其取回，有人能给我一个简单的例子来刷新我的头脑吗，谢谢=）

Lee Mac · 发表于 2022-7-6 11:33:07

示例：


(defun c:LDWrite ( / ent )
 (vl-load-com)
 (if (setq ent (car (entsel "\nSelect Object to Write Data to: ")))
   (vlax-ldata-put ent "Data-Test" "Lee Mac"))
 (princ))
(defun c:LDRead ( / ent dat )
 (vl-load-com)
 (if (and (setq ent (car (entsel "\nSelect Object to Read Data: ")))
          (setq dat (vlax-ldata-get ent "Data-Test")))
   (alert dat))
 (princ))