홈/ 질문/Q 112547
다음
진행 중
Lv.0
등록일: 2020-09-02T00:42:12+09:00 카테고리:

블럭만드는 리습인데 수정부탁드립니다.

이 리습도 여기 에서 얻었는데요…

블럭만들어지기는 하는데… 기준점 찍어서 만들수있게 리습 수정 가능할까요??
그럼 잘 부탁드립니다.
(defun c:BB ( / ss p1 p2)
(setvar ‘cmdecho 0)
(setq ss (ssget))
(command “_copyclip” ss “” “_zoom” “_o” ss “”)
(setq p1 (getvar ‘viewctr))
(command “_pasteblock” “0,0” “_zoom” “_o” (entlast) “”)
(setq p2 (getvar ‘viewctr))
(command “_move” (entlast) “” “_non” p2 “_non” p1 “erase” ss “” “_zoom” “_p” “_zoom” “_p”)
(princ)
)
공유

    관련 있는 질문들

    1 답변

    1. aalan
    2. Lv.0
      객체 선택 후 기준점 찍어서 블럭으로 만드는 리습입니다.
      (defun c:BB ( / ss pt block_name)
        (setvar “cmdecho” 0)
        (princ “nSelect Objects:”)
        (setq ss (ssget)
          pt (getpoint “nSelect Insert Point:”)
          block_name (rtos (* (getvar “cdate”) 1000000) 2 0)
          block_name (strcat “B” block_name)
        )
        (command “_block” block_name pt ss “”)
        (command “_insert” block_name pt “” “” “”)
        (princ “n”)(princ (strcat “ok! block name: ” block_name))
        (prin1)
      )
      • 0