캐드 분류
R값 리습 수정방법 부탁드립니다.
컨텐츠 정보
- 934 조회
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요.
R값 넣어주는 리습 입니다.
값이 문자 옆으로 지시선이 생성 됩니다.
밑줄로 변경하고 싶은데 수정 방법 공유해 주시면 감사하겠습니다.
(defun C:RA ()
(setq os (getvar "osmode"))
(setq ot (getvar "orthomode"))
(setq dzin (getvar "dimzin"));8
(setq dtvp (getvar "dimtvp"))
(setvar "osmode"0)
(setvar "orthomode"0)
(setvar "dimzin" 8)
(setvar "dimtvp" 0.8)
(setvar "dimtad" 1)
(setq ORMOD (getvar "ORTHOMODE"))
(setq osmod (getvar "osmode"))
(setq dims(getvar "dimlfac"))
(setvar "ORTHOMODE" 0)
(setq e (entsel "nSelect arc or circle: "))
(setq po (osnap (cadr e) "near"))
(setq e (car e))
(setq rad (cdr (assoc 40 (entget e))))
(setq rad (* rad dims))
(setq radtt(strcat "R"(rtos rad)))
(setvar "osmode" 512)
(command "qleader" po pause "" "" radtt "")
(setvar "osmode" os)
(setvar "orthomode" ot)
(setvar "dimzin" dzin)
(setvar "dimtvp" dtvp)
(princ))
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
