用法
评论
建议
取 消
确 定
(defun block:get-attributes (blk / lst) "获取块属性,返回属性名和值的点对列表。" (if (= (quote ename) (type blk)) (setq blk (e2o blk))) (if (= (quote vla-object) (type blk)) (if (safearray-value (setq lst (vlax-variant-value (vla-getattributes blk)))) (mapcar (quote (lambda (x) (cons (vla-get-tagstring x) (vla-get-textstring x)))) (vlax-safearray->list lst))) nil))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 767 个
函数库类别: 53 种
上传记录
刷新
冀公网安备 13050302000400号