如何用LSP程序判断一个图层是否存在？如不存在则创建？

maoyangmy · 发表于 2009-1-13 11:16:56

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

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

x

如何用LSP程序判断一个图层、字型是否存在？如不存在则创建？

SunVei · 发表于 2009-1-13 16:15:43

Command: (tblsearch "Layer" "0")
((0 . "LAYER") (2 . "0") (70 . 0) (62 . 254) (6 . "CONTINUOUS"))

Command: (tblsearch "Layer" "1")
nil

sealive_leafage · 发表于 2009-1-22 14:22:57

图层
(setq layexist (tblsearch "layer" "1"))
(if (= layexist nil) (command "-layer" "n" "1" ""))
字型
(setq styexist (tblsearch "style" "1"))
(if (= styexist nil) (command "-style" "1" "txt.shx" "3.5" "1" "0" "" "" ""))

yoyoho · 发表于 2009-1-22 17:11:28

判断图层及字型是否存在,非常实用啊!
谢谢!sealive_leafage楼主提供学习了!

maoyangmy · 发表于 2009-1-23 07:05:33

我觉得sealive_leafage楼主给出的方法比较好，正是我想要的，谢谢sealive_leafage

		自动登录	找回密码
密码			注册

通知

[求助] 如何用LSP程序判断一个图层是否存在？如不存在则创建？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分