Jytra Engineering Services is a specialized company in India in the fields of CAD, CAM, Product Development, Engineering Changes, CAD Customization and Design Automation. With their vast experience on various global projects, they have designed a special training program for prospect Engineers interested in AutoLISP (Auto LISP).

We cover right from basics to the advanced level in LISP. The major topics are mentioned below:

• Introduction


• Programming Interface


• VLIDE


• Syntax


• Logic Cotrols


• DCL Programming


• VBA Interface


• Application Development


• File Management

We will also include "two dummy projects" so that the trainees will get more confidence to work on projects independently.

If you are interested to avail this special training at an optimum price, contact us today.

; This program creates a polygon in autocad programmatically
; By accepting number of sides and side length
; Created by Jytra Engineering Services (www.jytra.com)

(defun c:drawpoly()
(setq sides (getint "\n Enter number of sides: "))
(setq size (getreal "\n Enter side of the polygon : "))
(setq length1 (rtos size))
(setq angle1 (/ 360 sides))
(setq newpt (getpoint "\n Pick the starting point:"))
(setq count 0)

(while (< count sides)
(setq angl (* count angle1))
(setq ang (rtos angl))
(setq tmp (command "line" newpt (strcat "@" length1 "<" ang) ""))
(setq tmp (entget (entlast)))
(setq newpt (cdr (assoc 11 tmp)))
(setq count (1+ count))
)
)

; This program aceepts start, end and increment values
; Find the numbers in between and place them as text in AutoCAD session

(defun c:steninc()
(initget)
(setq start (getint "Enter Start Value: "))
(initget 1)
(setq end (getint "Enter End Value: "))
(initget 1)
(setq inc (getint "Enter Increment Value: "))
(setq count (- start inc))
(setq x 0)

(while (< count end)
(setq count (+ count inc))
(setq pt (list x 0 0))
(command "TEXT" pt "2" "0" (itoa count) "")
(setq x (+ x 10))
)
)