(setq ne (+ ne 1))
)
)
(if (= entname “ARC”)
(progn
(SETQ p1 (ASSOC 40 ENT))
(SETQ radi (cdr p1))
(SETQ p1 (ASSOC 50 ENT))
(SETQ p2 (ASSOC 51 ENT))
(SETQ p1R (CDR p1))
(SETQ p2R (CDR p2))
(SETQ TH (ABS (- P1R P2R)))
(setq l2 (* RADI TH))
(setq l (+ l l2))
(setq ne (+ ne 1))
)
)
(if (or (= entname “LWPOLYLINE”)(= entname “POLYLINE”))
(progn
;;(command “area” “e” entn)
;;(command “list” entn “”)
;;(graphscr)
(setq EndParam (vlax-curve-getendParam entn))
(setq l2 (vlax-curve-getdistAtParam entn EndParam))
;;(setq l2 (getvar “perimeter”))
(setq l (+ l l2))
(setq ne (+ ne 1))
)
)
(SETQ N (+ 1 N))
)
(princ “n >>>>> “)
(if (> egl ne)
(progn
(princ ne)(princ ” of “)(princ egl)
(princ ” objects are measured // “)
)
)
(princ ” Total length is “)
(setq l_ength (rtos (/ l 1000) 2 2))
(setq l_len (strcat l_ength “(” (rtos l 2 2) “)”))
(prin1 l_len)
(setq pt (getpoint “nText Point: “))
(setq h (getvar “textsize”))
(prompt “nText Height: “)
(princ H)
(princ ” : “)
(setq z (getdist))
(if z (setq h z))
(command “text” (setq z pt) (setq z h) (setq z 0.0) (setq z l_ength))
(setvar “cmdecho” svCmdecho)
(princ)
)
최정만Lv.0
길이합 수치 후 m 미터 단위 나왔음 합니다. 코드 보시고 어떤거에 기입하면 될까요 도와주세요
공유
(setq l_len (strcat l_ength “(” (rtos l 2 2) “)”)) 요기변경
(setq l_len (strcat l_ength “(” (rtos l 2 2) “m)”))
수정 메모장으로 연결해서 했는데 적용 안됩니다.ㅠㅠㅠ 커멘트 입력창에는 m 이뜹니다!!! 그런데 텍스트 입력하면 길이값뒤에 m 표기가 없어요…그걸 원합니다 ㅠ
리습 구문 이 많이빠지것 같은데
(setq l_ength (rtos (/ l 1000) 2 2)) ;;;이부분 찾아서
(setq l_ength (strcat (rtos (/ l 1000) 2 2) “m”));;;이렇게 변경
메일주소 보내드릴께요…제가쓰고있는 리습인데….