[하루] (xref) mx.lsp / 다중 XCLIP

[행복한하루]

; 아키모아 운영진 "행복한하루"
; http://cafe.daum.net/archimore
; 2008.10.07
; 다중 xclip


(defun c:mx(/ k ent ss en os)
(setq os (getvar "osmode"))
(prompt "\nMulty Xclip..")
(setq k 0 ent nil)
(while (= ent nil)
  (setq ent (car (entsel "\nXref Select:")))
  (if ent (redraw ent 3))
)
(princ "\n>> Xclip Boundary :")
(setq ss (ssget (list (cons 0 "lwpolyline"))))
(command "undo" "be")
(setvar "osmode" 0)
(repeat (sslength ss)
  (setq en (ssname ss k))
  (command "copy" ent "" (list 0 0) (list 0 0))
  (command "xclip" (entlast) "" "n" "s" en)
  (setq k (1+ k))
)
(entdel ent)
(setvar "osmode" os)
(command "undo" "e")
(princ)
)  

mx(다중xclip).lsp

[2d제왕]

고맙습니다

[보끼리형]

오우~~~ 혹시 반대로도 가능 할까요 박스부분만 없어지는... ^^

[행복한하루]

반대로는 안됩니다.^^;;;

[보끼리형]

^^ 넵

[건축장이]

우와~~~~잘쓰겠습니다...한번해봐야지...ㅎㅎㅎㅎ

[돌파구]

고맙워요 잘쓰겠습니다

[뤼이암스트롱]

감사합니다. 필요한거네요 ^^

[귀여운악마]

감사합니다^^

[영혼까지]

와우~~ 짱짱~~

[초록별]

잘 쓰겠습니다^^

[기억속에]

감사드려요^^

[메이비]

감사합니다. ^^

[아이오]

대단하십니다. 정말 소중히 쓰겠습니다.

[바다소리]

감사 합니다. 오우

[심심할땐커피한잔]

감사합니다.

[귀도]

감사합니다.

[한자니]

감사합니다~

[국가대표건축가]

감사합니다~

[방장이]

잘쓰겠습니다

[때기]

유용한 정보 감사합니다!

[건축젱이]

감사합니다~ 수고하셨습니다