홈/ 질문/Q 110308
다음
진행 중
Lv.0
등록일: 2018-09-04T18:07:36+09:00 카테고리:

cad lisp 공유(제작?) 문의 드려요~

-.블럭 잡는것은 문제가 아닌데 일정 블럭 한개를 깨지 않고 bylayer(도면층별), bylayer(도면층별) 할수 있는 방법은 없을까 해서요^^

-.현재는 블럭을 깨서 bylayer(도면층별) 하고, 또는 블럭 색상을 바꾸고 싶으면 또 깨서 byblock(블럭별)
일일이 이렇게 바꾸면서 블럭을 잡고 있습니다.

-.블럭 잡는것은 문제가 아닌데 일정 블럭 한개를 깨지 않고 bylayer(도면층별), bylayer(도면층별) 할수 있는 방법은 없을까 해서요.

*공개 자료 글 89,425  ” Viva_La_Vida” 님?이 작성하신것 보고 조금만? 변형? 주며 될것 같은데…
그게 …저는 손을 대지 못할? 정도의 수준 인것 같네요ㅜㅡ

-.고수님들 도와주세요~

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      뭔 말씀인지 이해가 잘 안되는데요… 블록을 깨지 않고 블록의 도면층이나 색상을 바꾸고 싶다… 뭐 그런것 같은데… 첨부 파일 로드한 후에, ENSCHB 명령이 그에 해당하는겁니다. 더 자세한 것은 ENSCMD 쳐 보시면 되고요… https://www.gocad.co.kr/3470582 여기나… https://www.gocad.co.kr/3461401 여기 설명 있습니다.

      참고로, 위 링크에 있는 파일과 여기 첨부된 파일… 다릅니다. 여기 첨부된 파일이 최신입니다.

      • 0
    3. (defun c:test ( / ent blockname) (vl-load-com)
      (setq ent (car (entsel)))
      (setq blockname (cdr (assoc 2 (entget ent))))
      (vlax-for obj (vla-item (vlax-get (vlax-get (vlax-get-acad-object) ‘activedocument) ‘blocks) blockname)
      (vlax-put obj ‘color 0) ;0 = ByBlock, 256 = ByLayer
      )
      (princ)
      )
      (defun c:test ( / ent blockname) (vl-load-com)
      (setq ent (car (entsel)))
      (setq blockname (cdr (assoc 2 (entget ent))))
      (vlax-for obj (vla-item (vlax-get (vlax-get (vlax-get-acad-object) ‘activedocument) ‘blocks) blockname)
      (vlax-put obj ‘color 256) ;0 = ByBlock, 256 = ByLayer
      )
      (princ)
      )
      • 0