如何用LISP或VLISP更改线型名（已解决）

原地踏步 · 发表于 2018-9-22 19:50:07

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

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

×

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

如题。注意只是改线型名，不是改对象的线型。不用command。

Lisphk · 发表于 2018-9-22 20:26:04

改线型名，改层名，改块名，这些都是一样的，对符号表的操作，找到对象后，用函数修改名字就行了。

原地踏步 · 发表于 2018-9-22 21:17:59

哦，对不起，是我没说清楚。该线型不是简单线型，而是内嵌文字的复杂线型。我试了一下，用entmod不行。不知道还有没有其它什么方法。

Lisphk · 发表于 2018-9-22 21:55:28

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

名字和你数据定义复杂不复杂没关系，
VL有个函数 vl-rename ,可以修改符号表记录名字的

原地踏步 · 发表于 2018-9-22 22:19:04

有这个函数吗？请问如何使用？
(vl-rename "ltype" "W" "ww") ; 错误: no function definition: VL-RENAME
我的CAD是2012版的

Lisphk · 发表于 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>

原地踏步 · 发表于 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

Lisphk · 发表于 2018-9-22 23:10:53

原地踏步发表于 2018-9-22 22:58
帮助文件中说vla-rename适用于Dictionary和LayerStateManager。
我试了一下：
(setq *AcadObj* (vlax-g ...

换一个，vla-put-name

原地踏步 · 发表于 2018-9-22 23:17:47

对了。
(setq ltpObj (vla-Add *LTypes* "W"))
(vla-put-Name ltpObj "ww")

原地踏步 · 发表于 2018-9-22 23:19:12

一直以为vla-Add要新建一个线型才能用，没想到可以这样用。
谢谢Lisphk的耐心解答！

sicky111 · 发表于 2018-9-23 00:03:30

学习一下。

账号		自动登录	找回密码
密码			立即注册

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

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

点评

点评

点评