홈/ 질문/Q 111934
다음
진행 중
Lv.0
등록일: 2019-11-07T14:23:34+09:00 카테고리:

블럭사이 라인그리기 질문있습니다

(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. aalan

    2. 감사합니다 수야님^^*

      • 0
    3. Lv.21
      (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 
                     (cons 0 “LWPOLYLINE”)
                     (cons 100 “AcDbEntity”)
                     (cons 100 “AcDbPolyline”)
                     (cons 90 2)
                     (cons 70 0)
                     (cons 10 Fsx10) 
                     (cons 10 Ssx10)
                   ) 
          )
       )
      );;ref
      ));;prg;;if
      (princ))
      • 0