홈/ 질문/Q 112707
다음
진행 중
Lv.0
등록일: 2020-12-15T01:11:56+09:00 카테고리:

걸치기 선택으로 두선 잇기

목적은 두 평행한 선을 잇는건데 양끝을 다 연결이 아니라
제가 선택한 쪽만 잇고 싶은데 이런 리습 없나요 ㅠㅜㅠㅜ
열심히 서치 했는데 메커니즘이 두 선을 ex 해서 잇거나,
두 라인의 양끝 좌표를 추출해서 둘 다 연결하네요
제가 바라는 건

 걸치기 선택(crossing)으로 두 객체(선이어도 됨) 선택

   –   두 객체의 좌표 값 중 걸치기 범위 안에 들어온 두 포인트 추출
   –   라인(포인트a, 포인트b)
이거거든요
stretch 할 때 보면 객체의 선택 영역의 좌표만 이동 시키듯 그 좌표 끼리 잇고 싶은데 ㅠㅜㅜ
구할수도 없고 명령어 이어 입력하는 정도 아는 얕은 지식으로는 어렵네요
알려주시면 정말 감사하겠습니다
  *  사실 궁극적인 목적은 벽체 그리는거라 wa이라는 양쪽 옵셋 명령어 후에 끝을 막기 위함 입니다 
공유

    관련 있는 질문들

    5 답변

    1. aalan
    2. Lv.19

      혹시 이런 기능인가요 ?

      • 0
    3. Lv.0
      클릭한 점을 기준으로 2개의 선을 찾아서, 
      가까운 끝점끼리 연결해주는 리습입니다.
      원하는 기능이 아니시면, 약간 수정해서 사용하세요.
      ;;;;;;;;;;;;;;;;;;           근접선 두개 연결하여 선그리기
      (defun c:QQ(/ os point2x point2y discpx discpy obje objecnt limit plus numth point1 point1x point1y
            line1 line11 line2 line22 line1s line1l line2s line2l
             l1sx l1sy l1lx l1ly l2sx l2sy l2lx l2ly dist1 dist2 dist3 dist4 dist5 dist6 dist7 dist8 llaa)
      (defun *error* (msg)(princ “error: “)(princ msg) (setvar “osmode” os)  (princ) )
      (setq os (getvar “osmode”))  
      (setvar “osmode” 0)
      (SETQ NUMTH 1)
      (while (/= (setq point1 (getpoint “n선을 연결할 대략적인 중심위치를 선택하세요.  (종료는 엔터키) “)) nil)
       
      (setq point1x (car point1)
                    point1y (cadr point1))
      (setq obje nil)   ;루프를 시작하기전에 변수에 초기값을 준다.
      (setq objecnt 0)
      (setq limit 0)
      (setq plus 0)  
        
       (while (and (/= 2 objecnt) (> 100 limit) )    ; 클릭한 포인트를 기준으로 가장 근접한 두개의 선을 선택세트에 담는다.
         (setq obje nil)
         (setq plus (+ plus 5))
       ;  (command “rectangle” (list ( + point1x plus ) (- point1y plus ) 0 )  (list ( – point1x plus ) (+ point1y plus ) 0 ) )             ;디버깅용 코드
         (setq obje (ssget “c” (list ( + point1x plus ) (- point1y plus ) 0 )  (list ( – point1x plus ) (+ point1y plus ) 0 )  ‘((0 . “LINE”))  ))
         
         (if (/= obje nil)
             (setq objecnt (sslength obje))
         )
         (setq limit (+ limit 1))
       )  ;eob of while
        
         (if (= limit 100)          
             (progn
           (prompt “n연결 가능한 선이 없습니다. 검색상환 횟수를 초과했습니다.”)   ; 객체검색 횟수의 상한초과시 메시지
           (alert “연결 가능한 선이 없습니다. “)   ; 객체검색 횟수의 상한초과시 메시지
                   (princ)
             )
                  
             (progn                                                ;상한횟수 이내에 두객체가 존재한다면 선연결하기
       
               (setq line1 (ssname obje 0))    ;라인1의 정보가져오기
               (setq line11 (entget line1))
      (setq line1s (assoc 10 line11)
                     line1l (assoc 11 line11))
      (setq l1sx (cadr line1s)
             l1sy (caddr line1s))
               (setq l1lx (cadr line1l)
             l1ly (caddr line1l))
      (setq line1s (list l1sx l1sy 0)
             line1l (list l1lx l1ly 0))
               (setq llaa (assoc 8 line11) )  ; 레이어 가져오기
               (setq llaa (cdr llaa ))
       
               (setq line2 (ssname obje 1))     ;라인2의정보가져오기
               (setq line22 (entget line2))
      (setq line2s (assoc 10 line22)
                     line2l (assoc 11 line22))  
               (setq l2sx (cadr line2s)
             l2sy (caddr line2s))
               (setq l2lx (cadr line2l)
             l2ly (caddr line2l))
      (setq line2s (list l2sx l2sy 0)
             line2l (list l2lx l2ly 0))
               (setq dist1 (distance point1 line1s)
                     dist2 (distance point1 line1l)
             dist3 (distance point1 line2s)
             dist4 (distance point1 line2l))
               (setq dist5 (distance line1s line2s)
                     dist6 (distance line1s line2l)
             dist7 (distance line1l line2s) 
             dist8 (distance line1l line2l) )
               (if ( or ( < dist5 0.1  ) ( < dist6 0.1  ) ( < dist7 0.1  ) ( < dist8 0.1  )  )  ;;;; 찾아낸 2개의 선이 연결되어 있는지 확인
          (progn
                       (alert “근처점 검색 실패  : 인접한 2개의 선을 연결하려고 했습니다.”)
          );progn end  
          (progn
                        (if (< dist1 dist2)        ;시작점과 끝점중에서 더 가까운점을 찾는다.
                     (setq line1l line1s)
                )
                        (if (< dist3 dist4)
                     (setq line2l line2s)
                )
                (setq dist5 (distance line1l line2l) )
                (if (< dist5 0.1)                ;;;;;;;;;;   새로 그리려는 선이 0.1 보다 짧으면 경고
           (alert “근처점 검색 실패.. – 길이가 0인 선을 생성하려고 함.”)
           (progn
                              (command “line” line1l line2l “”)   ;선긋는다.
                              (command “change” (entlast) “”  “p” “layer” llaa “”) ;레이어 바꾸기
          );progn end
        );if end  
          );progn end  
      );if end  
             
      ) ;end of progn
         ) ;EOB IF
            (SETQ NUMTH (+ NUMTH 1))
        
      )  ;EOB OF WHILE
        
                 (setvar “osmode” os)
                 (PROMPT “n근처선 그리기 종료.”)
                 (princ)
        
      )
      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
      • 0

    4. 먼저 감사합니다. 안타깝게도 2020버전이라 그런지 실행이 되지 않네요. 로드는 되는데 경고문도 한글이 아니라 깨져서 나오고 친절한 답변 감사합니다

      • 0

    5. 네네 맞습니다!!

      • 0
    6. Lv.19

      https://cafe.naver.com/autocats

      여기 방문해주시겠어요?
      게시글 남겨주시면 답글로 바로 드리겠습니다 ㅎㅎ

      • 0