找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3404|回复: 10

[已解决] 如何用LISP或VLISP更改线型名(已解决)

[复制链接]

已领礼包: 5188个

财富等级: 富甲天下

发表于 2018-9-22 19:50:07 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 原地踏步 于 2018-9-22 23:23 编辑

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

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-9-22 20:26:04 | 显示全部楼层
改线型名,改层名,改块名,这些都是一样的,对符号表的操作,找到对象后,用函数修改名字就行了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5188个

财富等级: 富甲天下

 楼主| 发表于 2018-9-22 21:17:59 | 显示全部楼层
哦,对不起,是我没说清楚。该线型不是简单线型,而是内嵌文字的复杂线型。我试了一下,用entmod不行。不知道还有没有其它什么方法。

点评

名字和你数据定义复杂不复杂没关系, VL有个函数 vl-rename ,可以修改符号表记录名字的  详情 回复 发表于 2018-9-22 21:55
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-9-22 21:55:28 | 显示全部楼层
原地踏步 发表于 2018-9-22 21:17
哦,对不起,是我没说清楚。该线型不是简单线型,而是内嵌文字的复杂线型。我试了一下,用entmod不行。不知 ...

名字和你数据定义复杂不复杂没关系,
VL有个函数 vl-rename ,可以修改符号表记录名字的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5188个

财富等级: 富甲天下

 楼主| 发表于 2018-9-22 22:19:04 | 显示全部楼层
有这个函数吗?请问如何使用?
(vl-rename "ltype" "W" "ww") ; 错误: no function definition: VL-RENAME
我的CAD是2012版的

点评

笔误了,是 命令: !vla-rename #  详情 回复 发表于 2018-9-22 22:32
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-9-22 22:32:06 | 显示全部楼层
原地踏步 发表于 2018-9-22 22:19
有这个函数吗?请问如何使用?
(vl-rename "ltype" "W" "ww") ; 错误: no function definition: VL-RENAME ...

笔误了,是

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

使用道具 举报

已领礼包: 5188个

财富等级: 富甲天下

 楼主| 发表于 2018-9-22 22:58:54 | 显示全部楼层
帮助文件中说vla-rename适用于Dictionary和LayerStateManager。
我试了一下:
  (setq *AcadObj* (vlax-get-acad-object)
        *AcDoc* (vla-get-ActiveDocument *AcadObj*)
        *LTypes* (vla-get-Linetypes *AcDoc*)
  )
  (vla-rename *ltypes* "W" "ww")
; 错误: ActiveX 服务器返回错误: 未知名称: Rename

点评

换一个,vla-put-name  详情 回复 发表于 2018-9-22 23:10
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 19个

财富等级: 恭喜发财

发表于 2018-9-22 23:10:53 | 显示全部楼层
原地踏步 发表于 2018-9-22 22:58
帮助文件中说vla-rename适用于Dictionary和LayerStateManager。
我试了一下:
  (setq *AcadObj* (vlax-g ...

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

使用道具 举报

已领礼包: 5188个

财富等级: 富甲天下

 楼主| 发表于 2018-9-22 23:17:47 | 显示全部楼层
对了。
(setq ltpObj (vla-Add *LTypes* "W"))
(vla-put-Name ltpObj "ww")
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5188个

财富等级: 富甲天下

 楼主| 发表于 2018-9-22 23:19:12 | 显示全部楼层
一直以为vla-Add要新建一个线型才能用,没想到可以这样用。
谢谢Lisphk的耐心解答!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6468个

财富等级: 富甲天下

发表于 2018-9-23 00:03:30 | 显示全部楼层
学习一下。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-28 23:08 , Processed in 0.321498 second(s), 49 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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