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

shh_188

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

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

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

smartstar

;;功能：获得或修改图层说明
;;用法：当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

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

清风明月名字

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

c961806787

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

灰常感谢！终于找到了！