Welcome,
Guest
. Please
login
or
register
.
1 Hour
1 Day
1 Week
1 Month
Forever
Login with username, password and session length
News:
Home
Help
Login
Register
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Routine wanted to modifile
« previous
next »
Print
Pages: [
1
] |
Go Down
Author
Topic: Routine wanted to modifile (Read 1454 times)
0 Members and 1 Guest are viewing this topic.
kottok
Mosquito
Posts: 3
Routine wanted to modifile
«
on:
March 24, 2017, 03:12:31 AM »
i wanted to put a constant correction angle inside the routine,how to do it?
thanks!
Logged
Peter2
Swamp Rat
Posts: 654
Re: Routine wanted to modifile
«
Reply #1 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]
(
setq
Ang
""
dist
0
)
with
Code - Auto/Visual Lisp:
[Select]
;;;; (setq Ang "" dist 0)
(
setq
Ang
"1234.5"
dist
0
)
Replace 1234.5 with the value you need. Keep the quotes ""
c) Replace
Code - Auto/Visual Lisp:
[Select]
(
setq
AngTMP Ang
)
(
if
(
=
(
setq
Ang
(
getstring
(
strcat
"
\n
Specify Bearing <"
Ang
">: "
)
)
)
""
)
(
setq
Ang AngTMP
)
)
with
Code - Auto/Visual Lisp:
[Select]
;;;; (setq AngTMP Ang)
;;;; (if(=(setq Ang(getstring (strcat "\nSpecify Bearing <" Ang ">: ")))"")
;;;; (setq Ang AngTMP )
;;;; )
The unneeded, original code is not deleted; it is commented for a quick restauration.
Try it.
Untested, no guarantee!
Logged
Peter
AutoCAD Map 3D 2023 German (so some technical terms will be badly retranslated to English)
BricsCAD V23
kottok
Mosquito
Posts: 3
Re: Routine wanted to modifile
«
Reply #2 on:
March 24, 2017, 04:54:34 AM »
Thanks Peter , i will try it.
Logged
kottok
Mosquito
Posts: 3
Re: Routine wanted to modifile
«
Reply #3 on:
March 24, 2017, 11:55:22 PM »
Hi Peter,
i added a DCL , but the result not satisfied.
Logged
Print
Pages: [
1
] |
Go Up
« previous
next »
TheSwamp
»
Code Red
»
AutoLISP (Vanilla / Visual)
»
Topic:
Routine wanted to modifile