【求助】请问下面这段代码是什么意思？怎么实现呢？

muksun · 发表于 2009-5-30 23:27:00

xl:PutXData 把扩展数据附着到ACAD图元上

;;功能
;;把扩展数据附着到ACAD图元上,对于图元上已经有的相同注册程序名的XDATA数据会覆盖
;;语法
;;(ax:PUTXData Obj DATA)
;;参数
;;obj:图元名
;;XDATA:扩展数据
;;如： (("south" (1000 . "204201") (1040 . 1.0))
;;       ("AAAA" (1041 . 562.307) (1000 . "aaaaa"))
;;       ("BBBB" (1000 . "bbbbbbb"))
;;       ("CCCC" (1041 . 752.569))
;;      )
;;样例
;;(xl:putXData myVlaObj '(("south" (1000 . "204201") (1040 . 1.0))))
(defun xl:PutXData (Obj Data / dxf n i data_i temp1 appid)
(setq dxf (entget obj)
N      (LENgth data)
i      0
data_i '(-3)
)
(repeat n
    (setq temp1 (nth i data)
   appid (car temp1)
   data_i (append data_i (list temp1))
   i (1+ i)
    )
    (regapp appid)
    (entmod (append dxf (list data_i)))
)

)

tnt1095 · 发表于 2009-5-31 10:16:00

如果没有说错的话，这段代码是南方测绘有限公司的Cass系列中的一段给地形图中的实体添加属性的代码（该软件的思想是将地物代码等信息添加到Xdata中，避免使用任何数据库）

账号		自动登录	找回密码
密码			注册