;; EQUAL ANGLE DRAWING =======================================
; draw_l_angle   – a b t r1 r2
(defun dwg_angle( / cen_pt xx yy
   p1 p2 p3 p4 p5 p6p p7 p8 p9 )
  (setvar “osmode” 49)
  (setvar “plinewid” 0)
  (setvar “orthomode” 1)
  (setq cen_pt (getpoint “nPick the center point of L-ANGLE…”))
  (setvar “osmode” 0)
  (setq xx (car cen_pt ))
  (setq yy (cadr cen_pt ))
  (setq p1 cen_pt)
  (setq p2 (list (+ xx b )            yy ) )
  (setq p3 (list (+ xx b )         (+ yy (- t1 r2 ))) )
  (setq p4 (list (+ xx (- b r2 ))  (+ yy t1 )) )
  (setq p5 (list (+ xx (+ t1 r1 )) (+ yy t1 )) )
  (setq p6 (list (+ xx t1 )        (+ yy t1 r1 )) )
  (setq p7 (list (+ xx t1 )        (+ yy (- h r2 ))) )
  (setq p8 (list (+ xx (- t1 r2 )) (+ yy h )) )
  (setq p9 (list    xx             (+ yy h )) )
  (setvar “osmode” 0)
  (command “layer” “N” “ANGLE”  “c”  “7” “ANGLE” “”)
  (command “pline” p1 p2 p3 “a” p4 “l” p5 “a” p6 “l” p7 “a” p8 “l”p9 “c”)
  (command “change” cen_pt “” “p” “LA” “ANGLE” “”)
  (setvar “osmode” 49)
  (princ)
  );;;
;;
;

;; CHANNEL DRAWING =======================================
; draw_u_channel – h b t1 t2 r1 r2
(defun dwg_channel( / cen_pt xx yy
                p1 p2 p3 p4 p5 p6p p7 p8 p9 p10 p11 p12
                cos_val sin_val tan_val b_half h_half sub_sin add_sin
                incl_degree b_t1_2 m n)
  (setvar “osmode” 49)
  (setvar “plinewid” 0)
  (setvar “orthomode” 1)
  (setq incl_degree 5)
  (setq cen_pt (getpoint “nPick the center point of U-CHANNEL…”))
  (setvar “osmode” 0)
  (setq xx (car cen_pt ))
  (setq yy (cadr cen_pt ))
  (setq cos_val (cos (dtr incl_degree )))
  (setq sin_val (sin (dtr incl_degree )))
  (setq tan_val (/ sin_val cos_val))
  (setq b_half (/ b 2.0))
  (setq h_half (/ h 2.0))
  (setq sub_sin (- 1 sin_val))
  (setq add_sin (+ 1 sin_val))
  (setq b_t1_2 (/ (- b t1) 2.0) )
  (setq m (- b_t1_2 (* r2 sub_sin) ) )
  (setq n (- b_t1_2 (* r1 sub_sin) ) )
  (setq p1  (list (- xx b_half)              (- yy h_half) ) )
  (setq p2  (list (+ xx b_half)              (- yy h_half) ) )
  (setq p3  (list (+ xx b_half)              (- yy (+ (- h_half t2) (+ (* m tan_val) (* r2 cos_val))))))
  (setq p4  (list (+ xx (+ (/ t1 2.0) m))    (- yy (+ (- h_half t2) (* m tan_val)))))
  (setq p5  (list (+ xx (- (/ t1 2.0) n))    (- yy (- (- h_half t2) (* n tan_val)))))
  (setq p6  (list (- xx (- b_half t1) )      (- yy (- (- h_half t2) (+ (* n tan_val) (* r1 cos_val))))))
  (setq p7  (list (- xx (- b_half t1) )      (+ yy (- (- h_half t2) (+ (* n tan_val) (* r1 cos_val))))))
  (setq p8  (list (+ xx (- (/ t1 2.0) n))    (+ yy (- (- h_half t2) (* n tan_val)))))
  (setq p9  (list (+ xx (+ (/ t1 2.0) m))    (+ yy (+ (- h_half t2) (* m tan_val)))))
  (setq p10 (list (+ xx b_half)              (+ yy (+ (- h_half t2) (+ (* m tan_val) (* r2 cos_val))))))
  (setq p11 (list (+ xx b_half)              (+ yy h_half) ) )
  (setq p12 (list (- xx b_half)              (+ yy h_half) ) )
  (setvar “osmode” 0)
  (command “layer” “N” “CHANNEL”  “c”  “7” “CHANNEL” “”)
  (command “pline” p1 p2 p3 “a” p4 “l” p5 “a” p6 “l” p7 “a” p8 “l”p9 “a” p10 “l” p11 p12 “c”)
  (command “change” cen_pt “” “p” “LA” “CHANNEL” “”)
  (setvar “osmode” 49)
  (princ)
  );;;
;;
;

예전에 받은 형강 그리기 리습에서 제가 레이어 바꾸는 부분을 추가를 했습니다…
(출처를 몰라서… 만드신분에 동의 없이;;; 좀 편히 써보고자 좀 건드렸습니다)

위 내용에서 빨간 글씨가 기존에 있던 리습에서 제가 추가를 시킨건데요 앵글 그리기에서는
제대로 적용이 되는데 채널 그리기에서는
========================================================
알 수 없는 명령 “P”.  도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “LA”.  도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “CHANNEL”.  도움말을 보려면 F1을 누르십시오.
알 수 없는 명령 “BE”.  도움말을 보려면 F1을 누르십시오.
========================================================

이렇게 뜹니다;;; 당췌 이유를 알 수가 없어서 고수님들의 도움을 청합니다…

대지구적표를 작성해주는 리습인데요
명령어를 치고 실행시키면 다이얼로그박스는 뜨는데

객체를 선택하고 엔터를 치면 아무것도 안뜨고 명령어 창에 /Select objects: 성공”성공”/ 이러게 뜨더니
다시 command 상태로 돌아가던데요
뭐가 잘못된거죠?

sid3.lsp  내용

(defun c:sd ( / txt_xy txt_excel cly scale_type2az dot dot2 txt_h1 timer tt ss ea i s1 s11 elist plotchk plst plst2 nn s2 tea fpath fn2 list2 tt p3ea list1 listA listB z2 z dlst x line_lst pline_lst lstt )

 ;(lisp_init)(command “undo” “g”)

 (if (= tdot nil) (setq  tdot “2”))
 (if (= tdot2 nil) (setq  tdot2 “3”))
 (if (= txt_h nil) (setq  txt_h (rtos (* 3 (getvar “ltscale”)) 2 0 )))
  (setq  txt_xy “1” txt_excel “0”);;문자);;문자
  (setq cly (getvar “clayer”))
 
(setq  txt_xy “1” txt_excel “0”);;문자);;문자
  (setq cly (getvar “clayer”))

 (if (null scale_type2az) (setq scale_type2az “0”)) 
 (princ “구적표그리기”)

 
        (setq dcl_id (load_dialog (strcat “sid3.dcl”)))
 
 (if (not (new_dialog “sid” dcl_id)) (exit))

 (set_tile “dot2” tdot2)
 (action_tile “dot2” “(setq tdot2 $value)”)
 
 (set_tile “dot” tdot)
 (action_tile “dot” “(setq tdot $value)”)
 
 (set_tile “txt_xy” txt_xy)
 (action_tile “txt_xy” “(setq txt_xy $value)”)
 
 (set_tile “txt_h1” txt_h)
 (action_tile “txt_h1” “(setq txt_h $value)”)
 
 (set_tile “txt_excel” txt_excel)
 (action_tile “txt_excel” “(setq txt_excel $value)”)
 
 (setq paper_set (list “1안-빠른방식” “2안-빠른방식2” “3안-짧게” “4안-길게” “5안MS” “6안ML” “7안S1” “8안S2” “9안MS1” “10안MS2” “11안S3” “12안S4” “13안S5” “14안S6”))
 (start_list “paper3”) (mapcar ‘add_list paper_set) (end_list)
 (set_tile “paper3” scale_type2az)
 (action_tile “paper3” “(setq scale_type2az $value)”)
 
 (setq ch_next (start_dialog))
 (if (= ch_next 1)
 (progn
 (setq dot (atoi tdot)) ;; 정수
 (setq dot2 (atoi tdot2)) ;; 정수
 (setq txt_h1 (atoi txt_h))  ;; 정수
 (setq ss (ssget (list (cons 0 “LWPOLYLINE”) )))
 ))

 (if ss
 (princ “성공”)
 (princ “실패”)
 )

  ) 




sid3.dcl  내용

sid : dialog { label=”SITE 구적표 만들기”;
 
 : boxed_column {
   label = “옵션”;
   : edit_box { label = “자리수(거리)”; fixed_width = true;    key  = “dot”;   edit_width = 10;     }
  : edit_box { label = “자리수(면적)”; fixed_width = true;    key  = “dot2”;   edit_width = 10;     }
     : edit_box { label = “글씨크기”; fixed_width = true;    key  = “txt_h1”;   edit_width = 10;     }
   spacer;  : toggle {  label=” 문자계산 (또는 Dist계산)  “;    key=”txt_xy”;        }
  : popup_list {  label = “변수조절”; key = “paper3”; }
  spacer;  : toggle {  label=” 엑셀저장  “;    key=”txt_excel”;        }
   ok_cancel;
}
}