홈/ 질문/Q 99427
다음
진행 중
Lv.0
등록일: 2013-10-02T16:08:24+09:00 카테고리:

특정 레이어 move 및 copy 리습 수정 부탁드립니다.

(defun c:slsl()
(prompt”n MULTI SELECT LAYER.. from YYS:”)
(setq sel_ent (ssget))
(prompt “n DEFAULT SELECT LAYER:”)
(setq desl (sel))
(setq col (assoc ‘8 dsel))
(setq lastsel (ssget “p” (list col)))
)
캐드 파일 첨부합니다

공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 감사합니다

      • 0

    3. (defun c:slsl( / ss sel)
       (princ “n MULTI SELECT LAYER.. from YYS:”)
       (and
        (setq ss (ssget))
        (princ “n DEFAULT SELECT LAYER:”)
        (setq sel (car (entsel)))
        (setq sss (ssget “p” (list (assoc 8 (entget sel)))))
        ;아래 셋 중 원하는 걸 선택, 수정하여 사용하세요.
        ;(sssetfirst nil sss) ;선택
        (command “copy” sss “”) ;복사
        ;(command “move” sss “”)  ;이동
       )
       (princ)
      )

      • 0