;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 같은객체 선택하기
;; Made By.......... TaeEun 뿌잉뿌잉 -_-)~
;;
;; Contact Me....... arin9916@naver.com
;; ... http://cafe.naver.com/ptelisp
;; Client........... Gocad
;; Special Thanks...
;; Date............. 2012-02-10
(defun c:aa nil
(sssetfirst nil
(ssget
(list
(cons 0
(princ
(cdr
(assoc 0
(entget
(ssname
(ssget ":S:E") 0
)
)(princ)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;; 같은객체 선택하기
;; Made By.......... TaeEun 뿌잉뿌잉 -_-)~
;;
;; Contact Me....... arin9916@naver.com
;; ... http://cafe.naver.com/ptelisp
;; Client........... Gocad
;; Special Thanks...
;; Date............. 2012-02-10
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:aa nil
(sssetfirst nil
(ssget
(list
(cons 0
(princ
(cdr
(assoc 0
(entget
(ssname
(ssget ":S:E") 0
)
)
)
)
)
)
)
)
)(princ)
)