캐드 분류
여러개의 객체및 텍스트 그자리 동시에 MIRROR 가능할까요??
컨텐츠 정보
- 20 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
또한번 문의드립니다.
첨부와 같이 여러개의 문자 또는 형상이 있을때 한개한개 말고 한번에 그림과 같은 결과를 얻을수 있게끔의 리습을 찾고 있습니다.
정확한 위치를 필요로 하는형상은 아니고 시각 식별용으로 사용하는 객체 및 텍스트로 생각하면 가능할듯 합니다.
가능할까요 ?? 항상 좋은 정보만 얻어가는데 또한번 염치없이 부탁한번 드립니다.
autocad lisp관련자료
댓글 2
수야12님의 댓글
새해 건강과 행운이 가득 하시길~!!
(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)
