리습 분류
리습관련 함수를 정의하는 방법을 알려주세요.<br>리습관련 함수를 정의하는 방법을 알려주세요.
컨텐츠 정보
- 1,514 조회
- 7 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요 리습을 공부하고 있습니다.
위 사이트 예제중에 MyPopupLists를 해 보고 있는데
다음과 같은 에러가 뜹니다.
MyPopupLists; 오류: no function definition: SET_TILE_LIST
원인이 뭘까요 고수님의 조언 부탁드립니다.
감사합니다.^^
//———————————————————————————————————
// MyPopupLists
//———————————————————————————————————
MyPopupLists : dialog {
key = "Title";
label = "";//Title$ from lsp file
initial_focus = "List1″;
spacer;
: row {//<
fixed_width = true;
: column {
width = 24.76;
fixed_width = true;
spacer;
: text {
key = "Text1″;
label = "";//Text1$ from lsp file
}
}
: popup_list {
key = "List1″;//Value1$ from lsp file
width = 11.42;
fixed_width = true;
}
}//>
: row {//<
fixed_width = true;
: column {
width = 24.76;
fixed_width = true;
spacer;
: text {
key = "Text2″;
label = "";//Text2$ from lsp file
}
}
: popup_list {
key = "List2″;//Value2$ from lsp file
width = 11.42;
fixed_width = true;
}
}//>
spacer;
ok_only;
}//MyPopupLists
;———————————————————————————————————-
; c:MyPopupLists – Dialog to select choices from popup lists
; Syntax: MyPopupLists
;———————————————————————————————————-
(defun c:MyPopupLists (/ Dcl_Id% List1@ List2@ Return# Value1$ Value2$)
(princ "nMyPopupLists")(princ)
; Set Default Variables
(if (not *MyPopupLists@);Unique global variable name to store dialog info
(setq *MyPopupLists@ (list nil "" ""))
);if
(setq Value1$ (nth 1 *MyPopupLists@)
Value2$ (nth 2 *MyPopupLists@)
List1@ (list "" "Red" "Orange" "Yellow" "Green" "Cyan" "Blue" "Magenta")
List2@ (list "" "0″ "1″ "2″ "3″ "4″ "5″ "6″ "7″ "8″ "9″)
);setq
; Load Dialog
(setq Dcl_Id% (load_dialog "MyPopupLists.dcl"))
(new_dialog "MyPopupLists" Dcl_Id%)
; Set Dialog Initial Settings
(set_tile "Title" " My Popup Lists")
(set_tile "Text1″ "My Favorite Color")
(set_tile_list "List1″ List1@ Value1$);*Included
(set_tile "Text2″ "My Favorite Number")
(set_tile_list "List2″ List2@ Value2$);*Included
; Dialog Actions
(action_tile "List1″ "(set_list_value "List1@" "Value1$")");*Included
(action_tile "List2″ "(set_list_value "List2@" "Value2$")");*Included
(setq Return# (start_dialog))
; Unload Dialog
(unload_dialog Dcl_Id%)
(setq *MyPopupLists@ (list nil Value1$ Value2$))
(princ)
);defun c:MyPopupLists
안녕하세요.
표면적을 구하는 리습인데요.
제가 실행을 하면
no function definition : getsurfacearea2
이렇게 뜹니다.
도금구간을 구할 때 유용하게 사용되는 리습인데요. 실행이 안됩니다.
이 리습이 월래 AutoCAD2013Mechanical 에서 사용하던 리습입니다.
제가 함 사용을 해볼려구 autocad2013 버전에 실행을 해봣는데요..
안되네요.
(defun dan_cal1()
(Setq dArea (GetSurfaceArea2))
(if dArea
(progn
(setq text_point (getpoint "n 삽입 기준점: "))
;;(setq text_point1 '(330.0 65.0 0.0))
(initGet 7)
;;(setq dia_size (getstring "nDIA&CBN SIZE 입력 : "))
(command "text" text_point "3″ "0″ (STRCAT "표면적 : " (rtos dArea 2 1) " mm^2″))
;;(command "text" text_point1 "3″ "0″ (STRCAT "# : " DIA_SIZE))
(princ)
);end of progn
);end of if
)
이렇게 되어있습니다.
해결방안 부탁드려요..
함수 정의 하는 방법을 알려주세요.
관련자료
댓글 7
/ 1 페이지
