홈/ 질문/Q 46067
다음
진행 중
Lv.0
등록일: 2004-05-24T23:57:42+09:00 카테고리:

모서리 길이 제어 리습을 찾았는데..

리습방에서 모서리를 내가주어진 값으로 해주는 리습을 찾았습니다.
근데 이 리습을 로드해서 사용하면 오스냅이 모두 해제가 되어버리네여.
이 해결 방법 없을까요.?
리습도 같이 첨부합니다.

그리고 고수님들 이 리습 해석좀 해주시면 안될까여..
공부하고 싶어지네여..^^* 즐거운 하루되세요

공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. ;;;;; 가각짜르기 프로그램입니다.
      ;;;;; COPYRIGHT BY I.G. YOUN
      ;;;;; VERSION DATE 1994. 12. 16 15:00 (LAST)
      ;;;;; UNITS ; M
      ( DEFUN DTR (A)
      (* PI (/ A 180.0))
      ) ; ———— ANGLE ->RADIAN
      ( DEFUN DRT (A)
      (/ (* A 180.0) PI)
      ) ; ———— ANGLE ->RADIAN
      (DEFUN *error* ()
      (setq *error* #err))
      (princ)
      (DEFUN C:rcc ()
      (GRAPHSCR)
      ;———————————————————————-
      STANDARD VALUE
      (PROMPT “Road Cutting Program !!!!!!!!”)
      (setq old-osm (getvar “osmode”)) ; 추가
      (command “osnap” “”)
      (TERPRI)
      (SETQ E1 (ENTGET (CAR (ENTSEL ” Pick First Road :”))))
      (SETQ PE1 (CDR (ASSOC 0 E1)))
      (SETQ
      P-1S (CDR (ASSOC 10 E1)) ;;;;;; Start Point
      P-1E (CDR (ASSOC 11 E1)) ;;;;;; End Point
      )
      (TERPRI)
      (SETQ E2 (ENTGET (CAR (ENTSEL ” Pick Next Road :”))))
      (SETQ PE2 (CDR (ASSOC 0 E2)))
      (SETQ
      P-2S (CDR (ASSOC 10 E2)) ;;;;;; Start Point
      P-2E (CDR (ASSOC 11 E2)) ;;;;;; End Point
      )
      (SETQ IP (INTERS P-1S P-1E P-2S P-2E NIL) )
      (SETQ
      D-1S (DISTANCE P-1S IP)
      D-1E (DISTANCE P-1E IP)
      D-2S (DISTANCE P-2S IP)
      D-2E (DISTANCE P-2E IP)
      )
      (IF
      (< D-1S D-1E)
      (SETQ
      P-E1S P-1S
      P-E1E P-1E
      )
      (SETQ
      P-E1S P-1E
      P-E1E P-1S
      )
      )

      (IF
      (< D-2S D-2E)
      (SETQ
      P-E2S P-2S
      P-E2E P-2E
      )
      (SETQ
      P-E2S P-2E
      P-E2E P-2S
      )
      ) ;;;;;;;;;;;;;;; IF END

      (SETQ
      P-E1A ( ANGLE P-E1S P-E1E )
      P-E2A ( ANGLE P-E2S P-E2E )
      P-EAD ( ABS (- P-E1A P-E2A ) )
      )
      (IF (> P-EAD (DTR 180))
      (SETQ P-EAD (- (DTR 360) P-EAD ) )
      )
      (SETQ
      P-EAD2 (/ P-EAD 2)
      P-EAL (- (DTR 90) P-EAD2 )
      )
      (SETQ RD (GETREAL “Distance ? :”))

      (SETQ RD2 (/ (/ RD 2 ) ( COS P-EAL ) ) )

      (SETQ
      E1P2 (POLAR IP P-E1A RD2)
      E2P2 (POLAR IP P-E2A RD2)
      )

      (COMMAND
      “LINE” E1P2 E2P2 “”
      )
      (SETQ
      NL-MP (POLAR E1P2 (ANGLE E1P2 E2P2) (/ RD 2) )
      NP-1ESP (POLAR IP (ANGLE IP E1P2) RD )
      NP-2ESP (POLAR IP (ANGLE IP E2P2) RD )
      )

      (COMMAND “FILLET” NL-MP NP-1ESP
      “FILLET” NL-MP NP-2ESP
      )

      (setvar “osmode” old-osm) ; 추가
      (princ)
      )

      • 0