홈/ 질문/Q 105782
다음
진행 중
yellowzzu
Lv.0
등록일: 2015-12-30T18:34:41+09:00 카테고리:

빠른 블럭생성 리습 입니다. 문의 드립니다

빠른 블럭 생성이란 리습을 잘 사용하고 있었는데요
빠른 블럭 생성이란
블럭을 생성(컨드롤+시프트+C) → 원본 삭제 → 블럭붙혀넣기(컨트롤+시프트+V)
를 한번에 하는 리습인데요

요 녀석이 OSNAP 영향으로 자꾸 그자리에 생성되는게 아니고 돌아 다녀서
앞 뒤로 OSNAP 수정 문구를 딴 리습에서 따와서 넣고 싶은데요

===================== 빠른 블럭생성 =====================


(defun c:VC( / pros oldcmd a p1)
(SETQ pros (getvar “OSMODE”)
    oldcmd (getvar “cmdecho”))
           (setvar “osmode” 5055)
           (setvar “cmdecho” 0)
        (graphscr)
        (setq p1 (getpoint “nt 기준점을 선택하세용♡ :”))
        (while (/= p1 nil)
                (command “Copybase” p1 a “”)
                (command “Erase” “P” “”)
                (command “Pasteblock” p1)
)
(setvar “OSMODE” 4135)
(setvar “cmdecho” OLDCMD)
        (princ)
)

이렇게 하면
(LOAD “C:/Program Files/Autodesk/AutoCAD 2013/Support/블럭생성.lsp”) ; 오류: AutoCAD 변수 설정이 거부됨: “cmdecho” nil

이런 문구가 뜨면서 로드가 안되요..ㅠ
고수님들 도와 주세요~


미리 새해복 많이 받으세요~

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      답이 늦어 죄송합니다.

      오~ 빠르긴 정말 빠르군요!emoticon

      완전 감사합니다~^^

      한해 마무리 잘 하세용~~

      • 0
    3. Lv.0

      빠른 블록 생성을 하기 위해서 왜 굳이 복사 붙여넣기를 활용하는지 모르겠네요.
      저는 이걸로 쓰는데요. 한번써보세요. 이게 짱입니다.

      ;;block name 블록센터점을 임의지정해서 블록잡기
      (defun c:B (/ d d1 t1 r1 ss vv os)
         (defun *error* (msg)(princ “error: “)(princ msg)
         (setvar “osmode” os) (command “clayer” “0”) (princ) )
         (setq os (getvar “osmode”))

         (setq d (rtos (getvar “cdate”) 2 7))
         (setq d1 (substr d 1 8)
                 t1 (substr d 10 7)
                 r1 (strcat d1 “_” t1))
             (setq vv (GetvAr “viewctr”))
             (tblsearch “block” (setq B (strcat d1 “_” t1)))
             (princ “블록잡을 객체 세트를 지정…”)
             (setq ss (ssget))
             (setvar “osmode” 0)        
             (command “.block” B “_none” vv “si” ss)
             (command “.insert” B “_none” vv “1” “1” “0”)
             (setvar “osmode” os)
      );end defun

      • 0