Help with my code

[javier-perez1956746375]

Thanks in advance for anyone who can help with this one.
I wrote this code to draw and angle profile ( L Shape). The code work fine, but i can only insert it a 0,0. If i insert it on any other part of the screen it reacts strange. Please explain in detail what is going wrong with my code. I wan t to learn! I am using Autocad 2016 on a windows platform.

Thanks All

[avinash patil]

Hi
Here I have attached my code.

Code:

(Defun C:A-PROFILE ()
(command "._layer" "_M" "SECTION" "")
(setq cmd1 (getvar"cmdecho" ))
(setvar "osmode" 0)
(Setq pt1 (getpoint "\nEnter the point: ")) ;Starting point;
(setq W (getdist "\nEnter the Width: "))
(setq H (getdist "\nEnter the Hieght: "))
(setq T1 (getdist "\nEnter the Horizontal Thickness T1: "))
(setq T2 (getdist "\nEnter the Vertical Thickness: T2"))
(setq pt2 (polar pt1 0 w))
(setq pt3 (polar pt1 (/ pi 2.0) h))
(setq pt4 (polar pt2 (/ pi 2.0) t1))
(setq pt5 (polar pt3 0 t2))
(setq pt6 (polar pt5 (* 1.5 pi) (- h t1)))
(command "line" pt1 pt3 pt5 pt6 pt4 pt2 pt1 "")
(setvar "osmode" 16383)
(princ)
)

[devitg.89838]

Hola Javier Perez , me imagino hablas Español
Cometes el error que TODOS los aprendices de LISP cometimos

El problema al dibujar con la linea de COMANDOS (command), es que si las referencia-objetos ( osnap) tienen un valor distinto de 0 , el comando le hace caso a las osnap , luego debes ponerla a 0
Es una buena costumbre dejar el dwg tal como estaba antes de comenzar el LISp , el modo OSNAP se controla con la variable de sistema OSMODE

Luego se puede poner

al principio

(setq osmode (getvar 'osmode))
(setvar 'osmode 0)

haces todo lo que quieres hacer

(setvar 'osmode osmode)

El valor del osmode es una variable que se dice BITWISE , o peso de BIT o BITCODED , y es la suma de las potencia de 2 que corresponde a cada tipo de OSMODE que quieras

esta son los valores para OSMODE

;;;0 NONe
;;;1 ENDpoint
;;;2 MIDpoint
;;;4 CENter
;;;8 NODe
;;;16 QUAdrant
;;;32 INTersection
;;;64 INSertion
;;;128 PERpendicular
;;;256 TANgent
;;;512 NEArest
;;;1024 QUIck
;;;2048 APParent Intersection
;;;4096 EXTension
;;;8192 PARallel
;; IF OSMODE VAL = 1+2+4 = 7 IT WILL DO END MID AND CENTComo sabrás , todo número entero se puede expresar como la suma de los cuadrados de 2 y para cada numero enter corresponde un única combinación de los cuadrados de 2

Espero lo hayas entendido .
Cualquier duda , pregunta a mi correo mi usuario-sin-numero en el correo g

Saludos desde Argentina .

[javier-perez1956746375]

Muchas gracias por su ayuda.
Saludos de Arizona USA

- - - Updated - - -

Thank You so very much for your help. The program works perfect.
I will continue to study and learn.

[devitg.89838]

Esta es la imagen de primer libro LISp

[BIG-AL]

The way to go is write 1 bit of code for each shape and read a data file that matches the sizes 100x100A,100,100,6,6,3

If you google look for "Als steel works" a great lisp library of common structural shapes.

- - - Updated - - -

The way to go is write a small bit of code for each shape and read a data file 100x100A,100,100,6,6,3 100 angle 6 mm thick 3 mm radius.

[devitg.89838]

Adjunto ejemplar del curso basico de lisp.

[avinash patil]

The zip file is corrupted.

[devitg.89838]

Find attached