Zoom affects LISP
That looks like the effect of having running Object Snap modes on. Turn off Osnap [F3 key] and see whether it works as expected. It can be built into the command if you like, including saving the current setting first, and restoring it at the end.
Also, it's far better to draw the Polyline this way:
(command "_PLINE" "2.5,5" "5,2.5" "5,-2.5" "2.5,-5" "-2.5,-5" "-5,-2.5" "-5,2.5" "-2.5,5" "_close")
because the way you have it, there are two vertices in the same place, which can cause trouble with certain operations.
Regards @andelo523
In a clean drawing your code will work fine, but in another with many entities around it, you will have problems with the object snap magnet activated. Temporary F3 is an option, otherwise you can do the same within code. Here I attach two ways to do it.
(defun c:UMF8 (/ pt1)
(setq pt1 (getpoint "\nPick point: "))
(command "_ucs" pt1 "")
(command "_PLINE" "NONE" "2.5,5" "NONE" "5,2.5" "NONE" "5,-2.5" "NONE" "2.5,-5" "NONE" "-2.5,-5" "NONE" "-5,-2.5" "NONE" "-5,2.5" "NONE" "-2.5,5" "NONE" "2.5,5" "C")
(command "_ucs" "world" "")
(princ)
) ; end defun
;;;------------------------------------------------------------------------------------------------------------
(defun c:UMF8B (/ pt1)
(setq pt1 (getpoint "\nPick point: "))
(setq o (getvar 'osmode))
(setvar 'osmode 0)
(command "_ucs" pt1 "")
(command "_PLINE" "2.5,5" "5,2.5" "5,-2.5" "2.5,-5" "-2.5,-5" "-5,-2.5" "-5,2.5" "-2.5,5" "2.5,5" "C")
(command "_ucs" "world" "")
(setvar 'osmode o)
(princ)
) ; end defun
On the other hand, it is better to have a closed polyline; You can do them from the code with "C" or activate it from the properties box.
Carlos Calderon G
>Did you find this post helpful? Feel free to Like this post.
Did your question get successfully answered? Then click on the ACCEPT SOLUTION button.
Here's another [slightly shorter] way you can do it:
(command "_.rectang" "-5,-5" "5,5" "_.chamfer" "_d" 2.5 "" "_.chamfer" "_p" "_last")
Are you not getting trouble from the extra Enters "" at the ends of your Arc commands? Giving it three points completes the command, so is the "" not calling up the previous [pre-this-routine] command? Maybe you wouldn't notice if it was something like REDRAW....
There are at least two ways to do what you're looking for. Both would start by making an empty selection at the beginning:
(setq ss (ssadd))
One approach is, following every drawing command, to add what was just drawn to the set:
(ssadd (entlast) ss)
The other way is to mark the latest drawn thing beforehand:
(setq elast (entlast))
then draw everything, then run a (while) loop looking for newer things than what's in the 'elast' variable -- as long as (entnext) returns something, add it to the selection.
Having tried it and seen the result, I see that it's something you could have a routine draw as a Polyline directly, rather than drawing all the pieces and joining them together:
(command "_.pline" "1,0" "_w" 0 0
"_a" "_d" "90" (polar '(0 0) (/ pi 3) 1)
"_l" "@1<60"
"_a" "_d" "150" (polar '(0 0) (* (/ pi 3) 2) 2)
"_l" "@1<300"
"_a" "_d" "210" "-1,0"
"_l" "-2,0"
"_a" "_d" "270" (polar '(0 0) (* (/ pi 3) 4) 2)
"_l" "@1<60"
"_a" "_d" "330" (polar '(0 0) (* (/ pi 3) 5) 1)
"_l" "@1<300"
"_a" "_d" "30" "2,0"
"_l" "_close"
)You could also make it into a Block [and WBLOCK that out to a drawing file for use elsewhere], and just INSERT it wherever you want one, which would be a memory saver if there are many of them.
