how to other method

[git_thailand]

>")

(setvar "OSMODE" 15359)

(setvar "CLAYER" OldLay)

 

);end while

 

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

Edited February 12, 2015 by git_thailand

[Dadgad]

Perhaps you can use this lisp from Lee Mac?

 

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

 

Thanks Lee!

[git_thailand]

i want to apply this lisp for other method.

 

 

*** sorry i no good english ***

[MSasu]

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.

[git_thailand]

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

[MSasu]

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.

[git_thailand]

http://s1032.photobucket.com/albums/a409/git_thailand/?action=view&current=QTB.mp4 Edited September 9, 2012 by git_thailand

[git_thailand]

this lisp in vdo