Topic: Routine wanted to modifile

[kottok]

i wanted to put a constant correction angle inside the routine,how to do it?
 thanks!

[Peter2]

Maybe I don't understand the functionality and your question, but try this.

a)
backup the current code!

b)
Replace

Code - Auto/Visual Lisp: [Select]

1. (setq Ang "" dist 0)

with

Code - Auto/Visual Lisp: [Select]

1. ;;;; (setq Ang "" dist 0)
2. (setq Ang "1234.5" dist 0)

Replace 1234.5 with the value you need. Keep the quotes ""

c) Replace

Code - Auto/Visual Lisp: [Select]

1.         (setq AngTMP Ang)
2.         (if(=(setq Ang(getstring  (strcat "\nSpecify Bearing <" Ang ">: ")))"")
3.           (setq Ang AngTMP )
4.         )
5.  

with

Code - Auto/Visual Lisp: [Select]

1. ;;;;        (setq AngTMP Ang)
2. ;;;;        (if(=(setq Ang(getstring  (strcat "\nSpecify Bearing <" Ang ">: ")))"")
3. ;;;;          (setq Ang AngTMP )
4. ;;;;        )
5.  

The unneeded, original code is not deleted; it is commented for a quick restauration.

Try it.

Untested, no guarantee!

[kottok]

Thanks Peter , i will try it.

[kottok]

Hi Peter,

i added a DCL , but the result not satisfied.