홈/ 질문/Q 113625
다음
진행 중
도앵이아빠
Lv.0
등록일: 2022-02-14T08:44:34+09:00 카테고리:

여러개의 사각형 중심으로 폴리선 긋기 리습 부탁드립니다.

emoticon 반갑습니다.

여러개의 사각형을 선택 후 사각형의 중심을 기준으로 폴리선을 그리고 싶습니다. 
도움 부탁드립니다.
옵션 사항(리습이 어려울 경우 제외)
Layer : Array
Color : Green
Global Width : 20
(사각형 구성)
ㅁㅁㅁ
ㅁㅁㅁㅁㅁㅁ
(사각형 내 중심기준선 – 폴리선)
 ┌───
 └────── (첫째줄과 둘째줄이 떨어져 보이나 실제로는 붙어 있습니다.)
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0
      원하시는거랑 일치할지 모르겠지만 만들어봤어요.
      이것 저것 짜집은거라 한번 써보세요

      레이어가 array 있어야 합니다.
      단일 객체 선택해야 합니다.

      (defun c:RP ( /  p1 p2 sss ss os_m)
      (setvar “cmdecho” 0)
      (setq sa (ssadd))
      (setq sb (ssadd))
      (sel)
      (setq p1 cen)
      (while 
      (sel)
      (setq p2 cen)
      (command “line” p1 p2 ESC)
      (setq sss (ssget “L”))
      (setq sss (ssname sss 0))
      (setq ss (ssadd sss sa))
      (setq p1 p2)
      (setq os_m (getvar “osmode”))
      (setvar “osmode” 0)
      (command “pedit” “m” sa “” “j” “” “”)
      (command “pedit” “l” “w” 20 “”)
      (command “change” “l” “” “p” “c” 3 “la” “array” “”)
      (setq sss (ssget “L”))
      (setq sss (ssname sss 0))
      (setq ss (ssadd sss sb))
      (command “pedit” “m” sb “” “j” “” “”)
      (setvar “osmode” os_m)
      )
      (princ)
      )
      (defun sel ( / ss hrp hrpx hrpxl hrpy hrpyl llp llpx llpy llpxl llpyl n )
      (setvar “cmdecho” 0)
      (setq ss (ssget “:S”))
      (setq n 0)
      (repeat (sslength ss)
      (setq entname (ssname ss n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minp ‘maxp)
      (setq hrp (vlax-safearray->list maxp))
      (setq hrpx (car hrp))
      (setq hrpxl (cons hrpx hrpxl))
      (setq hrpy (cadr hrp))
      (setq hrpyl (cons hrpy hrpyl))
      (setq llp (vlax-safearray->list minp))
      (setq llpx (car llp))
      (setq llpxl (cons llpx llpxl))
      (setq llpy (cadr llp))
      (setq llpyl (cons llpy llpyl))
      (setq n (1+ n))
      )
      (setq llpxl (vl-sort llpxl ‘<))
      (setq llpyl (vl-sort llpyl ‘<))
      (setq hrpxl (vl-sort hrpxl ‘>))
      (setq hrpyl (vl-sort hrpyl ‘>))
      (setq cen (list (nth 0 llpxl) (nth 0 llpyl))
      cen (list (+ (car cen) (* (- (nth 0 hrpxl) (nth 0 llpxl))0.5)) (+ (cadr cen) (* (- (nth 0 hrpyl) (nth 0 llpyl)) 0.5)))
      )
      )
      • 0
    3. Lv.0

      감사합니다. 폴리 라인 적용이 잘되는 것으로 확인되었습니다. 필요부분 선택 후 중심선 긋기가 아니라 단일객체 선택이 조금 아쉽지만 그래도 상당 수 업무에 효율이 있을것으로 예상됩니다. 주신 리습 기준으로 좀 더 연구해보도록 하겠습니다.  다시 한번 더 감사의 말씀드립니다.

      • 0