shh_188 发表于 2012-7-18 13:27:21

[提问]在lsp中如何获取和修改图层的备注

本帖最后由 shh_188 于 2012-7-18 13:39 编辑

各位高手，现在在尝试获取图层的各类信息，用来批量导出和导入图层的。

DXF组码里啥都好，名称、颜色、线型这类的什么都有，就是缺一个图层的备注说明。

不知道有没有高手给个方法，来把图层备注给获取出来，另外要能有个什么方法去修改这个备注就好了。

smartstar 发表于 2012-7-19 13:02:20

;;功能：获得或修改图层说明
;;用法：当Description缺省时，为获得图层说明。当Description存在时修改图层说明
;;layname 图层名称 类型：字符串
;;Description 新的图层说明 类型：字符串

(defun get&put-Description (layname Description)
(vl-load-com)
(setq        AcadObject   (vlax-get-acad-object)
        AcadDocument (vla-get-ActiveDocument Acadobject)
        mSpace             (vla-get-ModelSpace Acaddocument)
)
(setq layers (vla-get-Layers AcadDocument))
(setq lya_data (vla-add layers layname))
(if Description
    (vla-put-Description lya_data Description)
    (vla-get-Description lya_data)
)
)

shh_188 发表于 2012-7-19 13:41:56

非常感谢，有了这个，弄出来的图层才比较容易看懂啊
没个说明，看的头晕死了

清风明月名字 发表于 2013-6-29 08:17:38

谢谢楼主的分享！很有意思

c961806787 发表于 2013-11-18 17:13:22

smartstar 发表于 2012-7-19 13:02 static/image/common/back.gif
;;功能：获得或修改图层说明
;;用法：当Description缺省时，为获得图层说明。当Description存在时修改图层 ...

灰常感谢！终于找到了！
页: [1]
查看完整版本: [提问]在lsp中如何获取和修改图层的备注