캐드 분류
아이소 치수관련 리습 질문입니다.
컨텐츠 정보
- 150 조회
- 0 추천
- 0 비추천
- 목록
본문
치수를 뽑으면 글자의 width폭이 0.9로 나오는데 0.8로 나올 수 있게 하려면
리습에서 수정해야 하나요??
글자폭 지정하는 것은 잘 안보여서 0.9인 숫자가 보이길래 0.8로 수정을 했는데
치수를 뽑아보아도 계속 글자의 폭이 0.9로 나오네요~~~~
리습 잘 아시는분 도와주세요~~~
;=================================================
;**Error**Cancle**
(defun gerr (g)
(if (/= g "Function cancelled")
(princ (strcat "nError:" g))
)
(setvar "cmdecho" 1)
(command"pickbox" "4″ "")
(SETVAR "CLAYER" "PIPE")
)
;**Error**Cancle**
(defun gerr (g)
(if (/= g "Function cancelled")
(princ (strcat "nError:" g))
)
(setvar "cmdecho" 1)
(command"pickbox" "4″ "")
(SETVAR "CLAYER" "PIPE")
)
(defun ddimen(/ pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 ang t_ang g_ang l_dist t_dist str)
;(setiso1)
(setvar "osmode" 33)
(setq ds (getvar "dimscale"))
(setq cor_sty (getvar "textstyle"))
(command "layer" "s" "dim" "")
(if (/= dwgtype "D")
(command "layer" "f" "dim" "")
)
(setq pt1 (getpoint "nPick iso 치수보조선 시작 point : ")
;(if *error* (setq *error* gerr))
pt2 (getpoint "nPick iso 치수보조선 끝난 point : " pt1)
pt3 (getpoint "nPick iso 치수선 position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 ds) ; dimension line distance
;(setiso1)
(setvar "osmode" 33)
(setq ds (getvar "dimscale"))
(setq cor_sty (getvar "textstyle"))
(command "layer" "s" "dim" "")
(if (/= dwgtype "D")
(command "layer" "f" "dim" "")
)
(setq pt1 (getpoint "nPick iso 치수보조선 시작 point : ")
;(if *error* (setq *error* gerr))
pt2 (getpoint "nPick iso 치수보조선 끝난 point : " pt1)
pt3 (getpoint "nPick iso 치수선 position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 ds) ; dimension line distance
pt3 (polar pt1 t_ang t_dist)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 ds))
pt8 (polar pt4 t_ang (* 1 ds))
pt9 (polar pt1 t_ang (* 1 ds))
pt10(polar pt2 t_ang (* 1 ds))
str (getstring "nInput 숫자입력 : ")
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang str)
(setq q_con (strcase (getstring "n연속 치수기입? < Yes / No > : ")))
(if (= q_con "N")(setq jhg nil)(setq jhg 7))
(while jhg
(command "layer" "s" "dim" "")
(setvar "osmode" 33)
(setq pt1 pt2)
(setq pt2 (getpoint "nPick iso 치수보조선 끝난 point : " pt1))
(if (= pt2 nil)
(setq jhg nil)
(progn
(setq pt3 (getpoint "nPick iso 치수선 position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 DS) ; dimension line distance
pt3 (polar pt1 t_ang t_dist)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 DS))
pt8 (polar pt4 t_ang (* 1 DS))
pt9 (polar pt1 t_ang (* 1 DS))
pt10(polar pt2 t_ang (* 1 DS))
str (getstring "nInput 숫자입력 : ")
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 DS)))
(setq pt6 (polar pt5 (dtr 90) (* 1 DS)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang str)
)
)
)
(if (/= dwgtype "D")
(command "layer" "t" "ghkiso" "")
)
(setvar "textstyle" cor_sty)
(setiso2)
(prin1)
)
;=================================================
(defun i_t(g_pt g_ang g_str)
(if (= text-type 2)
(progn
(if (not (tblsearch "style" "Text1″))
(progn
(SETVAR "CECOLOR" "bylayer")
(command "filedia" "0″)
(command "style" "Text1″ "romans" "" "0.8″ "30″ "" "" "")
(command "filedia" "1″)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 ds))
pt8 (polar pt4 t_ang (* 1 ds))
pt9 (polar pt1 t_ang (* 1 ds))
pt10(polar pt2 t_ang (* 1 ds))
str (getstring "nInput 숫자입력 : ")
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang str)
(setq q_con (strcase (getstring "n연속 치수기입? < Yes / No > : ")))
(if (= q_con "N")(setq jhg nil)(setq jhg 7))
(while jhg
(command "layer" "s" "dim" "")
(setvar "osmode" 33)
(setq pt1 pt2)
(setq pt2 (getpoint "nPick iso 치수보조선 끝난 point : " pt1))
(if (= pt2 nil)
(setq jhg nil)
(progn
(setq pt3 (getpoint "nPick iso 치수선 position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 DS) ; dimension line distance
pt3 (polar pt1 t_ang t_dist)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 DS))
pt8 (polar pt4 t_ang (* 1 DS))
pt9 (polar pt1 t_ang (* 1 DS))
pt10(polar pt2 t_ang (* 1 DS))
str (getstring "nInput 숫자입력 : ")
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 DS)))
(setq pt6 (polar pt5 (dtr 90) (* 1 DS)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang str)
)
)
)
(if (/= dwgtype "D")
(command "layer" "t" "ghkiso" "")
)
(setvar "textstyle" cor_sty)
(setiso2)
(prin1)
)
;=================================================
(defun i_t(g_pt g_ang g_str)
(if (= text-type 2)
(progn
(if (not (tblsearch "style" "Text1″))
(progn
(SETVAR "CECOLOR" "bylayer")
(command "filedia" "0″)
(command "style" "Text1″ "romans" "" "0.8″ "30″ "" "" "")
(command "filedia" "1″)
)
)
(if (not (tblsearch "style" "Text2″))
(progn
(SETVAR "CECOLOR" "bylayer")
(command "filedia" "0″)
(command "style" "Text2″ "romans" "" "0.8″ "-30″ "" "" "")
(command "filedia" "1″)
)
)
)
)
(cond
((and (>= (rtd g_ang) 15) (<= (rtd g_ang) 60))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
)
(if (not (tblsearch "style" "Text2″))
(progn
(SETVAR "CECOLOR" "bylayer")
(command "filedia" "0″)
(command "style" "Text2″ "romans" "" "0.8″ "-30″ "" "" "")
(command "filedia" "1″)
)
)
)
)
(cond
((and (>= (rtd g_ang) 15) (<= (rtd g_ang) 60))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "30″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 61) (<= (rtd g_ang) 120))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "90″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 121) (<= (rtd g_ang) 180))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "330″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 181) (<= (rtd g_ang) 240))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "30″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 241) (<= (rtd g_ang) 300))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "90″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 301) (<= (rtd g_ang) 360))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "330″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
)
(SETVAR "CLAYER" "PIPE")
(SETVAR "CECOLOR" "BYLAYER")
(princ)
)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "30″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 61) (<= (rtd g_ang) 120))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "90″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 121) (<= (rtd g_ang) 180))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "330″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 181) (<= (rtd g_ang) 240))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text1″)
(setvar "textstyle" "Text2″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "30″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 241) (<= (rtd g_ang) 300))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 15) (<= (rtd t_ang) 60)) (and (>= (rtd t_ang) 181) (<= (rtd t_ang) 240)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "90″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
((and (>= (rtd g_ang) 301) (<= (rtd g_ang) 360))
(if (= text-type 2)
(if (or (and (>= (rtd t_ang) 61) (<= (rtd t_ang) 120)) (and (>= (rtd t_ang) 241) (<= (rtd t_ang) 300)))
(setvar "textstyle" "Text2″)
(setvar "textstyle" "Text1″)
)
(setvar "textstyle" "dim")
)
;(SETVAR "CECOLOR" "7″)
(command "text" "c" g_pt (*(* txt-dh ds) 1.25) "330″ g_str)
(SETVAR "CECOLOR" "bylayer")
)
)
(SETVAR "CLAYER" "PIPE")
(SETVAR "CECOLOR" "BYLAYER")
(princ)
)
(defun daa (g_pt g_ang / pt3 pt4)
(setq as (* 0.4 ds);;arrow hight
pt21 (polar g_pt g_ang (* 2.5 ds));;arrow length
;pt21 (polar g_pt g_ang (* 2.5 s));;arrow length(화샇표길이)
g_ang (angtos g_ang)
)
(setq pt3 (polar pt21 t_ang as)
pt4 (polar pt21 (+ t_ang (dtr 180)) as)
)
(command "solid" g_pt pt4 pt3 "" "")
(princ)
)
(setq as (* 0.4 ds);;arrow hight
pt21 (polar g_pt g_ang (* 2.5 ds));;arrow length
;pt21 (polar g_pt g_ang (* 2.5 s));;arrow length(화샇표길이)
g_ang (angtos g_ang)
)
(setq pt3 (polar pt21 t_ang as)
pt4 (polar pt21 (+ t_ang (dtr 180)) as)
)
(command "solid" g_pt pt4 pt3 "" "")
(princ)
)
(defun dimen1(/ n-len i sel l en el text pt1 pt2 pt3 pt4 pt5 pt6
pt7 pt8 pt9 pt10 ang t_ang g_ang l_dist t_dist str)
(setiso1)
(setvar "osmode" 33)
(setq n-len 0)
(setq i 0)
(setq sel(ssget))
(setq l(sslength sel))
(repeat l
(setq en(ssname sel i))
(setq el (entget en))
(if (= "TEXT" (cdr (assoc 0 el)))
(progn
(setq text (cdr (assoc 1 el)))
(setq n-len(+ n-len (atof text)))
(setq i(+ 1 i))
)
)
)
(setq n-len(rtos n-len 2 0))
(setq cor_sty (getvar "textstyle"))
(command "layer" "s" "dim" "")
(if (/= dwgtype "D")
(command "layer" "f" "ghkiso" "")
)
(setq pt1 (getpoint "nPick iso dimension start point : ")
pt2 (getpoint "nPick iso dimension end point : " pt1)
pt3 (getpoint "nPick iso dimension line position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 ds) ; dimension line distance
pt7 pt8 pt9 pt10 ang t_ang g_ang l_dist t_dist str)
(setiso1)
(setvar "osmode" 33)
(setq n-len 0)
(setq i 0)
(setq sel(ssget))
(setq l(sslength sel))
(repeat l
(setq en(ssname sel i))
(setq el (entget en))
(if (= "TEXT" (cdr (assoc 0 el)))
(progn
(setq text (cdr (assoc 1 el)))
(setq n-len(+ n-len (atof text)))
(setq i(+ 1 i))
)
)
)
(setq n-len(rtos n-len 2 0))
(setq cor_sty (getvar "textstyle"))
(command "layer" "s" "dim" "")
(if (/= dwgtype "D")
(command "layer" "f" "ghkiso" "")
)
(setq pt1 (getpoint "nPick iso dimension start point : ")
pt2 (getpoint "nPick iso dimension end point : " pt1)
pt3 (getpoint "nPick iso dimension line position : " pt2)
ang (angle pt1 pt2) ; dimension line angle
t_ang (angle pt2 pt3) ; text style angle
g_ang (angtos ang) ; function angle
l_dist (distance pt1 pt2) ; dimension line distance
t_dist (* 15 ds) ; dimension line distance
pt3 (polar pt1 t_ang t_dist)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 DS))
pt8 (polar pt4 t_ang (* 1 DS))
pt9 (polar pt1 t_ang (* 1 DS))
pt10(polar pt2 t_ang (* 1 DS))
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang n-len)
(if (/= dwgtype "D")
(command "layer" "t" "dim" "")
)
(setvar "textstyle" cor_sty)
(setiso2)
(prin1)
)
pt4 (polar pt2 t_ang t_dist)
pt5 (polar pt3 ang (/ (distance pt1 pt2) 2))
pt7 (polar pt3 t_ang (* 1 DS))
pt8 (polar pt4 t_ang (* 1 DS))
pt9 (polar pt1 t_ang (* 1 DS))
pt10(polar pt2 t_ang (* 1 DS))
)
(if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
(and (>= (rtd ang) 241) (<= (rtd ang) 300))
)
(setq pt6 (polar pt5 (dtr 210) (* 1 ds)))
(setq pt6 (polar pt5 (dtr 90) (* 1 ds)))
)
(setvar "osmode" 0)
(command "line" pt9 pt7 "")
(command "line" pt3 pt4 "")
(command "line" pt10 pt8 "")
(daa pt3 ang)
(daa pt4 (+ ang (dtr 180)))
(command "layer" "s" "dim" "")
(i_t pt6 ang n-len)
(if (/= dwgtype "D")
(command "layer" "t" "dim" "")
)
(setvar "textstyle" cor_sty)
(setiso2)
(prin1)
)
관련자료
댓글 0
/ 1 페이지
등록된 댓글이 없습니다.
