Topic: vla-get-arcsmoothness

[ronjonp]

So why does:

Code: [Select]

(vla-get-arcsmoothness
  (vla-get-activeviewport
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
  )
)
Corresponds to what the drawings viewres is set currently set to but when you use:

Code: [Select]

(vla-put-arcsmoothness
  (vla-get-activeviewport
    (vla-get-ActiveDocument (vlax-get-Acad-Object))
  )
  5000
)
It changes the vla-get-arcsmoothness number but has no effect on the viewres number?

[ElpanovEvgeniy]

It is necessary to change customizations viewres and to make its current!
look
http://www.theswamp.org/index.php?topic=12382.msg153483#msg153483

[ElpanovEvgeniy]

Code: [Select]


(vla-put-arcsmoothness
  (setq v (vla-get-activeviewport
            (setq doc(vla-get-ActiveDocument (vlax-get-Acad-Object)))
          ) ;_  vla-get-activeviewport
  ) ;_  setq
  5000
) ;_  vla-put-arcsmoothness
(vla-put-ActiveViewport doc v)



[ronjonp]

Thank you . This is what i came up with.

Code: [Select]

(defun setvres (/ doc actvp)
  (setq doc   (vla-get-ActiveDocument (vlax-get-Acad-Object))
actvp (vla-get-activeviewport doc)
  )
  (if (/= (vla-get-arcsmoothness actvp) 5000)
    (vla-put-arcsmoothness actvp 5000)
  )
  (vla-put-activeviewport doc actvp)
  (princ)
)
(setvres)