找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1150|回复: 6

[测试]:R16中ActiveX模型 What's New

[复制链接]

已领礼包: 181个

财富等级: 日进斗金

发表于 2002-11-29 20:20:34 | 显示全部楼层 |阅读模式

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

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

×
在AutoCAD R2004中,VBA新增了SecurityParams对象,使用这个对象可以对文件进行加密。

  1.   [FONT=courier new]
  2. Sub Example_Action()
  3.     ' This example encrypts and saves a file.

  4.     Dim acad As New AcadApplication
  5.     Dim sp As New AcadSecurityParams
  6.    
  7.     acad.Visible = True
  8.     sp.Action = AcadSecurityParamsType.ACADSECURITYPARAMS_ENCRYPT_DATA
  9.     sp.Algorithm = AcadSecurityParamsConstants.ACADSECURITYPARAMS_ALGID_RC4
  10.     sp.KeyLength = 40
  11.     sp.Password = UCase("mypassword") 'AutoCAD converts all passwords to uppercase before applying them
  12.     sp.ProviderName = "Microsoft Base Cryptographic Provider v1.0"
  13.     sp.ProviderType = 1
  14.    
  15.     acad.ActiveDocument.SaveAs "C:\MyDrawing.dwg", , sp
  16.    
  17. End Sub

  18.   [/FONT]


  1.   [FONT=courier new]
  2. Sub Example_Password()
  3.         ' This example opens a password-protected file, closes it, and then opens another
  4.         ' password-protected file.

  5.         ThisDrawing.Application.Documents.Open "C:\MyDrawing.dwg", , "MYPASSWORD"
  6.         'AutoCAD converts all passwords to uppercase before applying them

  7.         ThisDrawing.Close

  8.         ThisDrawing.Application.Documents.Open "C:\MyDrawing2.dwg", , "MYSECONDPASSWORD"
  9.        
  10. End Sub

  11.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 181个

财富等级: 日进斗金

 楼主| 发表于 2002-11-29 20:22:51 | 显示全部楼层
AutoCAD R2004新增的对象。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

 楼主| 发表于 2002-11-29 20:24:20 | 显示全部楼层
AutoCAD R2004中改变的方法和属性。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

 楼主| 发表于 2002-11-29 20:26:02 | 显示全部楼层
AutoCAD R2004删除的对象和属性。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2002-12-5 13:59:06 | 显示全部楼层
改了下主题标题,efan2000勿见怪
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 181个

财富等级: 日进斗金

 楼主| 发表于 2002-12-5 14:06:25 | 显示全部楼层
这个也不错,当初我只想讨论加密的问题,后来见R2004在VBA中的改进很少,就又把新增和变动部分上传了。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2003-6-27 16:03:46 | 显示全部楼层
2222222222
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-23 10:48 , Processed in 0.414535 second(s), 44 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表