홈/ 질문/Q 113245
다음
진행 중
Lv.0
등록일: 2021-07-27T11:31:38+09:00 카테고리:

라인을 옵셋 후 옵센한 라인의 레이어를 변경하고 싶습니다!

안녕하세요:) 무더운 날씨 더위 조심하시길 바랍니다:)

다닥 다닥 붙어있는 여러 선을 옵셋을 한 후 한꺼번에 레이어를 변경하다 보니 옵셋한 선이 어떤 건지 헷갈리는 경우가 있습니다 ㅠㅠ
그래서 선이나 폴리선을 옵셋한 후 특정 이름을 가진 레이어로 변경하는  리습을 원합니다!
정리를 하자면
1. 선이나 폴리선을 옵셋
2. 옵셋한 선을 특정 이름을 가진 레이어(항상 동일한 레이어 이름을 사용할 예정입니다)로 변환 후 색상을 ByLayer 로 변환
입니다!
레이어는 항상 만들어 져 있을 예정이므로 레이어를 추가하는 설정은 필요 없을것 같습니다!
고수분들의 도움의 손길을 부탁드립니다:)
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.0
      수정해서 쓰세요.
      (defun c:offsetlayer(/ entlen entset pnt data OS ly )
      (defun *error* (msg) (princ msg) (setvar “osmode” os)   (princ) )
      (setq os (getvar “osmode”))
      (setq newlay “LayerName”)  ;<<< 여기에 레이어 이름
      (setq entlen (getreal “nOffset To Layer – Input Offset value  : “))
       (while (= 1 1) ;반복실행  
         (setvar “osmode” 0)  
         (setq data (strcat “Select Target Entity,  Offset Distance = ” (rtos entlen 2 2)))
         (princ data)
         (setq entset nil)
         (setq entset (entsel))
         (while (= entset nil)  
             (setq data (strcat “Reselect.  Offset Dist = ” (rtos entlen 2 2)))
             (princ data)
             (setq entset (entsel))
         );while end
          (princ) 
           (setq pnt (getpoint “nclick Offset Direction : “)
            cl (cdr (assoc 8 (entget (car entset))))
           )
              (command “offset” entlen entset pnt “” ) 
              (command “change” (entlast) “” “p” “layer” newlay “c” “bylayer” “”)
           (setvar “osmode” os)
        ) ;while
      (princ)
      )  ;eod
      • 0