홈/ 질문/Q 109213
다음
진행 중
Lv.0
등록일: 2017-12-13T09:46:13+09:00 카테고리:

EXPRESS TEXT FIT 사용질문

EXPRESS TEXT FIT 다중선택해서
한번에 사용할수 없을까요??

공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. Lv.0
      (defun c:11 ( / aa)
       
      (setq aa (getdist “n 폭너비를 입력하세요”))
       
      (mapcar ‘(lambda (a / mi mx d) (vla-put-scalefactor a  1)
       
                          (vla-getboundingbox a ‘mi ‘mx)
       
                          (setq mi (vlax-safearray->list mi))
       
                          (setq mx (vlax-safearray->list mx))
       
                          (setq d (distance mi (list (car mx) (cadr mi) 0.0)))
       
                          (vla-put-scalefactor a  (/ aa d)))
       
          (mapcar ‘vlax-ename->vla-object
       
                      (vl-remove-if
       
                           ‘listp
       
                                (mapcar ‘cadr
       
                                     (ssnamex (ssget (list (cons 0 “TEXT”))))
       
                                )
       
                       )
       
          )
       
       )
       
      (princ)
       
      )
       
      회전이 되어 있는 문자는 수치상의 오류가 생깁니다.
       
      • 0

    3. 감사합니다.
      CHTEXT는 여러 텍스트 폭비율이 일괄 변경이 되네요..
      서로 다른 길이의 텍스트를 TEXT FIT처럼 거리값 만큼 입력하여
      자동으로 폭비율이 변경, 같은 길이가 되게 할수있었으면 좋을 것 같습니다.

      • 0
    4. Lv.10

      기회되심, ArchiOffice의 TEXTLINE 함 사용해보세여!
      TEXTLINE.gif

      • 0
    5. ;;;텍스트 폭 비율 맞추기
      (defun c:123( / *error* ss ortho x p1 p2 dis i elst w)
      (if 
      (and
      (setq ss (ssget ‘((0 . “TEXT”))))
      (progn
      (setq ortho (getvar ‘orthomode)
      x (ssname ss 0)
      p1 (cdr (assoc 10 (entget x)))
      )
      (redraw x 3)
      (setvar ‘orthomode 1)
      (defun *error* ( msg )
      (redraw x 4)
      (setvar ‘orthomode ortho)
      (princ)
      )
      (setq p2 (getpoint p1 “nSpecify end point: “))
      (*error* nil)
      p2
      )
      )
      (progn
      (setq dis (distance p1 p2))
      (repeat (setq i (sslength ss))
      (setq
      elst (entget (ssname ss (setq i (1- i))))
      w (/ dis (caadr (textbox (subst (cons 41 1) (assoc 41 elst) elst))))
      )
      (entmod (subst (cons 41 w) (assoc 41 elst) elst))
      )
      )
      )
      (princ)
      )
      • 0

    6. 정말 감사합니다.
      꼭 필요한 리습이었습니다…^^

      그리고 기회가 되면 ArchiOffice도 꼭 배워보도록 하겠습니다.
      감사합니다.

      • 0