xl:PutXDataamp;nbs缸筒p;把扩展数据附着到ACAD图元上_缸筒|液压缸|活塞杆-无锡天圆,一流液压缸筒加工厂家

无标题文档

xl:PutXDataamp;nbs缸筒p;把扩展数据附着到ACAD图元上

时间:2016-09-28 11:00来源:来自网络作者:天圆液压点击: 次

;;成果 ;;把扩显现数据附着到ACAD图元上,对付图元上已经有的沟通注册措施名的XDATA数据会包围 ;;语法 ;;(ax:PUTXData Obj DATA) ;;参数 ;;obj:图元名 ;;XDATA:扩显现数据 ;;如： (("south" (1000 . "204201") (1040 . 1.0)) ;; ("AAAA" (1041 . 562.307) (1000

;;(xl:putXData myVlaObj '(("south" (1000 . "204201") (1040 . 1.0))))
(setq dxf (entget obj)
;;语法
    )
)
;;(ax:PUTXData Obj DATA)
;;如： (("south" (1000 . "204201") (1040 . 1.0))
data_i '(-3)
(defun xl:PutXData (Obj Data / dxf n i data_i temp1 appid)
;;       ("BBBB" (1000 . "bbbbbbb"))
   i (1+ i)
   data_i (append data_i (list temp1))
    (setq temp1 (nth i data)
N      (LENgth data)
   appid (car temp1)
;;obj:图元名
;;参数
;;       ("AAAA" (1041 . 562.307) (1000 . "aaaaa"))
;;把扩显现数据附着到ACAD图元上,对付图元上已经有的沟通注册措施名的XDATA数据会包围

(regapp appid)
(entmod (append dxf (list data_i)))

)

;; )
i 0
;;XDATA:扩显现数据
(repeat n

;;成果
;; ("CCCC" (1041 . 752.569))
;;样例
，大缸筒加工，天圆液压缸筒 (责任编辑：admin)