홈/ 질문/Q 112367
다음
진행 중
Lv.0
등록일: 2020-05-26T20:18:49+09:00 카테고리:

폴리선 교차점에 점생성시는 방법

제곧내

동일한 고도값을 가진 폴리선 2개의 교차점에 점을 생성(또는 변경)시키는 방법이 있을까요?


폴리선은 x자로 그려져있구요.

그런데 이런 폴리선이 너무 많아서 점 찍는게 부담됩니다. (파일첨부)

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.1
      ;;;교차점에 인트생성
      ;;;명령어 : iip
      (defun LM:intersections ( ob1 ob2 mod / lst rtn )
          (if (and (vlax-method-applicable-p ob1 ‘intersectwith)
                   (vlax-method-applicable-p ob2 ‘intersectwith)
                   (setq lst (vlax-invoke ob1 ‘intersectwith ob2 mod))
              )
              (repeat (/ (length lst) 3)
                  (setq rtn (cons (list (car lst) (cadr lst) (caddr lst)) rtn)
                        lst (cdddr lst)
                  )
              )
          )
          (reverse rtn)
      )
      (defun c:inter ( / obj1 obj2 )    
          (if (and (setq obj1 (car (entsel “nSelect 1st Object: “)))
                   (setq obj2 (car (entsel “nSelect 2nd Object: “)))
              )
              (foreach pnt (LM:intersections (vlax-ename->vla-object obj1) (vlax-ename->vla-object obj2) acextendnone)
                  (entmake (list ‘(0 . “POINT”) (cons 10 pnt)))
              )
          )
          (princ)
      )
      (vl-load-com) (princ)
      (defun LM:intersectionsinset ( sel / id1 id2 ob1 ob2 rtn )
          (repeat (setq id1 (sslength sel))
              (setq ob1 (vlax-ename->vla-object (ssname sel (setq id1 (1- id1)))))
              (repeat (setq id2 id1)
                  (setq ob2 (vlax-ename->vla-object (ssname sel (setq id2 (1- id2))))
                        rtn (cons (LM:intersections ob1 ob2 acextendnone) rtn)
                  )
              )
          )
          (apply ‘append (reverse rtn))
      )
      (defun c:iip ( / sel )
          (if (setq sel (ssget))
              (foreach pnt (LM:intersectionsinset sel)
                  (entmake (list ‘(0 . “POINT”) (cons 10 pnt)))
              )
          )
          (princ)
      )
      (vl-load-com) (princ)
      • 1

    3. 다른방법은 모르고 사용중인 드림프로그램안에 기능이있길래 사용해올려놓은거에요.

      • 0

    4. 진짜 감사합니다. 혹시 실례가 안된다면 어떻게 하셨는지 물어봐도 될까요? 

      • 0

    5. help.dwg

      쓰는프로그램에 기능이있길래 넣었어요
      • 0