[编程申请]：关于切换图层与标注样式

大尾巴狼 · 发表于 2004-10-9 10:39:15

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

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

×

如图，给一个命令，点选图中的尺寸标注，就可以把尺寸标注所在的图层置为当前图层，并且尺寸标注所用的标注样式也置为当前标注样式。

哪位大侠帮忙写个LSP？

我一开始只是想切换标注样式，但是忽然发觉图层并且标注样式一起切换会更方便，

先谢谢啦，帮帮我

按：已由柔柔帮助解决问题

chen10jing · 发表于 2006-9-6 22:56:54

这正是我所想要的，既然你的问题解决了，能不能让我们也看看，帮我也解决解决，万分感谢。

橄榄滋味 · 发表于 2006-11-2 13:42:14

(defun c:test ()
(setq cmd(getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq ss(entsel "\nSelect Dimension:"))
(setq la(cdr(assoc 8(entget(car ss)))))
(setq lb(cdr(assoc 3(entget(car ss)))))
(setvar "clayer" la)
(command "dimstyle" "r" lb)
(setvar "cmdecho" 0)
)

zxdvip · 发表于 2006-11-7 01:59:45

这个程序简洁实用，画大样很好。

jx2008 · 发表于 2006-11-15 02:26:11

现在我也会编写了，我编了一格勘察用的钻孔编号程序，很实用，递增递减，前后缀，加圆圈，全自动联系画图一气呵成，非常好用。

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

[编程申请]：关于切换图层与标注样式

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

相关帖子

浏览过的版块