「Vla-remove」の版間の差分
細編集の要約なし |
細編集の要約なし |
||
| 21行目: | 21行目: | ||
(defun DeleteLayerStates () | (defun DeleteLayerStates () | ||
; 画層状態を削除してみたり | ; 画層状態を削除してみたり | ||
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object))) | |||
(vl-Catch-All-Apply | (vl-Catch-All-Apply | ||
'(lambda () | '(lambda () | ||
(vla-Remove (vla-GetExtensionDictionary | (vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*)) | ||
"ACAD_LAYERSTATES"))) | "ACAD_LAYERSTATES"))) | ||
(princ) | (princ) | ||
2014年4月13日 (日) 09:36時点における最新版
- 構文
- (vla-remove vla-object name)
- 機能
- 名前の付いたオブジェクトをディクショナリから除去する。
- 引数
- vla-object … VLAオブジェクト
- name … オブジェクトの名前
- 戻り値
- nil
- サンプル
(defun DeleteLayerStates ()
; 画層状態を削除してみたり
(setq *ActDoc* (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(vl-Catch-All-Apply
'(lambda ()
(vla-Remove (vla-GetExtensionDictionary (vla-Get-Layers *ActDoc*))
"ACAD_LAYERSTATES")))
(princ)
)
関連事項