홈/ 질문/Q 112864
다음
진행 중
닐스몹
Lv.1
등록일: 2021-02-04T11:17:39+09:00 카테고리:

break 리습을 만드는 중인데 foreach 질문 드립니다..

(defun c:hh (/)
 (setvar “cmdecho” 0) (setq os (getvar “osmode”)) (sssetfirst) (setq hid (list (cons 62 4)(cons 6 “HIDDEN”)))
 (if (not (wcmatch (setq typ (cdr (assoc 0 (setq ent (entget (setq obj (car (entsel “n기준 객체를 선택하세요.: “)))))))) “ELLIPSE,*TEXT*”))
 (progn
  (prompt “n자를 객체를 선택하세요.: “)
  (setq objj (ssget) pt (getpoint “n자를 위치를 선택하세요. :”) r 0)
  (repeat (sslength objj)
   (setq typ (cdr (assoc 0 (entget (ssname objj r)))))
   (setq int (vlax-invoke (vlax-ename->vla-object obj) ‘IntersectWith (vlax-ename->vla-object (ssname objj r)) acExtendNone))
   (setq lst (cons (cons typ int) lst))
   (setq r (1+ r))
  )
   (foreach x lst (if (wcmatch (car x) “LINE”)
     (progn
      (setq entt (entget (ssname objj 0)))
      (setq p1 (cdr (assoc 10 entt)) p2 (cdr (assoc 11 entt)))
      (setq int (cdr (car lst)) intt (inters p1 p2 pt (polar pt (+ (/ pi 2) (angle p1 p2)) (car pt)) nil))
      (if (or (inters p1 p2 pt (polar pt (+ (/ pi 2) (angle p1 p2)) (car pt)))
       (inters p1 p2 pt (polar pt (- (angle p1 p2) (/ pi 2)) (car pt))))
      (progn
       (if (>= (angle p1 p2) pi)
       (progn
        (cond ((>= (angle int intt) pi)
         (entmake (subst (cons 11 int) (assoc 11 entt) entt))
         (entmake (append (subst (cons 10 int) (assoc 10 entt) (subst (cons 11 intt) (assoc 11 entt) entt)) hid))
         (entmake (subst (cons 10 intt) (assoc 10 entt) entt)))
        )
        (cond ((< (angle int intt) pi)
         (entmake (subst (cons 11 intt) (assoc 11 entt) entt))
         (entmake (append (subst (cons 10 int) (assoc 10 entt) (subst (cons 11 intt) (assoc 11 entt) entt)) hid))
         (entmake (subst (cons 10 int) (assoc 10 entt) entt)))
        )
       )
       (progn
        (cond ((>= (angle int intt) pi)
         (entmake (subst (cons 10 int) (assoc 10 entt) entt))
         (entmake (append (subst (cons 10 int) (assoc 10 entt) (subst (cons 11 intt) (assoc 11 entt) entt)) hid))
         (entmake (subst (cons 11 intt) (assoc 11 entt) entt)))
        )
        (cond ((< (angle int intt) pi)
         (entmake (subst (cons 10 intt) (assoc 10 entt) entt))
         (entmake (append (subst (cons 10 int) (assoc 10 entt) (subst (cons 11 intt) (assoc 11 entt) entt)) hid))
         (entmake (subst (cons 11 int) (assoc 11 entt) entt)))
        )
       ))
      )
      (progn 
       (if (>= (angle p1 p2) pi)
       (progn
        (cond ((>= (angle int intt) pi)
         (entmake (subst (cons 11 int) (assoc 11 entt) entt))
         (entmake (append (subst (cons 10 int) (assoc 10 entt) entt) hid)))
        )
        (cond ((< (angle int intt) pi)
         (entmake (append (subst (cons 11 int) (assoc 11 entt) entt) hid))
         (entmake (subst (cons 10 int) (assoc 10 entt) entt)))
        )
       )
       (progn
        (cond ((>= (angle int intt) pi)
         (entmake (subst (cons 10 int) (assoc 10 entt) entt))
         (entmake (append (subst (cons 11 int) (assoc 11 entt) entt) hid)))
        )
        (cond ((< (angle int intt) pi)
         (entmake (append (subst (cons 10 int) (assoc 10 entt) entt) hid))
         (entmake (subst (cons 11 int) (assoc 11 entt) entt)))
        )
       ))
      ))
      (entdel (ssname objj 0))
     ))
   )
 ))
)
1. 기준 선을 선택
2. 자를 선을 선택
3. 자를 위치 선택
하면 선이 잘리게 되는데요.. 기준 선은 1개만 선택이 되고
자를 선은 아직 1개밖에 안되고 여러개 선택 할 때 에러가 뜨더라구요
여기서 lst에 모든 교차점에 다 저장이 되고 foreach 함수로 lst에 있는걸 순차적으로 하나씩 꺼내서 사용하는거 아닌가요? 혹시 repeat이 따로 또 들어가야 하나요??
그리고 중간에 굵게 표시해놓은 lst는 x로 하면 foreach가 안 먹는거 같은데 어떻게 해야 좋을까요ㄷㄷ
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.21

      교차점 리스트를 다른곳에 사용하실려구 그러시나요?? 

      그럴것 아니면 바로바로 사용 하셔도 될듯하네요 그러구 리스트에 cons문 사용하시면 결과가 반대로 저장됩니다 a에서f 까지 선택하면 결과는 f에서a로 저장되요   음 한가지 팁으 드리자면 코딩하실때 출력메세지를 넣으셔서 내가 의도한대로 잘 구성돼있나 가끔 출력을 해보세요 가령 리스트가 내의도대로 구성 돼있나 (cdr x)의 값이 내가 원한값인건가 확인을 해보셔야죠 ㅎㅎ 화이팅~!! 
      제 실수가 있어서 수정합니다 ㅋ~
      • 0
    3. Lv.1

      교차점을 이용해서 교차점에서 선택 지점까지 break 후 히든선으로 생성하는 리습 만들고 있습니다ㅠ

      (setq lst (cons (cons typ int) lst)) 에서 (typ는 “LINE” int는 교차점)
      캐드상에서 !lst 했을 때 (“LINE” 1241.0 1047.13 0.0) 제일 앞이 문자로 들어가서 그런가 이런식으로 잘 나오더라구요
      foreach를 이번에 처음 써봐서 많이 버벅되네요ㅠ
      • 0
    4. Lv.21

      참고용으로 하나 올립니다 화이팅~!! 

      • 0
    5. Lv.1

      항상 도움 감사드립니다..

      • 0
    6. Lv.1

      만들어주신 리습 확인해봤는데요

      (vl-remove ‘(lambda (-1 5 10 11)) en) 이 어떤 역할을 하는지 알 수 있을까요..?
      !en 했을 때 나오는 값이랑 변화가 없는거 같아서 인터넷에 찾아보려고 했는데 찾는게 쉽지가 않네요ㅜ
      • 0
    7. Lv.21

      entget으로 라인 데이터를 읽어 들이면  대충

      ((-1 . <Entity name: 7e744e20>) (0 . “LINE”) (330 . <Entity 
      name: 7ede2cf8>) (5 . “AF9C”) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 
      . “0”) (100 . “AcDbLine”) (10 8380.23 5192.33 0.0) (11 11503.2 5306.25 0.0) 
      (210 0.0 0.0 1.0)) 이런식으로 뜨잖아요 거기서  저 번호가 들어간 것들을 제거 해서 
      ((0 . “LINE”)(330 . <Entity name: 7ede2cf8>) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 . “0”) (100 . “AcDbLine”) (210 0.0 0.0 1.0)) 이런식으로 남기는 구문입니다 님께서 사용하신 entmake 구문과 같은거예요 
      • 0
    8. Lv.1

      자세한 설명 감사합니다! 좋은하루 되세요ㅎㅎ

      • 0