홈/ 질문/Q 112702
다음
진행 중
Lv.0
등록일: 2020-12-13T01:52:12+09:00 카테고리:

다중 옵셋 명령 리습입니다. 동일레이어로 생성되는것을 신규레이어로 추가 입력가능한가요

여기에 동일레이어로 생성되는것은 다른 레이어로(레이어명 입력) 생성되게 하거나
레이어가 힘들면 
offset 되기전것은 지원지고 새로 생성된 그림들만 남아도 됩니다.
사용중인 리습은 실행하고 나서 기존 그림들은 삭제해줘야 하기 때문입니다.
해결방법이 있으면 조언 부탁드립니다.
또 한가지는 옵셋의 방향이 내측으로만 됩니다.
바깥쪽으로는 안됩니다.
(defun c:mOff (/ ss tmp safe lst)
(vl-load-com)
(or *moff (setq *moff 10.0))
(setq doc (vla-get-ActiveDocument
(vlax-get-acad-object)))
(if (setq ss (ssget ‘((0 . “ARC,CIRCLE,ELLIPSE,*LINE”))))
(progn
(initget 6)
(and (setq tmp (getdist (strcat “nSpecify Offset <” (vl-princ-to-string *moff) “> : “)))
(setq *moff tmp))
(vla-StartUndoMark doc)
(foreach var (mapcar (function (lambda (x) (vla-offset x *moff)))
(mapcar ‘vlax-ename->vla-object
(vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
(cond ((<= 0 (vlax-safearray-get-u-bound
(setq safe (vlax-variant-value var)) 1))
(setq lst (cons (vlax-safearray->list safe) lst)))))
(foreach Obj (setq lst (apply ‘append lst))
(if (vl-some
(function
(lambda (x)
(vlax-invoke obj ‘IntersectWith x acExtendNone)))
(vl-remove Obj lst))
(vla-put-color Obj acred)))
(vla-EndUndoMark doc)))
(princ))
공유

    관련 있는 질문들

    6 답변

    1. aalan

    2. 네 딱 맞습니다.

      그러면 한가지 추가해서요 옵셋전것은 삭제되고 변경 된것만 남게도 되나요?

      • 0
    3. Lv.19

      이 기능이 맞나요?

      • 0
    4. Lv.19

      제가 리습은 잘 몰라서 이해를 못했었네요.

      오늘 내일 중으로 해당 기능에 대해 개발해서 공유해볼게요 …
      • 0
    5. 설명이 부족한 것같습니다.
      선택한 레이어가 0 layer그려진
      10X10 사각 10개와 5파이 10개가 각각 다른위치에 있을경우 입니다.
      제가 게시한 리습은 다수의+각각다른위치의 선택한 모든것을 동일레이어에
      내측방향 으로만 생성됩니다.
      거리를 0.01로 했을경우 10×10 => 9.99×9.99 로 모두변경 5파이 => 4.99파이로
      안쪽에 그려지는 것입니다.
      적용하고나서 다수의 선을 지우거나 이동할때 일일이 선택해야하기 때문입니다.
      추가나 변경되어야 할것은  
      1.다른 레이어에 생성
      2.옵셋의 방향 설정 입니다. 

      리습도움이 필요해서 문의 드린것인데 뭘 참고하라고 하는것인지?
      질의한 사람에 의도와는 다르것 같습니다.
      • 0
    6. Lv.19

      레이어 설정가능하게 개선했는데,

      링크 게시글의 영상 참고해보세요 ^^
      • 0
    7. Lv.19

      혹시 이 기능이 맞나요? ㅎㅎ

      현재 선택한 객체의 레이어로 생성되는데 
      레이어를 설정할 수 있게 개선하면 될 듯합니다 ㅎㅎ
      • 0