홈/ 질문/Q 111576
다음
진행 중
pipipi
Lv.2
등록일: 2019-07-24T11:11:17+09:00 카테고리:

리습에 text obliquing 조절?

리습에 텍스트 사선앵글 설정하는 구문 추가 할수있나요?? 

텍스트 기울기요  Obliquing 이 값이욤  iso dimension 리습 사용중인데 텍스트 앵글은 잘나오는데 
기울기는 반영이안되서  기울여진 텍스트만 따로모아두고 계속 ma 로 발라주고있는데요… 리습으로 한번에 뽑고싶어서요
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.21

      네

      • 0
    3. Lv.2

      수야12 님 댓글 감사드립니다… 혹시 어디에 어떤구문추가해야하는지 알수있을까요 ..

      파일 첨부가 안되서  아래 리습인데요.. 각도에 따른 텍스트앵글 들어가있는부분에 텍스트기울기도 추가하고싶습니다..
      ;=================================================
      (defun dimen(/ 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 cor_sty (getvar “textstyle”))
          (command “layer” “s” “1c” “”)
          (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 (* 20 sk1)          ; 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.4 sk1))
             pt8 (polar pt4 t_ang (* 1.4 sk1))
             pt9 (polar pt1 t_ang (* 1.4 sk1))
             pt10(polar pt2 t_ang (* 1.4 sk1))
             str (getstring “nInput text string : “)
          )
          (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
                  (and (>= (rtd ang) 241) (<= (rtd ang) 300))
              )
                  (setq pt6 (polar pt5 (dtr 210) (* 1.4 sk1)))
                  (setq pt6 (polar pt5 (dtr 90) (* 1.4 sk1)))
          )
          (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” “2c” “”)
          (i_t pt6 ang str)
          (setq q_con (strcase (getstring “nDo you want to continue dimension < Yes / No > : “)))
          (if (= q_con “N”)(setq jhg nil)(setq jhg 7))
          (while jhg
              (command “layer” “s” “1c” “”)
              (setvar “osmode” 33)
              (setq pt1 pt2)
              (setq pt2 (getpoint “nPick iso dimension end point : ” pt1))
              (if (= pt2 nil)
                  (setq jhg nil)
                  (progn
                      (setq 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 (* 20 sk1)          ; 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.4 sk1))
                             pt8 (polar pt4 t_ang (* 1.4 sk1))
                             pt9 (polar pt1 t_ang (* 1.4 sk1))
                             pt10(polar pt2 t_ang (* 1.4 sk1))
                             str (getstring “nInput text string : “)
                      )
                      (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
                            (and (>= (rtd ang) 241) (<= (rtd ang) 300))
                            )
                            (setq pt6 (polar pt5 (dtr 210) (* 1.4 sk1)))
                            (setq pt6 (polar pt5 (dtr 90) (* 1.4 sk1)))
                      )
                      (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” “2c” “”)
                      (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” “t1”))
                      (progn
                          (command “filedia” “0”)
                          (command “style” “t1” “romans” “” “0.7” “30” “” “” “”)
                          (command “filedia” “1”)
                      )
                  )
                  (if (not (tblsearch “style” “t12”))
                      (progn
                          (command “filedia” “0”)
                          (command “style” “t12” “romans” “” “0.7” “-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” “t1”)
                      (setvar “textstyle” “t12”)
                   )
                   (setvar “textstyle” “standard”)
              )
              (command “text” “c” g_pt (* txt-h s) “30” g_str)
          )
          ((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” “t12”)
                      (setvar “textstyle” “t1”)
                  )
                  (setvar “textstyle” “standard”)
              )
               (command “text” “c” g_pt (* txt-h s) “90” g_str)
           )
           ((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” “t1”)
                      (setvar “textstyle” “t12”)
                  )
                  (setvar “textstyle” “standard”)
              )
              (command “text” “c” g_pt (* txt-h s) “330” g_str)
           )
           ((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” “t1”)
                       (setvar “textstyle” “t12”)
                   )
                  (setvar “textstyle” “standard”)
              )
              (command “text” “c” g_pt (* txt-h s) “30” g_str)
           )
           ((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” “t12”)
                      (setvar “textstyle” “t1”)
                  )
                  (setvar “textstyle” “standard”)
              )
              (command “text” “c” g_pt (* txt-h s) “90” g_str)
           )
           ((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” “t12”)
                      (setvar “textstyle” “t1”)
                  )
                  (setvar “textstyle” “standard”)
              )
              (command “text” “c” g_pt (* txt-h s) “330” g_str)
           )
       )
       (princ)
      )
      (defun daa (g_pt g_ang / pt3 pt4)
       (setq as (* 0.4 s);;arrow hight
             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” “2c” “”)
          (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 (* 20 sk1)          ; 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.4 sk1))
             pt8 (polar pt4 t_ang (* 1.4 sk1))
             pt9 (polar pt1 t_ang (* 1.4 sk1))
             pt10(polar pt2 t_ang (* 1.4 sk1))
          )
          (if (or (and (>= (rtd ang) 61) (<= (rtd ang) 120))
                  (and (>= (rtd ang) 241) (<= (rtd ang) 300))
              )
                  (setq pt6 (polar pt5 (dtr 210) (* 1.4 sk1)))
                  (setq pt6 (polar pt5 (dtr 90) (* 1.4 sk1)))
          )
          (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” “2c” “”)
          (i_t pt6 ang n-len)
          (if (/= dwgtype “D”)
             (command “layer” “t” “ghkiso” “”)
          )
          (setvar “textstyle” cor_sty)
          (setiso2)
          (prin1)
      )
      • 0
    4. Lv.21

      파일첨부 방법  https://www.gocad.co.kr/3511669#comment_3511741

      파일을 첨부해야 하는 이유 :  너무 긴 게시글은 드래그 앤 드롭으로 붙혀넣기시 이상한 문자가 추가되기도 합니다 그래서 정상 리습 파일이 비정상 파일로 변하기도 합니다.
      어떤 게시글은 글자간 간격이 넓어져서 해석하기 힘들어짐  (하나하나 자간을 맟추다 보면 수정하기 싫어집니다 ^^;;)
      • 0
    5. Lv.2

      해당리습이구여… 리습쓰면 오른쪽과 같이 나오는데요   뽑을치수선 처음포인트 끝포인트 찍고 방향뽑고 치수 숫자 입력하면 나오는겁니당 ㅠ  왼쪽과같이 한번에 뽑고싶어욧… 첨부방법 알려주셔서 정말 감사합니다!!

      • 0
    6. Lv.21

      외부함수를 참조하는 리습이라 테스트는 못해봤습니다  각 상황별 문자 기울기 각도는 조정하셔야 합니다   (참고로 각도는 60분법이 아닌 호도법입니다..)

      • 0
    7. Lv.2

      감사합니다 ㅠㅠ 한번 해보겠습니다!!

      • 0
    8. Lv.2

      수야12 님… 죄송한데  추가해주신 

       (setq enl(entlast))
              (if (eq (vla-get-Objectname (setq obj (vlax-ename->vla-object enl))) “AcDbText”)
                   (vla-put-obliqueangle obj g_ang) ;; 문자기울기 각도는 알아서 조절하세요
               )   
      여기에서 각도를 어디에 넣어야하나요 ㅠㅠ 
      • 0