「Vla-copy」の版間の差分
(ページの作成:「{{AutoLISP}} ; 構文 : (vla-copy ''vla-object'') ; 機能 : vla-object の図形を複製する。 ; 引数 :* vla-object : 図形の VLAオブジェクト ; ...」) |
(相違点なし)
|
2013年3月10日 (日) 09:54時点における最新版
- 構文
- (vla-copy vla-object)
- 機能
- vla-object の図形を複製する。
- 引数
-
- vla-object : 図形の VLAオブジェクト
- 戻り値
- 複製した図形の VLAオブジェクト
- サンプル
(defun xx (/ ss) ; 選択図形を同じ位置にコピーする(コマンド版) (setq ss (ssget)) (command "._copy" ss "m" "@" "@" "")) (defun xx (/ ss ssColl) ;;; 選択図形を同じ位置にコピーする関数(VLA版) (if *Select (vla-clear *Select) (setq ssColl (vla-get-SelectionSets (vla-get-ActiveDocument (vlax-get-acad-object))) *Select (vla-add ssColl "sel")) ) (setq ss (ssget)) (if SS (progn (vla-Select *Select acSelectionSetPrevious) (vlax-for % *Select (vla-copy %)))) ) ;_end_defun
関連事項