홈/ 질문/Q 113723
다음
진행 중
Lv.0
등록일: 2022-04-10T13:37:18+09:00 카테고리:

text 위치 수정한 리습

사용하던 리습이였는데 컴퓨터 새로 구매하고 캐드 새로 설치하면서 그만 사라져버려서 혹시 있으신분들 있을까 글 올립니다.

dreamplus 에는 있던데 그제품은 따로 구매를 해야 하는 거라서 지금 고민중에 있습니다.
dreamplus 에서 명령어 cr로 해서 있더라구요….
text 관련 리습중에 어떤 박스나 공간에 정중앙에 글자를 놓을수 있는 리습니다.
혹시 있으신분들 부탁드려도 될까요?
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.3

      이런 식인가요?

      구글 검색해서 찾은거 약간 변형했습니다.
       
      (vl-load-com)
      (defun c:crr (/ ss txt dxf txtn midp txtpos tOBj )
      (setq ss nil)
      (princ “n문자 정렬할 범위를 선택하세요.”)
      (setq ss (ssget ‘((0 . “~TEXT”))))
      (if (= ss nil) (exit))
      (Boundarycheck ss) 
      (setq midp (polar llpsave (angle llpsave urpsave) (/ (distance llpsave urpsave) 2) ))
      (setq txtn “”)
      (while (/= txtn “TEXT”)
         (setq txt (entsel “n이동할 문자를 선택하세요.”))
         (if (/= txt nil )
        (progn
                 (setq dxf (entget (car txt ))) 
                 (setq txtn (cdr (assoc 0 dxf) ) )
                 (if (= txtn “MTEXT”) (alert “단일행 문자만 선택할 수 있습니다.”))
            )
          )
      );while
      (setq ent (car txt ))
      (vla-put-Alignment  (setq tOBj (vlax-ename->vla-object ent)) acAlignmentMiddleCenter)
        (vla-put-TextAlignmentPoint tObj (vlax-3D-point midp) )
      )
      (defun Boundarycheck (objs / entname vlentname minpoint maxpoint lowleftpoint lowleftpointx 
                            lowleftpointy lowleftpointxlist lowleftpointylist uprightpoint uprightpointx 
         uprightpointy uprightpointxlist uprightpointylist )
      (setq n 0)
      (repeat (sslength objs)
      (setq entname (ssname objs n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minpoint ‘maxpoint)
      (setq lowleftpoint (vlax-safearray->list minpoint))
      (setq lowleftpointx (car lowleftpoint))
      (setq lowleftpointxlist (cons lowleftpointx lowleftpointxlist))
      (setq lowleftpointy (cadr lowleftpoint))
      (setq lowleftpointylist (cons lowleftpointy lowleftpointylist))
      (setq uprightpoint (vlax-safearray->list maxpoint))
      (setq uprightpointx (car uprightpoint))
      (setq uprightpointxlist (cons uprightpointx uprightpointxlist))
      (setq uprightpointy (cadr uprightpoint))
      (setq uprightpointylist (cons uprightpointy uprightpointylist))
      (setq n (1+ n))
      )
      (setq lowleftpointxlist (vl-sort lowleftpointxlist ‘<))
      (setq lowleftpointylist (vl-sort lowleftpointylist ‘<))
      (setq uprightpointxlist (vl-sort uprightpointxlist ‘>))
      (setq uprightpointylist (vl-sort uprightpointylist ‘>))
      (setq llpsave (list (nth 0 lowleftpointxlist) (nth 0 lowleftpointylist)))
      (setq urpsave (list (nth 0 uprightpointxlist) (nth 0 uprightpointylist)))
      )
      • 0

    3. 와우 너무 감사합니다.

      잘 사용하겠습니다.
      • 0