> 커뮤니티 > 프로그램질문
프로그램질문

인테리어 관련 프로그램(캐드, 맥스, 포토샵, 래빗)에 관한 질문을 올리고 답변이나 도움을 받을 수 있는 게시판입니다. 

면적 리습 글귀가 중복안되게 수정부탁드립니다.

1 swpsmbb 1 32 0 0
(defun c:zzz(/ 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"\n\n      Pick Text Point :"))(terpri)
 (setq ar1(strcat ""sm" m2"))
        (setq ar2(strcat ""py" py"))
 (command"text""s""standard""mc"pt ts"0"ar1)
        (command"text""s""standard""mc"pt ts"0"ar2)
 (setvar"cmdecho"cmd)
 (prin1))
(princ)

면적만 나오던 수치를 평까지 나오게 수정은 했는데 한포인트에 면적과 평이 중복되어 표시가 되어
클릭후 이동해야하는 번거로움이 있습니다.
고수님께 정중히 부탁드립니다.

1 Comments
1 Midus.K 07.07 14:08  
 (command"text""s""standard""mc"pt ts"0"ar2)
요거를
 (command "text" "s" "standard" "mc" (polar pt (* 1.5 pi) (* 2 ts)) "0" ar2) 로 변견 하시면
줄간격은  (* 2 ts) 에서 2 를 수정하시면 될듯..
제목