홈/ 질문/Q 108220
다음
진행 중
Lv.0
등록일: 2017-04-03T14:11:50+09:00 카테고리:

센터리습 수정좀부탁드립니다.ㅠㅠㅠ

안녕하세요..

제가 센터 리습파일을 받아서 쓰려고 하는데 2가지를 고쳐주셨으면 합니다.
그림파일에서 보시는 바와 같이 
명령어 CL을 누르면 레이어 1번으로 고정되어 센터선이 입력 되고있습니다.
하지만 회사에서  쓰고있는 센터 레이어는 5번이기 때문에 
레이어 5번으로 고정될수있도록 바꿀수있을까요?? [5번 레이어에 지정된 선종류까지 포함입니다.]
2. 그림파일에서 또 보시는 바와 같이 지름 20파이 10파이 원에서 
센터선의 연장선이 20파이에선 2   10파이에선 1이 연장되어 나오는데
센터 연장선을 모두 3으로 고정될 수 있도록(모든 지름원 포함) 수정 부탁드립니다.ㅜㅜ 
글 읽어주셔서 
감사합니다. 그림파일과 가지고있는 리습파일을 첨부하였습니다.
잘부탁드리겠습니다.
공유

    관련 있는 질문들

    2 답변

    1. aalan

    2. 그래도 답변감사합니다!!

      • 0
    3. (defun c:CL(/ os ss k ent elist cenp rad p1 p2 p3 p4 dam ext la) 
      ;->*error* start
       (defun *error* (msg)(princ “error: “)(princ msg)
       (setvar “clayer” cla) 
       (setvar “osmode” os) 
       (princ))
      ;-<*error* end
        (setvar “cmdecho” 0)   
        (setq os (getvar “osmode”)  ; Current Osnap Setting Save
              cla (getvar “clayer”) ; Current Layer Setting Save
                   )   
        (prompt “n ** Draw Center Line for Circle or Arc.n”)
         
        (setq ss (ssget ‘((0 . “circle,arc”))))   
        (setq k 0)   
        (setvar “osmode” 0) 
        (command “undo” “be”) 
        (repeat (sslength ss)     
         (setq ent (ssname ss k))  
         (setq elist (entget ent))  
         (setq cenp (cdr (assoc 10 elist))) 
         (setq rad (cdr (assoc 40 elist)))
         (setq dam (* 2 rad)
               ext (+ (* dam 0.1) rad))  
         (setq p1 (polar cenp pi ext) 
               p2 (polar cenp 0 ext)    
               p3 (polar cenp (/ pi 2) ext) 
               p4 (polar cenp (+ (/ pi 2) pi) ext) 
         );setq 
         (command “layer” “s” “1” “”)   ;  <-중심선 레이어로 일시적 변경 (이름 변경 필요)
         (command “line” p1 p2 “”) 
         (command “line” p3 p4 “”) 
         (setq k (1+ k)) 
        );repeat 
         (command “undo” “e”)    
         (setvar “osmode” os) 
         (setvar “clayer” cla) ; 기억했던 레이어로 되돌림
      (princ) 
      ) ;defun end
      1번질문은
      리습파일에서 
         (command “layer” “s” “1” “”)   ;  <-중심선 레이어로 일시적 변경 (이름 변경 필요)
      이부분 1 을 5로 변경 하면 될듯합니다
      저도 사실 리습 초보라 .. 잘은 모르고 아마 짐작이랄까..ㅎㅎ
      그리고 
      2번질문은
               ext (+ (* dam 0.1) rad))
      이부분이 10% 더 추가적으로 중심선을 그어주는건데
      그래서 20파이에선 2미리 
      10파이에선 1미리가 나왔던건데요
      저 부분을 수정해야되는데… 그건 -.- 어디서 봤던거 같은데 못찾겠네요 ㅠㅠ
      • 0