리습 수정 좀 부탁드립니다.<br>리습 수정 좀 부탁드립니다.<br>리습 수정 좀 부탁드립니다….<br>리습 수정 좀 부탁드립니다..<br>리습 수정 좀 부탁드립니다.<br>리습 수정 좀 부탁드립니다.<br>리습 수정 좀 부탁드립니다

면적, 평 리습입니다

소수점 2자리까지만 나오게 수정좀 부탁드립니다
수정된 부분은 폰트색으로 구별해주시면 더 할 나이 없이 감사하겠습니다!!!!

(defun c:zz(/ cmd a pyng sm)
 (setq cmd(getvar"cmdecho"))
 (setvar"cmdecho"0)
 (setq sc(getvar"ltscale"))
 (setq ts(* sc 5))
 (princ"Select polyline:")
 (command"area""e"pause)
 (setq area(getvar"area"))
 (setq sm(rtos(/ area 1.0e+06) 2 4))
 (setq py(rtos(* area 0.0000003025) 2 4))
 (princ"n      Area : ")
 (princ sm)
 (princ" sq m")
 (princ"   -> ")
 (princ py)
 (princ" pyong")
 (setq pt(getpoint"nn      Pick Text Point :"))(terpri)
 (setq ar1(strcat ""sm" m2″))
 (command"text""s""standard""mc"pt ts"0″ar1)
 (setvar"cmdecho"cmd)
 (prin1))
(princ)
(defun c:xx(/ cmd a pyng sm)
 (setq cmd(getvar"cmdecho"))
 (setvar"cmdecho"0)
 (setq sc(getvar"ltscale"))
 (setq ts(* sc 5))
 (princ"Select polyline:")
 (command"area""e"pause)
 (setq area(getvar"area"))
 (setq sm(rtos(/ area 1.0e+06) 2 4))
 (setq py(rtos(* area 0.0000003025) 2 4))
 (princ"n      Area : ")
 (princ sm)
 (princ" sq m")
 (princ"   -> ")
 (princ py)
 (princ" pyong")
 (setq pt(getpoint"nn      Pick Text Point :"))(terpri)
 (setq ar1(strcat ""py" py"))
 (command"text""s""standard""mc"pt ts"0″ar1)
 (setvar"cmdecho"cmd)
 (prin1))

리습 완전 생초보입니다…
이것저것 짜집기해서 만들기는 했는데요….
일반적인 대칭 명령어 사용시 대칭을 할경우 어떻게 뜰거다라는 모습이
점선으로 나타나잔아요..
그런데 만든 리습을 사용시 그런 모습을 미리보는게 안되네요…
요것 수정 좀 부탁드립니다…..

; 대칭복사

(DEFUN C:CM ()
 (PROMPT "nSELECT ENTITY TO MIRROR COPY : ")
 (SETQ A (SSGET))
 (PROMPT "nFIRST POINT : ")
 (SETQ PT (getpoint))
 (PROMPT "nSECOND POINT : ")
 (SETQ PU (getpoint))
 (COMMAND "COPY" A "" PT PT)
 (COMMAND "MIRROR" "P" "" PT PU "Y")
)

; 대칭이동

(DEFUN C:MM ()
 (PROMPT "nSELECT ENTITY TO MIRROR MOVE : ")
 (SETQ A (SSGET))
 (PROMPT "nFIRST POINT : ")
 (SETQ PT (getpoint))
 (PROMPT "nSECOND POINT : ")
 (SETQ PU (getpoint))
 (COMMAND "MIRROR" "P" "" PT PU "Y")
)

2008에서 cloud 기능으로 쓰고있는데,
이게 설정값을 매번 할때마다 수정하는 불편함이 있어서요.(값이 초기화 됨)
전 값을 설정하면 그대로 계속 물고있게 수정 좀 부탁드립니다.

아래리습은 첫번째 점과 두번째 점을 찍으면 길이가 나오고, 다음 점을 찍으면 연속해서 누적거리가
나옵니다.
제가 원하는 것은 첫번째 점과 두번째 점을 찍으면 길이 나오고, 또다시, 첫번째점과 두번째 점을 찍으면
길이가 누적되어 누적거리가 나오도록 ((계속 반복)) 하는 건데요… 어딜 수정해야 하나요?

(defun c:test () ; 명령어 바꿔사용하세요~
(setq sub 0)
(setq p1 (getpoint "n First Point >"))
(while (setq p2 (getpoint "n Next Point >"))
(setq di (distance p1 p2))
(setq sub (+ di sub))
(setq p1 p2)
(prompt "n SUB = ")
(princ sub)))

예)) 첫번째 점 찍고, 두번째 점 찍고… 길이가 14.66m라면, 다음에 첫번째 점 찍고, 두번째 점 찍으면..
현길이= 15.20m, Total길이 = 14.66 + 15.20 = 29.86m 표시되고… 또 첫번째 점 찍고, 두번째 점 찍으면…
현길이= 11.10m, Total길이 = 29.86 + 11.10 = 40.96m  … (반복)

안녕하세요?
첨부파일을 다음과 같이 수정을 좀 부탁드립니다. (1번, 2번)

-1번-
1. 외경의 값을 입력하게 하고 (외경을 입력하시오)
2. X0.000 Y0.000 —>X0.000 A0.000 방식으로 기록
3. A의 기록값은 의 계산값이 기록되게요

-2번-
1. 'X스케일값을 입력하시오. Y스케일값을 입력하시오.' 로 각각 구분입력
2. 실행이 끝나면 dimstyle을 원래대로 되돌림 (현 dimscale이 리습에 입력한 수치 그대로임)
***1번, 2번 모두 실행이 끝나면 <후행 0억제>를 원래대로 되게도요**