프로그램
캐드 분류

리습 결과값의 글씨가 겹쳐서 나오는데 어디를 수정해야 할까요

컨텐츠 정보

본문

—— 리습 정보 ——–

 

;;;;자료출력
(if (= sd_list_s000 nil) (setq sd_list_s000 100))
(setq sd_list_s01 (getint (strcat “n문자 높이를 지정하세요<“(rtos sd_list_s000 2 0)”>:”)))
(if (= sd_list_s01 nil)
(progn
(setq sd_list_s01 sd_list_s000)
)
(progn
(setq sd_list_s000 sd_list_s01)
)
)
(setq sd_list_s02 (getpoint “n문자 위치를 지정하세요:”))
(setq sd_count02 0)
(setq sd_list_06 (length sd_list))
(repeat sd_list_06
(setq sd_tx01 (nth sd_count02 sd_list))
(setq sd_tx02 (car sd_tx01))
(setq sd_tx03 (cdr sd_tx01))
(setq sd_count03 0)
(setq sd_tx04 0.0)
(setq sd_tx_03 “”)
(repeat (length sd_tx03)
(setq sd_tx_01 (car (nth sd_count03 sd_tx03)))
(setq sd_tx_02 (car (cdr (nth sd_count03 sd_tx03))))
(if (> sd_tx_02 1)
(progn
(setq sd_tx_03 (strcat sd_tx_03 “+(” (rtos sd_tx_01 2 2) “)*” (itoa sd_tx_02)))
)
(progn
(setq sd_tx_03 (strcat sd_tx_03 “+” (rtos sd_tx_01 2 2)))
)
)
(setq sd_tx04 (+ sd_tx04 (* sd_tx_01 sd_tx_02)))

(setq sd_count03 (1+ sd_count03))
)
(command “text” sd_list_s02 sd_list_s01 0 sd_tx_03 )
(setq sd_list_s02 (polar sd_list_s02 (/ pi 2) (* sd_list_s01 1.2)))
(setq sd_tx05 (strcat sd_tx02 ” : 합계 = ” (rtos sd_tx04 2 2) ))
(command “text” sd_list_s02 sd_list_s01 0 sd_tx05)
(setq sd_list_s02 (polar sd_list_s02 (/ pi 2) (* sd_list_s01 1.2)))
(setq sd_count02 (1+ sd_count02))
)
;;;;자료출력
( setvar “Cmdecho” 1 )
)
;;;;자료출력
;;; (setq dim_list_s01 (getint “문자 높이를 지정하세요:”))
;;; (setq dim_list_s02 (getpoint “문자 위치를 지정하세요:”))
;;; (setq layer_list_c3 0)
;;; (repeat layer_list_c
;;; (setq to_taxt1 (car (nth layer_list_c3 layer_list_to)));레이어명
;;; (setq to_taxt2 (rtos (cadr (nth layer_list_c3 layer_list_to)) 2 2 ));합계
;;; (setq to_taxt3 (caddr (nth layer_list_c3 layer_list_to)));집계
;;; (setq to_taxt4 (strcat to_taxt1 ” : 합계 = ” to_taxt2));레이어명+합계
;;; (command “text” dim_list_s02 dim_list_s01 0 to_taxt3 )
;;; (setq dim_list_s02 (polar dim_list_s02 (/ pi 2) (* dim_list_s01 1.2)))
;;; (command “text” dim_list_s02 dim_list_s01 0 to_taxt4 )
;;; (setq dim_list_s02 (polar dim_list_s02 (/ pi 2) (* dim_list_s01 1.2)))
;;; (setq layer_list_c3 (1+ layer_list_c3))
;;; )
;;;;자료출력
;;; ( setvar “Cmdecho” 1 )
;;;)

;//

 

——— 여기서 리습결과값이 겹쳐서 나오는데 순서대로 1줄씩 나오게 하고싶어요 어떻게 하면 될까요?

캐드는 2019 사용중이고  결과값의 위치가 자기 마음대로 겹쳐서도 나오고 어떤경우에는 완전 위쪽으로 나올때도 있고 위치가 마음대로 바뀌어서 나옵니다 .

도와주세요 ㅠ

 


 

좌표값이 반복된다는 말씀을 들었는데 여기서 좌표값을 어떻게 수정해야 되나요??

여기저기 가져다 쓴거라 아직 많이 부족합니다 ㅠ

autocad
리습

관련자료

댓글 2

탱구와울라프님의 댓글

가져와서 쓴거라 저기서 좌표값을 어디를 수정해야 할지 모르겠어요 ..ㅠ

여분필드1 여분필드2 여분필드3
전체 71 / 1 페이지
번호
제목
이름
알림 0