topic Re: Lisp excute inconsisted result in Visual LISP, AutoLISP and General Customization Forum

Lisp excute inconsisted result

nam.lethai1995 — Fri, 14 Jul 2023 09:05:01 GMT

I dont even know to describe this. I am trying to write a lisp for auto dim, in which i will pre define a variable for dimesion line location but the defined variable is not always be consider when the lisp is excuted
(defun c:D2 ()
(while (not (equal (setq ent (entsel)) nil))
(progn
(setq dxf (entget (car ent)))
(setq start (cdr (assoc 10 dxf)))
(setq end (cdr (assoc 11 dxf)))
(command "dimaligned" start end)
(princ)
)
)
)
--------------------------------------------
(defun c:d11 ()
(setq d11 (getreal "nhap khoang cach"))
)
--------------------------------------------
(defun c:d1 ()
(setq ss (ssget)
len (sslength ss)
i 0
)
(if (not (boundp 'd11))
(setq D11 40)
)
(repeat len
(progn
(setq ent (ssname ss i)
entd (entget ent)
i (+ 1 i)
)
(if (eq (cdr (assoc 0 entd)) ' "LINE")
(progn
(setq start (cdr (assoc 10 entd))
end (cdr (assoc 11 entd))
)

(command "dimaligned"
start
end
(trans (polar start (+ (angle start end) (/ pi 2)) d11) 0 1)
""
))
)
(command "mirror" ent "" (cdr (assoc 13 entd)) (cdr (assoc 14 entd)) "Y")
)
)
)

Re: Lisp excute inconsisted result

Kent1Cooper — Fri, 14 Jul 2023 12:19:00 GMT

Turn off running Object Snap.

Re: Lisp excute inconsisted result

nam.lethai1995 — Fri, 14 Jul 2023 15:01:15 GMT

Wow, thanks you Kent, i had seen some one mentioned about turning off object snap when running lisp before but i never actually belive that it will be affective until now.

Re: Lisp excute inconsisted result

Kent1Cooper — Fri, 14 Jul 2023 15:08:54 GMT

@nam.lethai1995 wrote:

Wow, thanks you Kent, i had seen some one mentioned about turning off object snap when running lisp before but i never actually belive that it will be affective until now.

It matters only when the code includes drawing or editing commands in (command) functions that involve specifying locations -- they will be subject to Osnap settings. This is nearly always the cause of the trouble when things are drawn but end up in different locations than expected, somehow.

For a lot of things, making them with (entmake) instead of with (command) functions gets around the issue, because it is not subject to Osnap settings. But making Dimensions that way is very complex.

You will find many routines in the Forums with that built in, to do the same in yours, including saving the current setting first and restoring it afterwards.