Topic: Drawing a polyline (well it's more complicated than that)

[GDF]

Nothing wrong with that Gary.
I almost always prefer getdist over getreal and I would use this

Code: [Select]

(or a (setq a 0.0))just a personal preference.

Merry Christmas
Alan

Thanks Alan

[gile]

Hi Gary,

Look at the getangle and getorient functions: as the getdist function, they allow to input the angle on the keyboard (according to current units) or with the cursor, and they return the angle in radians.

I'd rather write it like this

Code: [Select]

(defun c:DP (/ pt ofs ang ll lr ur ul)
  (if (setq pt (getpoint "\nPick point for center of rectangle *"))
    (progn
      (or (setq ofs (getdist pt "\nEnter offet value [offset 50]: "))
  (setq ofs 50.0)
      )
      (or (setq ang (getorient pt "\Enter angle [0 degrees]: "))
  (setq ang 0.0)
      )
      (setq ll (polar pt (- ang (* pi 0.75)) (sqrt (* (* ofs ofs) 2)))
    lr (polar pt (- ang (/ pi 4)) (sqrt (* (* ofs ofs) 2)))
    ur (polar pt (+ ang (/ pi 4)) (sqrt (* (* ofs ofs) 2)))
    ul (polar pt (+ ang (* pi 0.75)) (sqrt (* (* ofs ofs) 2)))
      )
      (makePline (list ll lr ur ul) 1 "LayerName")
    )
  )
  (princ)
)

[GDF]

Thanks Gile

I knew there had to be a better way.

[iliekater]

Maybe it''s silly but what's the difference between getangle and getorient ?

[hmspe]

Maybe it''s silly but what's the difference between getangle and getorient ?

getorient is always the angle measured from the positive X axis.  getangle is a relative angle.  Using a pi/2 value with getorient will always give a line lying along the positive Y axis.  Using a pi/2 value with getangle will give a line rotated 90 degrees clockwise from whatever the angle of the base object is.

The definitions are in Help under Contents/Customization Guide/AutoLISP, Visual LISP, and DXF.