如果您寻找lisp解决方案,请查找VLAX-LDATA-。。。功能。例如,将字典“My Dict”附加到任何实体,并写出字符串、整数和三维坐标列表的点对列表:
- Command: (vl-load-com)
- Command: (setq ent(car(entsel)))
- Select object: <Entity name: 7efa3368>
- Command: (vlax-ldata-put ent "My Dict" '((0 . "My string")(1 . 233)(3 . (2.44 17.0 22.04))))
- ((0 . "My string") (1 . 233) (3 2.44 17.0 22.04))
阅读词典内容:
- Command: (vlax-ldata-get ent "My Dict")
- ((0 . "My string") (1 . 233) (3 2.44 17.0 22.04))
它又快又简单。。。 |