;;; Kopiowanie z zaznaczeniem
;;; zwcad.pl
;;; Polecenie do uruchomienia skryptu LISP: Kopia
;;; Opis: https://www.zwcad.pl/materialy-edukacyjne/kurs-lisp/przyklady-lisp/219-kopiowanie-z-zaznaczeniem.html

(vl-load-com)
(setq *ZWCAD* (vlax-get-acad-object))
(setq *Rysunek* (vla-get-activedocument *ZWCAD* ))
(setq *Model* (vla-get-Modelspace *Rysunek* ))
(defun sel2list (selset / Wynik ileelementow i)
;----------------------------------------------------------
; funkcja zamienia zbiór wskazań na listę obiektów
; Argumenty: zbiór wskazań (selectionset)
; Wynik: lista
;----------------------------------------------------------
(setq ileelementow(sslength selset) )
(setq i 0 )
(repeat ileelementow
(setq Wynik (append Wynik (list (vlax-ename->vla-object(ssname selset i) ) )))
(setq i (1+ i ))
)
Wynik
)
(defun C:Kopia ( / )
(setq Wybrane (ssgetfirst))
(setq Wybrane1 (cadr Wybrane))
(if (null Wybrane1) (progn (print "Wskaż obiekty do skopiowania" )(setq Wybrane1 (ssget ))))
(setq Wybrane_obj_list (sel2list Wybrane1) )
(foreach % Wybrane_obj_list
(vlax-invoke-method % 'Copy )
)
(sssetfirst Wybrane1 Wybrane1)
)