乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 尊重版权,从我做起,拒绝盗版,拒绝倒卖 签到、发布资源、邀请好友注册,可以获得银币 请注意保管好自己的密码,避免账户资金被盗
查看: 84|回复: 4

线形自动加载

[复制链接]

3

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2003-5-29 21:24:00 | 显示全部楼层 |阅读模式
请问各位,我已经编好了线形文件,把它复制到acad.lin文件中,但是每次使用都要打开线形对话框进行加载,请问如何在lisp中写程序自动加载所有已经定义的线形呢?
回复

使用道具 举报

4

主题

20

帖子

3

银币

初来乍到

Rank: 1

铜币
36
发表于 2003-5-30 14:35:00 | 显示全部楼层
(vl-load-com)
(defun c:loadline(/ adoc msp ltps ltp)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-linetypes adoc))
  (vla-add ltps "Center")
)
;Center为线型名。
回复

使用道具 举报

22

主题

248

帖子

10

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
336
发表于 2003-5-30 16:24:00 | 显示全部楼层

我用了这个程序,线形是可以加载了,但是显示的都不是加载的线形呢?都是类世“continuous”的线呢?请在帮助!!
回复

使用道具 举报

3

主题

7

帖子

3

银币

初来乍到

Rank: 1

铜币
19
发表于 2003-6-1 12:32:00 | 显示全部楼层
(vl-load-com)
(defun c:loadline(/ adoc msp ltps ltp)
  (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
  (setq ltps (vla-get-linetypes adoc))
  (vla-load ltps "Center" "acad.lin")
)
;acad.lin装有线型的文件
回复

使用道具 举报

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2003-6-2 08:45:00 | 显示全部楼层
[此贴子已经被作者于2003-6-2 18:15:54编辑过]
回复

使用道具 举报

发表回复

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

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-7-2 23:02 , Processed in 0.604802 second(s), 73 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表