리습수정요청 다시 올립니다

첨부파일이 안올라온다고해서 다시 올립니다

가시설도면작성시 벽체를 그려주는 리습인데요

선을따라 클릭하면 입력한 직경의 원을 그려주고 중간중간에 H파일블럭을 삽입해줍니다

그런데 여기서 원을 circle로 그려주는 대신에 H파일처럼 블럭으로 그려주도록 수정할수 있을까요?

왜냐하면 원주변에 다른 기호들을 붙여줘야 할경우가 있어서 블럭내에서 수정해서 사용하려고 합니다




(defun c:xxx()
 (setq osm (getvar "osmode"))
 (setq num0 (getreal "벽체 종류를 입력하세요 1->CIP // 2->SCW : n"))
 (setq num1 (getreal "CIP or SCW의 직경을 입력하세요 : n"))
 (setq ctc1 (/ num1 2))
 (setq num2 (getreal "CIP or SCW의 C.T.C를 입력하세요 : n"))
 (setq num3 (getreal "파일 종류를 입력하세요 1->300X300 // 2->298X201 : n"))
 (setq num4 (getreal "파일 C.T.C를 입력하세요 : n"))
 (setq p1(getpoint "시작점 : n")) ;벽체시작점
 (setq p3 p1) ;파일시작점

 (while (< num 1)
 (setq p2(getpoint "다음점 : n"))
 (setq dis(distance p1 p2)) ;벽체간격
 (setq dis2(distance p3 p2)) ;파일간격
 (setq dis_1(- dis num2))
 (setq dis_2(- dis num4));시작점에서 겹치는걸 방지하기 위해 한칸 떨어져서 시작하기 때문에 거리도 한칸 떨어진 거리로 시작한다.
 
 (setq ang (angle p1 p2)) ;점 사이의 각도
 (setq p_1 (polar p1 ang num2)) ;벽체 삽입점
 (setq p_2 (polar p3 ang num4)) ;파일 삽입점 겹침 방지를 위해 한칸 떨어져 시작한다.
 (setq pp (polar p3 ang 1))
   (while (> dis_1 0)
     (setvar "osmode" 0) ;오스냅 해제
     (if(= num3 1)
       (setq block "측면-300″)
       (if(= num3 2)
  (setq block "측면-200″)
       ) 
     ) ;end if // 파일 블록 지정
     (progn
      (if(= num0 1)
  (command "-layer" "s" "00-CIP" "")
   (if(= num0 2)
     (command "-layer" "s" "00-SCW" "")
  )
       );end if // 벽체 레이어 지정
     )
     (command "circle" p_1 ctc1) ;벽체 삽입
    
     (if (= dis_1 dis_2)
     (progn      
         (if(= num3 1)
           (command "-layer" "s" "00-wall" "")
             (if(= num3 2)
               (command "-layer" "s" "00-wall" "")
             )
  ); end if // 파일 레이어 지정
      

     (command "-insert" block p_2 "1″ "1″ pp) ;파일 삽입
     (setq p5 (polar p_2 ang num4))
     (setq p_2 p5)
     (setq dis_2 (- dis_2 num4))
     );반복을 위한 시작점과 거리 변경
     );end if // 벽체와 파일이 서로 ctc가 다르기때문에 벽체와 파일의 남은거리가 같을때만 파일 삽입
     (setq p4 (polar p_1 ang num2))
     (setq p_1 p4)
     (setq dis_1 (- dis_1 num2)) ;반복을 위한 시작점과 거리 변경
     (setvar "osmode" osm);오스냅 복구
   )
   (progn
     (if(= num0 1)
  (command "-layer" "s" "00-CIP" "")
  (if(= num0 2)
    (command "-layer" "s" "00-SCW" "")
    )
      )
   )
   (command "circle" p2 ctc1)
   (progn
     (if(= num3 1)
  (command "-layer" "s" "00-wall" "")
  (if(= num3 2)
    (command "-layer" "s" "00-wall" "")
    )
      )
   )
   (command "-insert" block p2 "1″ "1″ p2)
   (setq p1 p2)
   (setq p3 p2);마지막점에 삽입
 
 )
 
)