KSMDCAD-리습 수정요청건-1
컨텐츠 정보
- 225 조회
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요.
KSMDCAD의 일부분을 수정하여 사용하고자 합니다.
많은 고수님들의 답변 부탁드립니다.
첨부파일을 보시면 좌측이 KSMDCAD를 사용하여 만근것이고
우측이 제가 사용하여 만들고자 하는것입니다.
수정가능하시면 부탁드리겠습니다.
(defun clerr1(s1)(if(/= s1 "Function cancelled")(princ(strcat "nError: " s1)))(command "color" "bylayer")(command "linetype" "s" "bylayer" "")(setvar "osmode" osm)(setvar "cmdecho" cmd)(setvar "orthomode" ort)(setvar "blipmode" bli)(setq *error* olderr)(princ))(defun C:lea()(setq olderr *error* *error* clerr1)(setq cmd(getvar "cmdecho"))(setq osm(getvar "osmode"))(setq bli(getvar "blipmode"))(setq ort(getvar "orthomode"))(setvar "cmdecho" 0)(setvar "osmode" 0)(setvar "blipmode" 0)(setvar "orthomode" 0)(if(= nf nil)(setq nf 1))(setq nt nf)(graphscr)(setq lnu3(getreal "nScale factor: "))(setq nf(getint (strcat "nLast # Used:[" (itoa(1- nf)) "] Input number #:" ) ))(if(= nf nil)(setq nf nt))(while(setq lnu1(getpoint "nSelect start point: "))(setq lnu2(getpoint lnu1 "nSelect end point: "))(setq lnu5(polar lnu2(angle lnu1 lnu2)(* lnu3 8)))(setq lnu6(polar lnu2(angle lnu1 lnu2)(* lnu3 4)))(setq lnu4(* lnu3 3))(command "style" "romans" "" lnu4 0.85 "" "" "" "")(command "layer" "s" 2 "")(command "dim" "leader" lnu1 lnu2 ^c "exit")(command "circle" "2p" lnu2 lnu5)(command "layer" "s" 3 "")(command "text" "m" lnu6 0 nf)(command "layer" "s" 0 "")(command "style" "romans" "" 0 0.85 "" "" "" "")(setq nf(1+ nf)))(setvar "osmode"