「Vla-remove」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-Remove''vla-object'' ''name'') ; 機能 : 名前の付いたオブジェクトをディクショナリから除去する。 ; 引数 * vl...」) |
細編集の要約なし |
||
| (同じ利用者による、間の1版が非表示) | |||
| 1行目: | 1行目: | ||
{{AutoLISP}} | {{AutoLISP}} | ||
; 構文 | ; 構文 | ||
: (vla- | : (vla-remove ''vla-object'' ''name'') | ||
| 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)
)
関連事項