;모따기 리습 (2007.5.2 주말농부 수정정리)
(defun c:CD(/ os diz cl #dt s1 cb1 cf1 dis1 len1 len2 p1 p2 #df j jj j1 jj1 dxt)
(setvar “osmode” 165)
(setq os (getvar “osmode”))
(setq diz (getvar “dimzin”))
(setvar “clayer” “0”) (setvar “cecolor” “256”)
(setvar “dimtvp” 0.8)
(setq cl (getvar “cecolor”))
(setq #dt (getvar “dimtvp”))
(setvar “dimtad” 0)
(setq dxt (getvar “DIMTXSTY”))
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
(setvar “osmode” os)
(setvar “cecolor” cl)
(setvar “dimtvp” #dt)
(setvar “dimtad” 0)
(setvar “DIMTXSTY” dxt)
(princ))
;-<*error* end
(setvar “orthomode”0) (setvar “dimzin” 8)
(setvar “dimtad” 0)
(setvar “DIMtvp” 0)
(setvar “cecolor” “7”)
(if (not(tblsearch “style” “cts”))
(command “style” “cts” “simplex,cadsg” “” “” “” “” “” )
)
(setvar “DIMTXSTY” “cts”)
(princ “nDim: Chamfer”)(terpri)
(setvar “osmode” 512)
(setq p1 (getpoint “nSelect chamfer line:”))
(setvar “osmode” 0)
(setq ss (ssget p1))
(setq s1 (ssname ss 0)) ;; s1 이 원래 는 이름과 좌표
(if s1 (progn
(redraw s1 3)
(setq cb1 (cdr (assoc 10 (entget s1)))
cf1 (cdr (assoc 11 (entget s1)))
dis1 (distance cb1 cf1)
len1 (* dis1 (cos (/ pi 4)))
)
(setq p2 (getpoint p1 “nEnter leader length for text: “) )
(redraw s1 4)
(if p2 (progn
(setq #df (getvar “dimlfac”))
;(setq len1 (* #df len1))
;(setq len2 (getreal (strcat “nDimension text <C” (rtos len1 2 2) “>:”)))
;(if (= len2 nil) (setq len2 len1))
(setq len2 (* #df len1))
(setvar “osmode” 0) (setvar “dimzin” 8)
(command “leader” “nea” p1 p2 “” (strcat “C” (rtos len2 2 2)) “”)
)) ))
(setvar “osmode” os)
(setvar “dimzin” diz)
(setvar “cecolor” cl)
(setvar “dimtvp” #dt)
(setvar “dimtad” 0)
(setvar “DIMTXSTY” dxt)
(princ))
———————–
질문이 잘못되었는데요 정상적으로 챔퍼 기입이 되면 그대로고요
스플라인 같은거나 챔퍼치수 기입이 안되는 선을 클릭하면 소숫점 이하가 절단되게 치수가 바뀌여
그니깐 치수기입에 실패하면 치수 옵션이 변경되는거죠
dimtad 를 0으로 하면 되는줄 알았는데 안되더라고요 ㅜㅜ
cad 2010 입니다.