홈/ 질문/Q 179728
다음
진행 중
무니미니
Lv.0
등록일: 2023-01-02T11:34:53+09:00 카테고리:

여러개의 객체및 텍스트 그자리 동시에 MIRROR 가능할까요??

여러개의 객체및 텍스트 그자리 동시에 MIRROR 가능할까요??

또한번 문의드립니다.
첨부와 같이 여러개의 문자 또는 형상이 있을때 한개한개 말고 한번에 그림과 같은 결과를 얻을수 있게끔의 리습을 찾고 있습니다.

정확한 위치를 필요로 하는형상은 아니고 시각 식별용으로 사용하는 객체 및 텍스트로 생각하면 가능할듯 합니다.

가능할까요 ?? 항상 좋은 정보만 얻어가는데 또한번 염치없이 부탁한번 드립니다.

autocad lisp
공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    2 답변

    1. aalan
    2. Lv.21
      (수정됨)

      새해 건강과 행운이 가득 하시길~!!


      (defun c:ff(/ *error* ks_pLst ss o L mrt)
      (defun *error* (msg)
      (princ "nerror:")(princ msg)
      (if mrt (setvar 'mirrtext 0))
      (princ)
      )
      (defun ks_pLst(o / p1 p2 ca)
      (vla-GetBoundingBox o 'mn 'mx)
      (setq p1 (vlax-safearray->list mn) p2 (vlax-safearray->list mx))
      (setq ca(*(+ (car p1)(car p2))0.5))
      (list(list ca(cadr p2) 0.)(list ca (cadr p1) 0.))
      )
      (setq mrt nil)
      (if (= 0(getvar 'mirrtext))
      (progn (setq mrt t)(setvar 'mirrtext 1))
      )
      (setq ss(ssget))
      (foreach e(vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (setq o(vlax-ename->vla-object e))
      (setq L(ks_pLst o))
      (vlax-invoke o 'mirror (car L)(cadr L))
      (vla-delete o)
      )
      (if mrt (setvar 'mirrtext 0))
      (princ)
      )
      (vl-load-com)

      • 0