Vla-put-keylength

提供:GizmoLabs - だいたい CAD LISP なサイト
2013年11月27日 (水) 16:46時点におけるGizmon (トーク | 投稿記録)による版 (ページの作成:「{{AutoLISP}} ; 構文 : (vla-put-keylength ''vla-object'' ''KeyLength'') ; 機能 : 図面で実行するセキュリティオプションの暗号化キーの長さを...」)
(差分) ← 古い版 | 最新版 (差分) | 新しい版 → (差分)
構文
(vla-put-keylength vla-object KeyLength)


機能
図面で実行するセキュリティオプションの暗号化キーの長さを指定する。


引数
  • vla-object … SecurityParams の VLA オブジェクト
  • KeyLength … ProviderName の値に基づいた暗号化キーの長さ。


戻り値
nil


サンプル
(setq secparam 
  (vla-getinterfaceobject 
    (vlax-get-acad-object)
    (strcat "autocad.securityparams.18"))) ;ACAD 2012
; 取得
(setq sec-act (vla-get-Action secparam))
(setq sec-alg (vla-get-Algorithm secparam))
(setq sec-klen (vla-get-KeyLength secparam))
(setq sec-pwd (vla-get-password secparam))
(setq sec-pname (vla-get-ProviderName secparam))
(setq sec-ptype (vla-get-ProviderType secparam))

; 設定
(vla-put-Action secparam 1)          ;; ACADSECURITYPARAMS_ENCRYPT_DATA
(vla-put-Algorithm secparam 26625)   ;; ACADSECURITYPARAMS_ALGID_RC4
(vla-put-KeyLength secparam 48)      ;; デフォルト
(vla-put-password secparam "MyPass") ;; パスワード
(vla-put-ProviderName secparam 
  "Microsoft Base Cryptographic Provider v1.0") ;; デフォルト
(vla-put-ProviderType secparam 1)    ;; デフォルト

(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq fileName "c:\\temp\\passwordFile.dwg")
(setq version 48) ;; 2010 DWG
(vlax-invoke-method *actdoc* 'SaveAs fileName version secparam)



関連事項