Writing a Lisp to Draw I-beam

Answer 1

(defun c:100()

(setq a1 (getpoint "\n ISMB 100 Column pick first point:"))

(setq a2 (getreal "\n Column Hight:"))

(setq os (getvar "osmode"))

(setvar "osmode" 0)

(setq pol1 (polar a1 0.0 50))

(setq pol2 (polar pol1 1.5708 7))

(setq pol3 (polar pol2 3.14159 22.65))

(setq pol4 (polar pol3 1.5708 86))

(setq pol5 (polar pol4 0.0 22.65))

(setq pol6 (polar pol5 1.5708 7))

(setq pol7 (polar pol6 3.14159 50))

(setq pol8 (polar pol7 4.71239 7))

(setq pol9 (polar pol8 0.0 22.65))

(setq pol10 (polar pol9 4.71239 86))

(setq pol11 (polar pol10 3.14159 22.65))

(setq pol12 (polar pol11 4.71239 7))

(command "pline" a1 pol1 pol2 pol3 pol4 pol5 pol6 pol7 pol8 pol9 pol10 pol11 "c" "")

(command "region" "l" "")

(command "EXTRUDE" "l" "" a2 )

(command "_vpoint" "r" 315 25 "")

(setvar "osmode" os)

(setvar "cmdecho" 1)(princ)

)(prompt"\n Please Enter 100 command")(princ)

 

This programming ISMB100