캐드 분류
직접 만든 리습 수정 부탁드립니다.
컨텐츠 정보
- 363 조회
- 4 댓글
- 0 추천
- 0 비추천
-
목록
본문
;; By. HyeonT
(defun C:ror ()
(setvar "cmdecho" 1)
(setq ch (car(entsel "n 전개할 원형을 선택 ")))
(princ)
(setq r (cdr (assoc 40 (entget ch))))
(setq r2 (* 2 r))
(setq pr (* r2 pi))
(setq p1 (getpoint "n 전개도를 그릴 위치를 지정 "))
(princ)
(setq hi (getint "n 높이를 적어주세요 : "))
(command "rectang" p1 "d" pr hi p1)
(setq t1 (rtos r2 2 0))
(command "text" p1 "" t1)
(command "chprop" (entlast) "" "c" 2 "")
(command "scale" (entlast) "" p1 "2″)
(command "move" (entlast) "" p1 "@30,30″)
(princ)
)
직접 만들어본 리습입니다.
그리는건 문제 없는데 마지막 (command "move" (entlast) "" p1 "@30,30″)
이게 적용이 안되서요 수정 부탁드립니다!
추가로 text 중에 %%C 와 t1를 같이 넣을 수 있을까요 ?
관련자료
댓글 4
/ 1 페이지