캐드 분류
블럭사이 라인그리기 질문있습니다
컨텐츠 정보
- 186 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
(defun c:sample (/ ent index ssnam0 ssnam1 Fsx10 Ssx10)
(prompt "n블록을 선택하시오…")
(setq index -1)
(setq ent (ssget '((0 . "INSERT")) ))
(if ent (progn
(repeat (sslength ent) (setq index (1+ index))
(setq ssnam0 (ssname ent index) )
(setq ssnam1 (ssname ent (1+ index)) )
(if ssnam0 (setq Fsx10 (cdr (assoc 10 (entget ssnam0)) )) )
(if ssnam1 (setq Ssx10 (cdr (assoc 10 (entget ssnam1)) )) )
(if (and ssnam0 ssnam1) (entmake (list '(0 . "LINE") (cons 10 Fsx10) (cons 11 Ssx10) )) )
);;ref
));;prg;;if
(princ))
블록사이에 라인을 그려지는 리습이있어서 써볼려고 하니 폴리선이 필요해서요 LINE 부분을 PLINE으로 고쳐봤는데 안써지더라구요;; 어딜더 수정해야하나요 ㅜㅜ
관련자료
댓글 2
/ 1 페이지
