Topic: polar angle direction

[DEVITG]

There is any way to change the polar angle direction?

Normaly it is 0 to E , 90 North, 180 W,  270 South

I want to make  0 to East , 90 South, a80 West and 270 North .

Which system variable handle it??

   

[daron]

Under units make it clockwise, but why would you want to do this?

[CAB]

That's the thing that will crash or render many lisp routines useless.
Most lisp routines, mine included, don't test variable "ANGDIR".
So you might want to use it sparingly & set it back when done.

CAB

[DEVITG]

I had made some trials and ANGDIR does not change the POLAR angle orientation.

Why I want to do so?

Drawing elbosw it can be drawn in both directions .

Does not matter if ANGDIR is 0 or 1 it allwais draw the elbows CCW , I want to draw it in any one direction CCW or CW

Please see the following code, please apologize me for the so scrach way to LISP

 

Code: [Select]




(defun z9 ()  ;USE IT AFTER DRAWING ANY THING SO YOU CAN SEE IF IT IS OUT OF SCREEN
  (COMMAND "._zoom" "E")  ;ZOOM TO EXTENT
  (COMMAND "VIEWRES" "Y" 15000)
  (COMMAND "._ZOOM" "0.9X")  ; ZOMM TO 0.9 SCALE
)
(SETQ VAR 0)
(DEFUN PR1 (name value )
  (SETQ VAR (1+ VAR))

  (prinT "this variable.....")
  (PRIN1 VAR)

  (PRINT "---------------------")
  (Print name)
  (PRINT "---------------------")
  (prinT "have this value...")
  (prinT value)
  (PRINT "---------------------")
)  ;end defun pr1
 ;_RAD TO DEG AND DEG TO RAD
(defun RTD (X) ;define  RADIAN  TO DEGREE function
  (/ (* X 180.0) P) ; MULTIPLY THE RAD ING BY 180  AND DIVIDE IT BY PI
);_end rtd
(defun DTR (X) ;define DEGREE to RADIAN function
  (/ (* X p) 180.0)
) ;_end dtr
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

(DEFUN FIJ ()

;(SETQ ALFA 0.0)

(SETQ A 12.0) ;12 IS THE A DUCT SIZE
(pr1 "aaa   "  a)
(SETQ B 12.0)
(pr1 "bbbb   "  B)

(SETQ URIG (LIST 0.0 0.0 0.0)) ;THIS IS THE C RADIOUS CENTER , AT 0X 0Y 0Z  
(pr1 "URIG    "  URIG)
(SETQ ALFA 90.0) ;ORIENTATION ANGLE
(pr1 "ALFA   "  ALFA)
 
(setvar "angdir" 1)            
(setq ang# -90)
(pr1 "ANG#   ...   " ANG#)
 
;;;(setvar "angdir" 0)
;;;(setq ang# 90)
);_end
;;*//*/*/*/*/*/*/*/*/*/*/*/*/**/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*/*

;_START THE CALCS
(DEFUN CALC ()
(PR2)

  (SETQ C (* A 1.5)) ;IT IS THE C RADIOUS AS  1.5 OF A
(pr1 "CCCC   "  C)
  (SETQ D (* A 0.25))  ; THE ELLBOW'S STRAIGHT PART

  (pr1 "DDDD....   "  D)
  (setq pt1 urig)
  (pr1 "PT1 ...   "  PT1)

  (setvar "pdmode" 34)
  (setvar "pdsize" 2)
  (command "point" pt1)

  (setq alfa (dtr alfa))  ;CONVERT ALFA FROM DEGREE TO RADIAN

 
(pr1 "alfa "  alfa)
 
  (setq alfa (- alfa))
(pr1 "--alfa "  alfa)

  (setq pt2 (polar pt1 (+ alfa p270) a))
(pr1 "PT2    "  PT2)

  (setq pt3 (polar pt2 (+ alfa p180) d))
(pr1 "PT3   "  PT3)
  (Setq pt4 (polar pt3 (+ alfa p2) a))
(pr1 "PT4    " PT4)
  (command "line" pt1 pt2 pt3 pt4 "c")
  (setq pt10 (polar pt3 (+ alfa p270) c))
(pr1 "PT10   "  PT10)
  (setq pt5 (polar pt10 (+ alfa p180) c))
  (pr1 "PT5   "  PT5)
  (setq pt6 (polar pt5 (+ alfa p270) d))
  (pr1 "PT6    "  PT6)
  (setq pt7 (polar pt6 (+ alfa p180) b))
  (pr1 "PT7   "  PT7)
  (setq pt8 (polar pt7 (+ alfa p2) d))
  (pr1 "PT8   "  PT8)
  (command "line" pt5 pt6 pt7 pt8 "c")


  (command "arc" "c" pt10 pt3 pt5)

  (command "arc" pt4 "E" pt8 "A" ang#)

) ;_END CALCS

;******************************************************************************************
(defun c:polr ()
(fij)
  (calc)
(Z9)
) ;_end defun

[SMadsen]

Could you switch direction with +/- ?

[DEVITG]

I  guess I can make it changing anly one value.