Topic: Making a polyline start on a specific angle

[iliekater]

I can easily start a polyline on a specific angle (or change it in any time) by simply using

Code: [Select]

<30for example on 30 degrees .
My Problem is that I can't do it with AutoLISP code . This problem haunted me for years , but I forgot about that until recently when I once again needed to do that .
Can anyone help me specify the angle with code ?

[ronjonp]

Something like (setvar 'snapang angle) (setvar 'orthomode 1)....you can also use polar to get a point at angle at a specified distance.

Ron

[iliekater]

Yes , but I don't the next point . I only know the starting point ; I want to let the user specify the points he desires (on a specific angle) . I'll ty tomorrow the snapang you adviced me . By the way : why you quote the variable's name ?

[ronjonp]

Just personal preference...like it better than using (setvar "snapang" ang).

[CAB]

Try this:

Code: [Select]

(defun c:test()
  (vl-cmdf "._pline" pause "<30" pause)
)

[DHOPP]

I have been messing with this (Cab helped me start this) anyway

Code: [Select]

(defun c:ga (/ ANG ANGVAR ORTHMODE PT1)
  (setq ang (getangle "\nStart angle?: ")
angvar (getvar 'snapang)
orthmode (getvar 'orthomode)
)
  (setq pt1 (getpoint "\nStart point: "))
  (setvar 'snapang ang)
  (setvar 'orthomode 1)
  (command "._pline"
   pause ang"" pt1
  )
  (setvar 'snapang angvar)
  (setvar 'orthomode orthmode)
  (princ)
)
It would be nice if I could go back and forth from previous angle to the angle I got when routine begins, or maybe I need to work mline into this with 90 degree endcaps...for another night I guess

[CAB]

Use the one Jeff gave you and replace "._line" with "._pline"
http://forums.augi.com/showpost.php?p=788852&postcount=2

[CAB]

Here I'll help with the modifications:
How does this work?

Code: [Select]

(defun c:ga (/ ANG ANGVAR ORTHMODE PT1)
  (setq ang (getangle "\nStart angle?: ")
angvar (getvar 'snapang)
orthmode (getvar 'orthomode)
  )
  (setq pt1 (getpoint "\nStart point: "))
  (setvar 'snapang ang)
  (setvar 'orthomode 1)
  (command "._pline"
   pt1
   pause
  )
  (setvar 'snapang angvar)
  (setvar 'orthomode orthmode)
  (princ)
)

[ronjonp]

I'm not sure how arbitrary the angles being used are...but it seems like turning polar tracking on and adding any additional angle increments would do the trick.

[DHOPP]

Here I'll help with the modifications:
How does this work?

Code: [Select]

(defun c:ga (/ ANG ANGVAR ORTHMODE PT1)
  (setq ang (getangle "\nStart angle?: ")
angvar (getvar 'snapang)
orthmode (getvar 'orthomode)
  )
  (setq pt1 (getpoint "\nStart point: "))
  (setvar 'snapang ang)
  (setvar 'orthomode 1)
  (command "._pline"
   pt1
   pause
  )
  (setvar 'snapang angvar)
  (setvar 'orthomode orthmode)
  (princ)
)

works better than mine, I was close....I learn a lot from you

[CAB]

Glad to have helped & thanks to Jeff too.

[iliekater]

Thanks ronjonp , I played with the two system variables you suggested and I did it ! 
Now I will give it a try with CAB's code (vl-cmdf) .