设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 如何用lisp添加图层说明
返回列表 发新帖
查看: 983|回复: 6

[求助] 如何用lisp添加图层说明

[复制链接]
原地踏步

已领礼包: 5188个

财富等级: 富甲天下
发表于 2017-5-23 23:08:25 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
现在AutoCAD的图层管理器中，可以在每个图层后加一个说明。请问如何用lisp把说明加进去？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-5-23 23:40:37 | 显示全部楼层
DUMP下图层对象


  2. 命令: (vlax-dump-object o t)
  3. ; IAcadLayer: 一组具有一定逻辑关系的数据，类似于图形绘制用的透明硫酸纸
  4. ;特性值:
  5. ;   Application (RO) = #<VLA-OBJECT IAcadApplication 00d74d3c>
  6. ;   [size=3][color=#ff0000][b]Description[/b][/color][/size] = ""
  7. ;   Document (RO) = #<VLA-OBJECT IAcadDocument 0d8b3120>
  8. ;   Freeze = 0
  9. ;   Handle (RO) = "10"
  10. ;   Ha**tensionDictionary (RO) = -1
  11. ;   LayerOn = -1
  12. ;   Linetype = "Continuous"
  13. ;   Lineweight = -3
  14. ;   Lock = 0
  15. ;   Material = "Global"
  16. ;   Name = "0"
  17. ;   ObjectID (RO) = -2421632
  18. ;   ObjectName (RO) = "AcDbLayerTableRecord"
  19. ;   OwnerID (RO) = -2421744
  20. ;   PlotStyleName = "Color_7"
  21. ;   Plottable = -1
  22. ;   TrueColor = #<VLA-OBJECT IAcadAcCmColor 28e2e760>
  23. ;   Used (RO) = -1
  24. ;   ViewportDefault = 0
  25. ;支持的方法:
  26. ;   Delete ()
  27. ;   GetExtensionDictionary ()
  28. ;   GetXData (3)
  29. ;   SetXData (2)
  30. T

复制代码


可以看到对象有属性 Description  （上面的红色的）


VLAX对应每个属性都有方法设置它，

  2. 命令: !vla-put-Description
  3. #<SUBR @1ad582d0 vla-put-Description>

复制代码


QQ截图20170523233416.png

那么：
  1. (vla-put-Description o "这是个图层的说明")


或者：
  1. (vlax-put-property o 'Description "这是个图层的说明")


都行。

写个函数：

  1. (defun XD::Layer:SetDesc (lyrname str / e)
  2.   (if (setq e (tblobjname "layer" lyrname))
  3.     (vla-put-Description (vlax-ename->vla-object e) str)
  4.   )
  5.   t
  6. )




评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 很有耐心、善良！

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 1 反对 0

使用道具 举报

sicky111

已领礼包: 6468个

财富等级: 富甲天下
发表于 2017-5-24 00:04:31 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

434939575

已领礼包: 1336个

财富等级: 财源广进
发表于 2017-5-24 08:16:16 | 显示全部楼层
这个挺好的，谢谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

原地踏步

已领礼包: 5188个

财富等级: 富甲天下
 楼主| 发表于 2017-5-24 09:16:54 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
太好了，非常感谢！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

了liao

已领礼包: 42个

财富等级: 招财进宝
发表于 2017-7-4 14:23:52 | 显示全部楼层
一个不会lisp的小白问下，上面的代码怎么用，大师能否指导一下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

了liao

已领礼包: 42个

财富等级: 招财进宝
发表于 2017-7-12 09:59:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
marting 发表于 2017-5-23 23:40

请问一下这些代码怎么用？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-9-24 02:36 , Processed in 0.285119 second(s), 45 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表