[Lisp] 블럭을 1대 2대 1로 배치 하는리습입니다.

[쌍둥이아빠]

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

① CAD 종류   : AUTO CAD

② VERSION   : 2017

③ 운영 체제    : WIN10 64

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

잘 사용하고 있는 리습입니다.

가끔 어떤 파일에서 실행을 하면.

한쪽을로 쏠리는 현상이 있는데 뭐가 문제인지 한번 봐주세요.

(한쪽으로 쏠리는 현상 파일이 없네요.ㅠ.ㅠ)

동적심볼을 배치가 않됨니다.

동적블럭도 가능하게 수정좀 부탁합니다.

 (setq def "A-01")

(defun c:LTG (/ blk1 def bna wds wde ang cold rowd firstc firstr firstp ent uu)
             (if (= bna nil) (setq bna "a-01") (setq bna def))

    (cond
    ((vl-cmdf "_.rectang" (setq wds (getpoint "\n 첫번째 포인트 : "))
                          (setq wde (getcorner wds "\n 두번째 포인트 : "))
       ""
    )
    (setq ent (entlast))

 (setq uu (entsel "\n 배치할 심볼을 선택하세요.. : "))
 (setq blk1 (car uu))
               (if (= blk1 nil)
                   (and (setq bna (strcase (getstring "\n 선택되지 않았습니다 블럭이름을 입력하세요.. : "))))
                   (setq bna (cdr (assoc 2 (entget blk1))))
               )
           (if (or (= bna nil)(= bna ""))
                   (setq bna def)
                   (setq def bna)
    )
    )
)

  (setq osmold (getvar "osmode"))

  (setvar "cmdecho" 0)
  (setvar "osmode" 0)

  (setq c (- (car wde) (car wds)))
  (setq r (- (cadr wde) (cadr wds)))
  (setq rows (getint "\n 세로로 몇개 배치하실래요 <1> : "))
  (if (or (= rows nil) (= rows "")) (setq rows 1))
  (setq cols (getint "\n 가로에는 몇개나 <1> : "))
  (if (or (= cols nil) (= cols "")) (setq cols 1))
  (setq ang (getint "\n 심벌 각도는 <0> : "))
  (if (or (= ang nil) (= ang "")) (setq ang 0))
  (setq cold  (/ c cols))
  (setq rowd  (/ r rows))
  (setq firstc (+ (car  wds) (/ cold 2)))
  (setq firstr (+ (cadr wds) (/ rowd 2)))
  (setq firstp (list  firstc firstr))
  (if (= rows 1) (setq rowd cold))
 
  (if (not (tblsearch "layer" "ltg"))
      (command "layer" "new" "ltg" "c" "magenta" "ltg" "")
  )
 
  (if (and (= cols 1) (= rows 1))
      (progn
      (command "insert" def firstp "" "" ang)
      (command "chprop" "l" "" "la" "ltg" "")
      )
  )
 
  (if (and (/= cols 1) (= rows 1))
      (progn
      (command "insert" def firstp "" "" ang)
      (command "chprop" "l" "" "la" "ltg" "")
      (command "array" "l" "" "r" rows cols rowd)
      )
  )
 
  (if (and (/= cols 1) (/= rows 1))
      (progn
      (command "insert" def firstp "" "" ang)
      (command "chprop" "l" "" "la" "ltg" "")
      (command "array" "l" "" "r" rows cols rowd cold)
      )
  )
 
  (setq bna def)
  (command "_.erase" ent "")
  (setvar "osmode" osmold)
  (prin1)
)

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

LTG.LSP

※ 유의사항

 - ①말머리 : 말머리를 달아야 구분이 쉽겠죠^^(필수 선택)

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

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

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

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

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

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

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

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

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

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

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

 

[일단밟아]

setvar -> snapang -> 0