how to other method

>")

(setvar "OSMODE" 15359)

(setvar "CLAYER" OldLay)

);end while

);end defun[/code]*** sorry i no good english ***

Perhaps you can use this lisp from Lee Mac?

http://www.lee-mac.com/boxtext.html

Thanks Lee!

i want to apply this lisp for other method.

*** sorry i no good english ***

First of all, you need to describe exactly what you intend to achieve – if is tough to do it in English, then try to post a descriptive picture.

On the code you posted, I have some comments:

• the source for UDIST function is missing.
  
• there is no condition to be evaluated to exit the WHILE cycle – the user need to end the run with or let it crash by no inputting points. Try something like this instead:
  

(while (and (setq pt1 (getpoint "\nPick first point : "))
           (setq pt2 (getpoint "\nPick End point : ")))







...

• why replace OSMODE system variable with a built-in value when you stored user setup?
  

 (setvar "OSMODE" [s]15359[/s] OSN)

No offence, but people may be reluctant to assist you on this since in the past you started many discussions and never provided enough information and/or feedback; I’m still curios which solution on this issue is the right one.

First of all, you need to describe exactly what you intend to achieve – if is tough to do it in English, then try to post a descriptive picture.

 

On the code you posted, I have some comments:

 

• the source for UDIST function is missing.
  
• there is no condition to be evaluated to exit the WHILE cycle – the user need to end the run with or let it crash by no inputting points. Try something like this instead:
  

(while (and (setq pt1 (getpoint "\nPick first point : "))
           (setq pt2 (getpoint "\nPick End point : ")))







...

 

• why replace OSMODE system variable with a built-in value when you stored user setup?
  

 (setvar "OSMODE" [s]15359[/s] OSN)

 

 

No offence, but people may be reluctant to assist you on this since in the past you started many discussions and never provided enough information and/or feedback; I’m still curios which solution on this issue is the right one.

i am sorry

The point is not to make you feel sorry, but to persuade to provide more information and feedback on your threads. Please help us to help you.

this lisp in vdo