Vla-copy

AutoLISP Home - AutoLISP 目次 - DCL - AutoLisp関数互換表 - CAD&CGブログ - オンラインショップ- GizmoTools ヘルプセンター

構文: (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