
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Ok, I'm not sure what is going on here but in my program using polar anything over 45 deg polar starts to go backwards. For example if 60 deg is entered it gives me and angle at 30 deg. Yet in a test I made in the same program it works fine.
Here is the section of my program that im talking about:
(setq pltinrad (+ tankdiam 8))
(setq pltoutrad (+ tankdiam (+ 8 (nth rn RSPDEPTH))))
(setvar 'clayer "Radial Trim1")
(command "CIRCLE" TANKCTR pltinrad)
(setvar 'clayer "Radial Trim2")
(command "CIRCLE" TANKCTR pltoutrad)
(setq lninpt1 (list TANKTOCXXL (+ TANKTOCYL pltinrad)))
(setq lnoutpt1 (list TANKTOCXXL (+ TANKTOCYL pltoutrad)))
(setvar 'clayer "Radial Trim3")
(command "line" lninpt1 lnoutpt1 "")
(setq endang (- (nth rn RSPEORIENT) (nth rn RSPSORIENT)))
;; TEST
(setq ang 0)
(repeat 9
(setq endangp (* PI (/ ang 180.0)))
(setq lninpt2 (polar TANKCTR endangp pltinrad))
(setq lnoutpt2 (polar TANKCTR endangp pltoutrad))
(prompt "\n ang: ")
(princ ang)
(prompt "\n")
(prompt "\n endangp: ")
(princ endangp)
(prompt "\n")
(setvar 'clayer "Pipe2")
(command "line" lninpt2 lnoutpt2 "")
(setq ang (+ ang 10))
)
;; End TEST
(setq endangp (* PI (/ endang 180.0)))
(setq lninpt2 (polar TANKCTR endangp pltinrad))
(setq lnoutpt2 (polar TANKCTR endangp pltoutrad))
(setq mirang (/ endang 2))
(setq mirangp (+ (/ (* mirang PI) 180) (/ PI 4)))
(setq mirlnpt (polar TANKCTR mirangp pltoutrad))
(setvar 'clayer "Radial Trim4")
(command "line" lninpt2 lnoutpt2 "")
(prompt "\n endang: ")
(princ endang)
(prompt "\n")
(prompt "\n endangp: ")
(princ endangp)
(prompt "\n")
at 60 deg. the output is drawing4 and :
ang: 60
endangp: 1.0472
endang: 60.0
endangp: 1.0472
at 45 deg. the output is drawing4-2 and :
ang: 40
endangp: 0.698132
ang: 50
endangp: 0.872665
endang: 45.0
endangp: 0.785398
Can anyone explane what is going on?
Solved! Go to Solution.