[求助]：请编个自动加载全部线型的程序

TLHMQH · 发表于 2007-6-30 20:17:05

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

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

×

请哪位大侠编个自动加载全部线型的程序
我们每个人在使用自己的CAD时，其线型基本上都会用到，如果每次都一个个加载，费事费力。
能否编个可以加载全部线型的程序，打开CAD时能自动加载更好。

carrot1983 · 发表于 2007-6-30 21:47:25

加载全部的线型

animal212 · 发表于 2007-7-1 10:16:49

哼！
扣了我一个爱心币却下载不了
赔回来！

carrot1983 · 发表于 2007-7-1 11:42:07

我邮箱给我，我发给你喽！

TLHMQH · 发表于 2007-7-1 18:01:30

先谢谢carrot1983 ！
邮箱：TLHMQH@163.COM
如程序可用，我付你爱心币100元！你已具备转帐条件。
现在上传的文件不能下载，并且如果设置需支付爱心币的话，是只吃币不能下载，可谓“吃币病毒”。

TLHMQH · 发表于 2007-7-1 18:14:07

先谢谢carrot1983 ！
邮箱：TLHMQH@163.COM
如程序可用，我付你爱心币100元！你已具备转帐条件。
现在上传的文件不能下载，并且如果设置需支付爱心币的话，是只吃币不能下载，可谓“吃币病毒”。

Underway · 发表于 2007-7-1 18:47:15

;;; by Paul Turvill

(defun C:LOADALL (/ ex)
(setq ex (getvar "expert"))
(setvar "expert" 5)
(command "_.linetype" "_l" "*" "" "")
(setvar "expert" ex)
(princ "\nAll ACAD.LIN Linetypes are loaded.")
(princ)
)

AutoCAD 2000 tested

carrot1983 · 发表于 2007-7-2 08:42:43

哎呀哎呀，原来用command就可以做到了，我用Active，可能速度会快点。
不好意思啊！只是想体验一下收币的感觉。
大家可以用7楼的。当然谁想把币给我！我也愿意接受！

TLHMQH · 发表于 2007-7-12 21:54:25

谢谢Underway 和carrot1983！
Underway的程序简单有效，carrot1983的程序有开发价值。
先对二位支付承诺。
二位都是论坛的积极成员，努力！

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

[求助] [求助]：请编个自动加载全部线型的程序

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

相关帖子