Lisp routine doesnt work properly

[roger.gv694110]

Dear friends:

I'm a begginer. I've made a small rutine that draws a cone and some circles over it. But, some cases it works well, but, in other cases, the circles are not drawed correctly. The "pendiente" is the slope of the cone. When the slope is low, the circles are drawed all in the same plane.

(defun c:cono ()

(setq v (getpoint "\nVertice:"))
(setq p (getreal "\nIngrese la pendiente %:"))
(setq r 400)
(setq a (* r (/ p 100)))
(setq p1 (list (car v) (cadr v) (- (caddr v) a)))
(command "cone" p1 r a)
(setq j a)

(while (> j 0)

(setq z (- (caddr v) j))
(setq p2 (list (car v) (cadr v) z))
(command "circle" p2 (/ j (/ p 100)))
(setq j (- j 1))

)

)


Please someone help me.

[Tharwat]

Hi,
Try to add the "_none" before the coordinate points p1 & p2 to ignore current settings of your AutoCAD OSNAPS.

[devitg.89838]

Prueba con esto , la variable OSMODE , indica los modos de snap , puesta en 0 , significa "_none"

OSMODE (System Variable)

Sets running object snaps.

Type: Bitcode
Saved in: Registry
Initial value: 4133
The setting is stored as a bitcode using the sum of the following values:

Value
Description
0 NONe
1 ENDpoint
2 MIDpoint
4 CENter
8 NODe
16 QUAdrant
32 INTersection
64 INSertion
128 PERpendicular
256 TANgent
512 NEArest
1024 Geometric CEnter
2048 APParent Intersection
4096 EXTension
8192 PARallel
16384 Suppresses the current running object snaps
To specify more than one running object snap, enter the sum of their values. For example, entering 3 specifies the Endpoint (bitcode 1) and Midpoint (bitcode 2) object snaps.

Note: Developers creating custom routines can use the 16384 bitcode to temporarily suppress the current running object snap settings without losing the original settings.

(defun c:cono ()
(setq v (getpoint "\nVertice:"))
(setq p (getreal "\nIngrese la pendiente %:"))

;;;(setq v (list 0 0 0))
;;;(setq p 100)
  
(setq r 400)
(setq a (* r (/ p 100)))
(setq p1 (list (car v) (cadr v) (- (caddr v) a)))
(setq osmode (getvar 'osmode)); get osmode
(setvar 'osmode 0)  ;set osmode to 0 , no snap
(command "cone" p1 r a)
(setq j a)
(while (> j 0)
(setq z (- (caddr v) j))
(setq p2 (list (car v) (cadr v) z))
(command "circle" p2 (/ j (/ p 100)))
(setq j (- j 1))
)
(setvar 'osmode osmode); reset to original osmode   
)