홈/ 질문/Q 113463
다음
진행 중
Lv.0
등록일: 2021-11-29T15:47:53+09:00 카테고리:

퀵 블럭 (빠른 블럭) 만들기 , 변경 가능할까요?ㅠㅠㅠ

;; 아키모아 “행복한하루”
(defun c:b(/ os bn ss po)
 (princ “n 쉽게 블럭만들기”)
 (setq os (getvar “osmode”))
 (setq bn (rtos (getvar “cdate”) 2 6))
 (setq ss (ssget))
 (setq po (getpoint “삽입점:”))
 (command “block” bn po ss “”)
 (setvar “osmode” 0)
 (command “insert” bn po 1 1 0)
 (setvar “osmode” os)
(princ)
)
▲현재 , b버튼 눌리고 삽입점 부분에 마우스 버튼 클릭 해야지 블럭이 만들어지는데
삽입점 필요없이 , 명령어 B만 눌렸을때 바로 만들어지게 가능할까요?ㅠㅠ
공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.19

      신속 블록생성 기능 ‘QBLOCK’ 명령어 소개

      위 링크 참고해주세요.
      CATS 에 있는 기능입니다 ^^
      • 0
    3. Lv.0
      (defun c:BBB (/ d d1 t1 r1 ss vv os)  ;빠른 블록 , 원점은 선택객체의 센터점
         (defun *error* (msg)    (setvar “osmode” os)  (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 “n블록으로 지정할 범위를 선택하세요 : “) 
          (setq ss (ssget)) 
      (BlockCenter ss)
      (setq vv blockctr)
          (setvar “osmode” 0)         
          (command “block” B “none” vv “si” ss) 
          (command “insert” B “none” vv “1” “1” “0”) 
          (setvar “osmode” os)
      );end defun
      (defun BlockCenter (objs / entname vlentname minpoint maxpoint lowleftpoint lowleftpointx 
                            lowleftpointy lowleftpointxlist lowleftpointylist uprightpoint uprightpointx 
                    uprightpointy uprightpointxlist uprightpointylist llp urp sspt sgap sgap2 pt1 pt2 )
      (defun *error* (msg) (princ) )
      (if (= objs nil) (progn
        (setq blockctr (GetvAr “viewctr”))
        (exit)
      ));p if end   
      (setq n 0)
      (repeat (sslength objs)
      (setq entname (ssname objs n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minpoint ‘maxpoint)
      (setq lowleftpoint (vlax-safearray->list minpoint))
      (setq lowleftpointx (car lowleftpoint))
      (setq lowleftpointxlist (cons lowleftpointx lowleftpointxlist))
      (setq lowleftpointy (cadr lowleftpoint))
      (setq lowleftpointylist (cons lowleftpointy lowleftpointylist))
      (setq uprightpoint (vlax-safearray->list maxpoint))
      (setq uprightpointx (car uprightpoint))
      (setq uprightpointxlist (cons uprightpointx uprightpointxlist))
      (setq uprightpointy (cadr uprightpoint))
      (setq uprightpointylist (cons uprightpointy uprightpointylist))
      (setq n (1+ n))
      )
      (setq lowleftpointxlist (vl-sort lowleftpointxlist ‘<))
      (setq lowleftpointylist (vl-sort lowleftpointylist ‘<))
      (setq uprightpointxlist (vl-sort uprightpointxlist ‘>))
      (setq uprightpointylist (vl-sort uprightpointylist ‘>))
      (setq llp (list (nth 0 lowleftpointxlist) (nth 0 lowleftpointylist)))
      (setq urp (list (nth 0 uprightpointxlist) (nth 0 uprightpointylist)))
      (setq ptran1 llp)
      (setq ptran2 urp)
      (setq blockctr (polar ptran1 (angle ptran1 ptran2) (/ (distance ptran1 ptran2)2) )  )
      )
      • 0

    4. 완전 감사합니다 ㅠㅠㅠㅠㅠㅠ

      • 0