TheSwamp

Code Red => AutoLISP (Vanilla / Visual) => Topic started by: kottok on March 24, 2017, 03:12:31 AM

Title: Routine wanted to modifile
Post by: kottok on March 24, 2017, 03:12:31 AM

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

Title: Re: Routine wanted to modifile
Post by: Peter2 on March 24, 2017, 04:18:31 AM

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!

Title: Re: Routine wanted to modifile
Post by: kottok on March 24, 2017, 04:54:34 AM

Thanks Peter , i will try it.

Title: Re: Routine wanted to modifile
Post by: kottok on March 24, 2017, 11:55:22 PM

Hi Peter,

i added a DCL , but the result not satisfied.