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

vlax ldata请帮忙

前几天我完成了这个，但现在我不记得它是如何完成的，我只想用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))

mojo8997 发表于 2022-7-6 11:54:02

非常感谢李！

Lee Mac 发表于 2022-7-6 12:06:25

不客气，莫霍先生

alanjt 发表于 2022-7-6 12:13:48

英雄联盟
Mojo Risin先生
页: [1]
查看完整版本: vlax ldata请帮忙