[Lisp] command 에서 리습 실행 on/off 할수 있는지 문의 드립니다..^^

[황당]

성심 성의껏 질문을 작성하여 주세요, 대충하시면 답변도 대충작성합니다.^^

 - 제목 작성시 금지어

   만들어주세요? 해주세요? 안되는데 이렇게 변경해주세요? 등등

- 특정분과 질문은 제목에 분과삽입 [건축] 

   좋은예) [분과]무엇에 대해 문의합니다. /[분과]B로 바꾸는 방법을 알고싶습니다.

- 말머리 필수 

① CAD 종류   : auto cad 2008

② VERSION   : 64bit

도면.dwg

③ 운영 체제    : win7 64bit

④ 질문내용 및 스크린샷(이미지 및동영상)

 LTSCALE 값에 따라 불럭 크기가 변경되어 인써트 되는 리습입니다....아키모아에서 받아서 잘 사용하고 있습니다만..모든 도면에 적용되다보니....가끔 필요치 않은 도면도 있는지라...

1. 리습을 로드 한 상태에서

    command 창에 명령어(ion 또는 ioff) 입력시 리습 적용을 on/off ???? 리습 중지???? 할수 있는지 문의 드립니다..^^

2. 리습 사용시 명령어...EXTEND...TRIM 사용 안되는데 것....되게 할 수 있는지도 여쭤 봅니다...

   캐드파일 올립니다......

-----------------------------------------------------------

(defun MyBlock_Insert (call callback / sc e ent)
 (if (= (car callback) "INSERT")
  (progn
   (setq
    sc
    (cond
     ((= (setq lts (getvar 'LTSCALE)) 0.01) 1.5)
     ((= lts 0.005) 2.0)
     ((= lts 0.02) 0.7)
     (T 1.0)
    )
    e (entlast)
    ent (entget e)
    ent (subst (cons 8 "Symbol") (assoc 8 ent) ent)
    ent (subst (cons 41 sc) (assoc 41 ent) ent)
    ent (subst (cons 42 sc) (assoc 42 ent) ent)
   )
   (entmod ent)
  )
 )
 (princ)
)

(or
 (tblsearch "layer" "Symbol")
 (entmakex
  (list
   (cons 0 "LAYER")
   (cons 100 "AcDbSymbolTableRecord")
   (cons 100 "AcDbLayerTableRecord")
   (cons 70 0)
   (cons 62 2)
   (cons 2 "Symbol")
  )
 )
)

(or
 MyReactor
 (setq MyReactor (vlr-command-reactor nil (list (cons :vlr-commandended 'MyBlock_Insert))))
)

(princ)

⑤ 파일첨부 (LISP/DWG) - DWG 첨부시 보다 정확한 답변을 얻을수 있습니다.

MyReactor.lsp

※ 유의사항

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^

 - ②Screenshot : 이해를 돕기위해 삽입요망.

 - ③파일 첨부 : 상위버전에서 테스트할 파일이 아니면 가급적 하위버전으로 저장후 첨부.

                          해당리습/해당파일(DWG) 도 같이 첨부하여 주세요.

 - ④제       목 : 질문 내용 반영(개략적인 내용),       예) 해치를 만들고 싶어요, pline을 연결할려면?

 - ⑤질문글 삭제금지 : 질문후 댓글이 달린글은 삭제금지.

    여러 리플러들이 소중한 시간을 내어서 고민한후 댓글을 작성한 이상 "강력조치" 토록 하겠음. 

※ 정답만이 댓글은 아닙니다. 그 답이 맞던 틀리던 그건 그 댓글로서 존중되어야 합니다.

    회원님들이 글을 읽었다는것과 댓글을 달았다는건 그만큼 관심을 가지고 있고 또 그 답을 해주기 위해

    검색도 해보고 도움말도 보고 고민도 하는 일련의 과정을 거치면서 나오기 때문이죠.

    이에 대한 고마움과 감사함을 모르는 테러행위(?)는 없었으면 합니다.

 

[황당]

감사합니다...^^

[최동우]

수고하셨습니다. ^^