홈/ 질문/Q 107869
다음
진행 중
Lv.0
등록일: 2017-01-24T13:15:26+09:00 카테고리:

사각형폴리라인 유사선택해서 일괄 개별블럭지정

안녕하세요 고수님들요
새해복많이 받으세요

예전 도면을 블럭으로 다중출력 하려다보니

기존 사각형 폴리라인으로 되어 있어서 블럭으로 변경후 다중출력을 하고 있습니다.
도면페이지가  50장이상 되면 블럭으로 바꾸는 작업도 만만치 않습니다.

기존 사각형 폴리라인을 일괄선택하여 개별블럭으로 지정하는 방법 없을까요…??

부탁드립니다.

수고 하세요

공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. 이렇게 하면?
      (defun c:123 (/ ent idx pt1 pt2 pt3 pt4 sel)
      (if (setq sel
      (ssget
       ‘(
      (0 . “LWPOLYLINE”)
      (90 . 4)
      (-4 . “&=”)   (70 . 1)
      (-4 . “<NOT”) (-4 . “<>”) (42 . 0.0) (-4 . “NOT>”)
      )
      )
      )
      (progn
      (command “_undo” “be”)
      (repeat (setq idx (sslength sel))
      (setq ent (ssname sel (setq idx (1- idx))))
      (mapcar
      ‘(lambda (a b) (set b (trans (cdr a) ent 0)))
      (vl-remove-if-not ‘(lambda (x) (= 10 (car x))) (entget ent))
      ‘(pt1 pt2 pt3 pt4)
      )
      (if (and
      (equal (distance pt1 pt2) (distance pt3 pt4) 1e-8)
      (equal (distance pt2 pt3) (distance pt1 pt4) 1e-8)
      (equal (distance pt1 pt3) (distance pt2 pt4) 1e-8)
      )
      (command “_copybase” “_non” pt1 ent “” “_pasteblock” “_non” pt1)
      )
      )
      (command “_undo” “e”)
      )
      )
      (princ)
      )
      • 0
    3. 감사감사합니다. 뭐하남님
      멋지십니다.^^

      혹시 블럭이름을 같은 이름으로 나오게 할수는 없나요….?

      • 0

    4. 질문에 그런 내용이 없으니 수정 안해드림. 고쳐쓰세요^^

      • 0

    5. 네….죄송합니다.

      즐거운명절인데….다시한번 부탁드립니다.
      너그러운 마음으로 부탁드립니다.
      남님 짱이십니다.

      새해복많이 받으세요^^

      • 0

    6. 네….죄송합니다.

      너그러운 마음으로 부탁드립니다.
      남님 짱이십니다.

      새해복많이 받으세요^^

      • 0