Steel Section Lisp

[Anonymous]

I am getting the following error (argument type: stringp nil) on the lisp below on my new computer but the same lisp still work on my old computer. Please help.

(defun ATG:DOT ()
(princ" ")
)

(ATG:DOT)

(defun ATG:START ()
(prompt "YOU ARE USING STEEL MANAGER VERSION 5.1")
(setq ATGCMDE (getvar "CMDECHO"))
(setq ATGBLIP (getvar "BLIPMODE"))
(setq ATGOSMD (getvar "OSMODE"))
(setq ATGHPNM (getvar "HPNAME"))
(setq ATGHPSC (getvar "HPSCALE"))
(setq ATGHPANG (getvar "HPANG"))
(if (not ATGMYPHLK)
(setq ATGMYPHLK "1")
)
(if (not ATGMYHPNM)
(setq ATGMYHPNM "ANSI32")
)
(if (not ATGMYHPSC)
(setq ATGMYHPSC 1.5)
)
(if (not ATGMYHPAN)
(setq ATGMYHPAN 0.0)
)
(if (not ATGMYHPCO)
(setq ATGMYHPCO "1")
)
(setq ATGCECOLR (getvar "CECOLOR"))
(setq ATGOLDERR *error*)
(setq *error* ATG:NEWERR)
(setvar "CMDECHO" 0)
(setvar "BLIPMODE" 0)
(setvar "OSMODE" 0)
)
(ATG:DOT)
(defun ATG:FIN ()
(princ)
(setvar "CMDECHO" ATGCMDE)
(setvar "BLIPMODE" ATGBLIP)
(setvar "OSMODE" ATGOSMD)
(setvar "HPNAME" ATGHPNM)
(setvar "HPSCALE" ATGHPSC)
(setvar "HPANG" ATGHPANG)
(setvar "CECOLOR" ATGCECOLR)
(setq *error* ATGOLDERR)
(setq ATGCMDE nil)
(setq ATGBLIP nil)
(setq ATGOSMD nil)
(setq ATGOLDERR nil)
(princ)
)
(ATG:DOT)

(defun ATG:NEWERR (msg)
(progn
(setq *error* ATGOLDERR)
(ATG:FIN)
)
(princ msg)
(princ)
)

(ATG:DOT)

(defun ATG:DTR (a)
(* pi (/ a 180.0))
)

(defun ATG:RTD (a)
(/ (* a 180.0) pi)
)

(ATG:DOT)

(defun ATG:DAT ( /W_SHPDAT L_SHPDAT TS_SHPDAT P_SHPDAT )
(defun W_SHPDAT ()
(setq d (atof (substr str 16 10))
tw (atof (substr str 26 10))
bf (atof (substr str 36 10))
tf (atof (substr str 46 10))
k (atof (substr str 56 10))
wgt (atof (substr str 66 10))
ar (atof (substr str 76 10))
ix (atof (substr str 86 10))
sx (atof (substr str 96 10))
rx (atof (substr str 106 10))
iy (atof (substr str 116 10))
sy (atof (substr str 126 10))
ry (atof (substr str 136 10))
r (- k tf)
)
(ATG:W_DATA)
)

(defun L_SHPDAT ()(setq d 0 tw 0 bf 0 tf 0 k 0
wgt (atof (substr str 66 10))ar (atof (substr str 76 10))ix (atof
(substr str 86 10))sx (atof (substr str 96 10))rx (atof (substr
str 106 10))iy (atof (substr str 116 10))sy (atof (substr str 126
10))ry (atof (substr str 136 10)))(ATG:W_DATA))(defun TS_SHPDAT
()(setq d 0 tw 0 bf 0 tf 0 k 0 wgt (atof (substr str 56 10))ar
(atof (substr str 66 10))ix (atof (substr str 76 10))sx (atof
(substr str 86 10))rx (atof (substr str 96 10))iy (atof (substr
str 106 10))sy (atof (substr str 116 10))ry (atof (substr str 126
10)))(ATG:W_DATA))(defun P_SHPDAT ()(setq d 0 tw 0 bf 0 tf 0 k 0
wgt (atof (substr str 36 10))ar (atof (substr str 46 10))ix (atof
(substr str 56 10))sx (atof (substr str 66 10))rx (atof (substr
str 76 10))iy 0 sy 0 ry 0 )(ATG:W_DATA))(cond ((or (= shtp "W")(=
shtp "M")(= shtp "HP")(= shtp "S")(= shtp "C")(= shtp "MC")(=
shtp "WT")(= shtp "MT")(= shtp "ST"))(W_SHPDAT))((= shtp "L")
(L_SHPDAT))((= shtp "TS")(TS_SHPDAT))((= shtp "P")
(P_SHPDAT)))(princ))(ATG:DOT)(defun ATG:W_DATA ( / dcl_id5 ADAT
DEC_MODE AR_MODE DWGPR mymode myprec )(setq dcl_id5 (load_dialog
"STEE.dcl"))(if (not (new_dialog "ATGWDATA" dcl_id5)) (exit))(if
ATGSHPNAME (set_tile "atg_shpdes" ATGSHPNAME))(if (= ATGMYMODE
nil)(setq ATGMYMODE 1))(defun ADAT ()(if d (set_tile
"atg_shpdpth" (rtos d mymode myprec)))(if tw (set_tile
"atg_shpweb" (rtos tw mymode myprec)))(if bf (set_tile
"atg_shpflwth" (rtos bf mymode myprec)))(if tf (set_tile
"atg_shpflthk" (rtos tf mymode myprec)))(if k (set_tile
"atg_shpdimk" (rtos k mymode myprec)))(if ar (set_tile
"atg_shparea" (rtos ar 2 4)))(if wgt (set_tile "atg_shpwgt" (rtos
wgt 2 2)))(if ix (set_tile "atg_shpix" (rtos ix 2 2)))(if sx
(set_tile "atg_shpsx" (rtos sx 2 2)))(if rx (set_tile "atg_shprx"
(rtos rx 2 2)))(if iy (set_tile "atg_shpiy" (rtos iy 2 2)))(if sy
(set_tile "atg_shpsy" (rtos sy 2 2)))(if ry (set_tile "atg_shpry"
(rtos ry 2 2))))(defun DEC_MODE ()(setq mymode 2 myprec 4)(setq
ATGMYMODE 1)(ADAT))(defun AR_MODE ()(setq mymode 4 myprec 4)(setq
ATGMYMODE 2)(ADAT))(defun DWGPR (which)(cond ((= which "decdat")
(DEC_MODE))((= which "ardat") (AR_MODE))))(cond ((= ATGMYMODE 1)
(progn (set_tile "decdat" "1")(DEC_MODE)))((= ATGMYMODE 2) (progn
(set_tile "ardat" "1") (AR_MODE))))(action_tile "datpr" "(DWGPR
$value)")(action_tile "DATAOK"
"(done_dialog)")(start_dialog)(unload_dialog
dcl_id5))(ATG:DOT)

(defun C:STEE ( / dcl_id str fnme fspc insp xx rot shtp d tw bf tf k pt1 pt2 pt2a pt3 pt3a pt4 pt5 pt6 pt6a pt6b
pt7 pt8 pt9 pt10 pt11 pt12 pt13 pt14 pt15 pt16 tpd1 tpd2 tpp1
tpp2 tpp3 tpp4 lvt lhz ltk sset ennm e2 atgvc atgvs atgrs
ent_list r ar DWGSCL ATGBIG ATGSTRT ATGPTINS atglist atglist1
atglist2 shplist atgflnm atgfile atgcnt drawshp ix sx rx iy sy ry
wgt ATGCHGNAME ATGNMSET SHPFND ATGSHPNEW ATGVALHA ATGVALHC
ATGVALHS DATACT ATGBIG ATGSTRT ATGPTINS ATGNOCHG)
(ATG:START)
(setq DCL_ID (load_dialog "STEE.dcl"))
(if (not (new_dialog "STEE" DCL_ID))
(progn (alert "Could not find Dialog Definition STEE.DCL")
(exit)
)
)
(if ATGSHPNAME (set_tile "atg_shpname" ATGSHPNAME))
(mode_tile "atg_shpname" 2)
(if (= ATGSHPSCL nil)
(progn
(set_tile "sc10" "1")
(setq ATGSHPSCL 1)
)
)
(if (= ATGINSPT nil)
(progn
(set_tile "atg_instop" "1")
(setq ATGINSPT 1)
)
)
(if (= ATGHATCH nil)
(setq ATGHATCH "0")
)
(cond ((= ATGHATCH "0" )
(set_tile "atg_hatch" "0" )
)
((= ATGHATCH "1")
(set_tile "atg_hatch" "1" )
)
)
(setq ATGHATCH (get_tile "atg_hatch"))
(defun ATGPTINS (which)
(cond ((= which "atg_instop")
(setq ATGINSPT 1 )
)
((= which "atg_insmid")
(setq ATGINSPT 2)
)
)
)
(cond ((= ATGINSPT 1 )
(set_tile "atg_instop" "1" )
)
((=ATGINSPT 2 )
(set_tile "atg_insmid" "1" )
)
)

(defun DWGSCL (which)
(cond ((= which "sc11") (setq ATGSHPSCL 0.xxx-xxxxxxxx))((=
which "sc1") (setq ATGSHPSCL 0.xxx-xxxxxxxx))((= which "sc2")
(setq ATGSHPSCL 0.015625 ))((= which "sc3") (setq ATGSHPSCL
0.xxx-xxxxxxxx))((= which "sc4") (setq ATGSHPSCL 0.03125 ))((=
which "sc5") (setq ATGSHPSCL 0.xxx-xxxxxxxx))((= which "sc6")
(setq ATGSHPSCL 0.0625 ))((= which "sc7") (setq ATGSHPSCL
0.xxx-xxxxxxxx))((= which "sc8") (setq ATGSHPSCL 0.125 ))((= which
"sc9") (setq ATGSHPSCL 0.25 ))((= which "sc10") (setq ATGSHPSCL 1
))))(cond ((= ATGSHPSCL 0.xxx-xxxxxxxx) (set_tile "sc11" "1"))((=
ATGSHPSCL 0.xxx-xxxxxxxx) (set_tile "sc1" "1" ))((= ATGSHPSCL
0.015625 ) (set_tile "sc2" "1" ))((= ATGSHPSCL 0.xxx-xxxxxxxx)
(set_tile "sc3" "1" ))((= ATGSHPSCL 0.03125 ) (set_tile "sc4" "1"
))((= ATGSHPSCL 0.xxx-xxxxxxxx) (set_tile "sc5" "1" ))((=
ATGSHPSCL 0.0625 ) (set_tile "sc6" "1" ))((= ATGSHPSCL
0.xxx-xxxxxxxx) (set_tile "sc7" "1" ))((= ATGSHPSCL 0.125 )
(set_tile "sc8" "1" ))((= ATGSHPSCL 0.25 ) (set_tile "sc9" "1"
))((= ATGSHPSCL 1 ) (set_tile "sc10" "1")))(defun DATACT ()(setq
drawshp 2)(ATG:STEE))(action_tile "atg_hatch" "(setq ATGHATCH
$VALUE)")(action_tile "atg_inspt" "(ATGPTINS
$value)")(action_tile "dwgscl" "(DWGSCL $value)")(action_tile
"MRHOK" "(done_dialog 2)")(action_tile "MRHEX"
"(done_dialog)")(action_tile "atg_shpname" "(setq ATGSHPNAME
$value)")(action_tile "atg_find" "(ATG:FINDSHP)")(action_tile
"atg_data" "(DATACT)")(action_tile "atg_htch"
"(ATG:SETHATCH)")(action_tile "mabt" "(MRHABT)")(setq ATGSTRT
(start_dialog))(start_dialog)(unload_dialog DCL_ID)(if (= ATGSTRT
2)(progn (setq drawshp 1)(ATG:STEE))(setq drawshp
nil))(ATG:FIN)(princ))(ATG:DOT)(defun ATG:FINDSHP ( / dcl_id2
)(setq dcl_id2 (load_dialog "STEE.dcl"))(if (not (new_dialog
"ATGFINDSTL" dcl_id2)) (exit))(if (= ATGSHPID nil) (setq ATGSHPID
"W"))(defun SHPFND (which)(cond ((= which "atg_wshp" ) (progn
(setq ATGSHPID "W" ) (ATG:FINDFL)))((= which "atg_sshp" ) (progn
(setq ATGSHPID "S" ) (ATG:FINDFL)))((= which "atg_cshp" ) (progn
(setq ATGSHPID "C" ) (ATG:FINDFL)))((= which "atg_lshp" ) (progn
(setq ATGSHPID "L" ) (ATG:FINDFL)))((= which "atg_mcshp") (progn
(setq ATGSHPID "MC") (ATG:FINDFL)))((= which "atg_tsshp") (progn
(setq ATGSHPID "TS") (ATG:FINDFL)))((= which "atg_pshp" ) (progn
(setq ATGSHPID "P" ) (ATG:FINDFL)))((= which "atg_mshp" ) (progn
(setq ATGSHPID "M" ) (ATG:FINDFL)))((= which "atg_wtshp") (progn
(setq ATGSHPID "WT") (ATG:FINDFL)))((= which "atg_stshp") (progn
(setq ATGSHPID "ST") (ATG:FINDFL)))((= which "atg_mtshp") (progn
(setq ATGSHPID "MT") (ATG:FINDFL)))((= which "atg_hpshp") (progn
(setq ATGSHPID "HP") (ATG:FINDFL)))))(cond ((= ATGSHPID "W" )
(progn (set_tile "atg_wshp" "1") (ATG:FINDFL)))((= ATGSHPID "S" )
(progn (set_tile "atg_sshp" "1") (ATG:FINDFL)))((= ATGSHPID "C" )
(progn (set_tile "atg_cshp" "1") (ATG:FINDFL)))((= ATGSHPID "L" )
(progn (set_tile "atg_lshp" "1") (ATG:FINDFL)))((= ATGSHPID "MC")
(progn (set_tile "atg_mcshp" "1") (ATG:FINDFL)))((= ATGSHPID
"TS") (progn (set_tile "atg_tsshp" "1") (ATG:FINDFL)))((=
ATGSHPID "P" ) (progn (set_tile "atg_pshp" "1") (ATG:FINDFL)))((=
ATGSHPID "M" ) (progn (set_tile "atg_mshp" "1") (ATG:FINDFL)))((=
ATGSHPID "WT") (progn (set_tile "atg_wtshp" "1")
(ATG:FINDFL)))((= ATGSHPID "ST") (progn (set_tile "atg_stshp"
"1") (ATG:FINDFL)))((= ATGSHPID "MT") (progn (set_tile
"atg_mtshp" "1") (ATG:FINDFL)))((= ATGSHPID "HP") (progn
(set_tile "atg_hpshp" "1") (ATG:FINDFL))))(set_tile "atg_shpview"
"0")(defun ATGNMSET (why)(if (or (= why 1)(= why 2))(setq
ATGSHPNEW (nth (atoi (get_tile "atg_shpview")) shplist)))(if (=
why 4)(progn (setq ATGSHPNEW (nth (atoi (get_tile "atg_shpview"))
shplist))(ATGCHGNAME))))(defun ATGCHGNAME ()(setq ATGSHPNEW (nth
(atoi (get_tile "atg_shpview")) shplist))(done_dialog)(if
ATGSHPNEW (progn (setq ATGSHPNAME ATGSHPNEW)(set_tile
"atg_shpname" ATGSHPNAME))))(defun ATGNOCHG
()(done_dialog)(mode_tile "atg_shpname" 2))(action_tile
"atg_myshp" "(SHPFND $value)")(action_tile "atg_shpview"
"(ATGNMSET $REASON)")(action_tile "atg_shpview" "(ATGNMSET
$REASON)")(action_tile "VWOK" "(ATGCHGNAME)")(action_tile "VWEX"
"(ATGNOCHG)")(start_dialog)(unload_dialog
dcl_id2))(ATG:DOT)(defun ATG:FINDFL ()(setq atglist nil atglist1
nil atglist2 nil shplist nil )(setq atgflnm (findfile (strcat
ATGSHPID ".DAT")))(setq atgfile (open atgflnm "r"))(start_list
"atg_shpview")(while (setq atglist (read-line atgfile))(setq
atgcnt 1)(while (/= (substr atglist atgcnt 1) " ")(setq atgcnt (+
atgcnt 1)))(setq atglist1 (substr atglist 1 atgcnt))(setq
atglist2 (list atglist1))(setq shplist (append atglist2
shplist))(add_list atglist1))(end_list)(close atgfile)(setq
shplist (reverse shplist))(set_tile "atg_shpview"
"0"))(ATG:DOT)(defun ATG:STEE ()(setq ATGSHPNAME (strcase
ATGSHPNAME))(setq shtp (ATG:GTSHP ATGSHPNAME))(if (and (= (setq
fnme (findfile (strcat shtp ".dat"))) nil)(= (setq fspc (open
(strcat shtp ".dat") "r")) nil))(progn (alert "Invalid Shape
Name")(if (= drawshp 2)(mode_tile "atg_shpname" 2)(princ)))(progn
(if (/= fspc nil)(progn (close fspc)(setq fnme (strcat shtp
".dat"))))(setq str (ATG:READ fnme ATGSHPNAME))(if (or (= str
nil) (= str ""))(progn (alert "Shape Not Found in File")(if (=
drawshp 2)(mode_tile "atg_shpname" 2)(princ)))(progn (cond ((=
drawshp 1) (ATG:DRAW))((= drawshp 2)
(ATG:DAT))))))))(ATG:DOT)(defun ATG:DRAW ()(while (= insp
nil)(setq insp (getpoint "\nInsertion point: ")))(if (= (setq rot
(getangle insp "\nRotation angle <0>: ")) nil)(setq rot
0.0))(setq ennm (entlast))(cond ((or (= shtp "W") (= shtp "M") (=
shtp "HP")) (ATG:W_SHP))((= shtp "S") (ATG:S_SHP))((or (= shtp
"C") (= shtp "MC")) (ATG:C_SHP))((= shtp "L") (ATG:L_SHP))((or (=
shtp "WT") (= shtp "MT")) (ATG:WT_SHP))((= shtp "ST")
(ATG:ST_SHP))((or (= shtp "P") (= shtp "PX") (= shtp "PXX"))
(ATG:PIPE))((= shtp "TS") (ATG:TUBE)))(princ))(ATG:DOT)(defun
ATG:ZOOMIN ()(setq ATGRS (* ATGRS 1.5))(command "zoom" "c" ATGVC
ATGRS))(ATG:DOT)(defun ATG:ZOOMOUT ()(command "zoom"
"p"))(ATG:DOT)(defun ATG:GTSHP (ATGSHPNAME / i char)(setq i
0)(while (and (/= char "0")(/= char "1")(/= char "2")(/= char
"3")(/= char "4")(/= char "5")(/= char "6")(/= char "7")(/= char
"8")(/= char "9")(/= char ".")(/= char "X")(<= i (strlen
ATGSHPNAME)))(setq i (1+ i)char (substr ATGSHPNAME i 1)))(substr
ATGSHPNAME 1 (- i 1)))(ATG:DOT)(defun ATG:READ (fnme ATGSHPNAME /
exit_code a len)(setq a (open fnme "r")len (strlen
ATGSHPNAME))(while (/= exit_code 1)(setq str (read-line a))(if
(or (or (= str nil)(= str ""))(and (= (substr str 1 len)
ATGSHPNAME)(= (substr str (1+ len) 1) " ")))(setq exit_code
1)))(close a)(setq str str))(ATG:DOT)(defun ATG:MAKESS ()(setq
sset (ssadd))(while (setq ennm (entnext ennm))(ssadd ennm
sset)))(ATG:DOT)(defun ATG:POLY ()(command ".PEDIT" (entlast) "y"
"J" sset "" "X")(setq sset (entlast)))(ATG:DOT)(defun
ATG:SETHATCH ( / dcl_id3 atghnames ATGEXTBX ATGHTCHOK)(setq
dcl_id3 (load_dialog "STEE.dcl"))(if (not (new_dialog
"ATGHATCHOPT" dcl_id3)) (exit))(setq atghnames (list "ANSI31"
"ANSI32" "ANSI33" "ANSI34" "ANSI35" "ANSI36" "ANSI37"
"ANSI38"))(if atghnames (progn (start_list "atg_htchpat")(mapcar
'add_list atghnames)(end_list)))(if ATGMYPHLK (set_tile
"atg_htchpat" ATGMYPHLK))(if ATGMYHPSC (set_tile "atg_htchscl"
(rtos ATGMYHPSC 2 )))(if ATGMYHPAN (set_tile "atg_htchang"
(angtos ATGMYHPAN 0 )))(if ATGMYHPCO (set_tile "atg_htchcol"
ATGMYHPCO))(defun ATGVALHS (why)(if (or (= why 1) (= why 2))(if
(or (= (get_tile "atg_htchscl") "")(= (get_tile "atg_htchscl") "
"))(progn (alert "No Scale Value Entered...Using
Default.")(set_tile "atg_htchscl" (rtos 1.5 2 )))(if (distof
(get_tile "atg_htchscl"))(set_tile "atg_htchscl" (rtos (distof
(get_tile "atg_htchscl")) 2 ))(progn (alert "Invalid Scale
Input...Resetting to 1")(set_tile "atg_htchscl" (rtos 1.5 2
))(mode_tile "atg_htchscl" 2))))))(defun ATGVALHA (why)(if (or (=
why 1) (= why 2))(if (or (= (get_tile "atg_htchang") "")(=
(get_tile "atg_htchang") " "))(progn (alert "No Angle Value
Entered...Using Default.")(set_tile "atg_htchang" (angtos 0.0 0
)))(if (angtof (get_tile "atg_htchang"))(set_tile "atg_htchang"
(angtos (angtof (get_tile "atg_htchang")) 0 ))(progn (alert
"Invalid Angular Input...Resetting to 0")(set_tile "atg_htchang"
(angtos 0.0 0 ))(mode_tile "atg_htchang" 2))))))(defun ATGVALHC
(why)(if (or (= why 1) (= why 2))(if (or (= (get_tile
"atg_htchcol") "")(= (get_tile "atg_htchcol") " "))(progn (alert
" No Color Value Entered...Using Default. ")(set_tile
"atg_htchcol" (itoa 1)))(if (itoa (atoi (get_tile
"atg_htchcol")))(if (or (< (atoi (get_tile "atg_htchcol")) 0)(>
(atoi (get_tile "atg_htchcol")) 256))(progn (alert " Invalid
Color Value, Valid Range is 0-256...Setting to 1 ")(set_tile
"atg_htchcol" (itoa 1))(mode_tile "atg_htchcol" 2))(set_tile
"atg_htchcol" (itoa (atoi (get_tile "atg_htchcol")))))))))(defun
ATGEXTBX ()(done_dialog)(mode_tile "atg_shpname" 2))(defun
ATGHTCHOK ()(setq ATGMYHPNM (nth (atoi (get_tile "atg_htchpat"))
atghnames))(setq ATGMYPHLK (get_tile "atg_htchpat"))(setq
ATGMYHPSC (distof (get_tile "atg_htchscl")))(setq ATGMYHPAN
(angtof (get_tile "atg_htchang")))(setq ATGMYHPCO (get_tile
"atg_htchcol"))(done_dialog)(mode_tile "atg_shpname"
2))(action_tile "atg_htchscl" "(ATGVALHS $REASON)")(action_tile
"atg_htchang" "(ATGVALHA $REASON)")(action_tile "atg_htchcol"
"(ATGVALHC $REASON)")(action_tile "HTCHEX"
"(ATGEXTBX)")(action_tile "HTCHOK"
"(ATGHTCHOK)")(start_dialog)(unload_dialog
dcl_id3))(ATG:DOT)(defun ATG:HATCH ( / atgoldclr tmpscl)(if (=
ATGHATCH "1")(progn (setq atgoldclr (getvar "CECOLOR"))(setvar
"CECOLOR" ATGMYHPCO)(setq tmpscl (* ATGMYHPSC ATGSHPSCL))(command
".HATCH" ATGMYHPNM tmpscl (atg:rtd (+ rot ATGMYHPAN))sset ""
)(setvar "CECOLOR" atgoldclr))))(ATG:DOT)(defun ATG:W_SHP ()(setq
d (atof (substr str 16 10))tw (atof (substr str 26 10))bf (atof
(substr str 36 10))tf (atof (substr str 46 10))k (atof (substr
str 56 10))r (- k tf))(if (= ATGINSPT 2)(progn (setq xx (polar
insp (+ rot (* pi 1.5)) (/ d 2)))(setq pt1 (polar xx (+ rot pi)
(/ bf 2))))(progn (setq xx (polar insp (+ rot (* pi 1.5))
d))(setq pt1 (polar xx (+ rot pi) (/ bf 2)))))(setq pt2 (polar
pt1 rot bf)pt3 (polar pt2 (+ rot (/ pi 2)) tf)pt4 (polar pt3 (+
rot pi) (/ (- bf (+ (* 2 r) tw)) 2))pt5 (polar (polar pt4 (+ rot
pi) r) (+ rot (/ pi 2)) r)pt6 (polar pt5 (+ rot (/ pi 2)) (- d (*
2 k)))pt7 (polar (polar pt6 (+ rot (/ pi 2)) r) rot r)pt8 (polar
pt7 rot (/ (- bf (+ (* 2 r) tw)) 2))pt9 (polar pt8 (+ rot (/ pi
2)) tf)pt10 (polar pt9 (+ rot pi) bf)pt11 (polar pt10 (- rot (/
pi 2)) tf)pt12 (polar pt11 rot (/ (- bf (+ (* 2 r) tw)) 2))pt13
(polar (polar pt12 rot r) (- rot (/ pi 2)) r)pt14 (polar pt13 (-
rot (/ pi 2)) (- d (* 2 k)))pt15 (polar (polar pt14 (- rot (/ pi
2)) r) (+ rot pi) r)pt16 (polar pt15 (+ rot pi) (/ (- bf (+ (* 2
r) tw)) 2)))(setq ATGVC (inters pt1 pt9 pt10 pt2))(setq ATGVS
(getvar "viewsize"))(setq ATGRS (distance pt1
pt10))(ATG:ZOOMIN)(command "line" pt1 pt2 pt3 pt4 "" "arc" pt4
"e" pt5 "d" pt16 "line" pt5 pt6 "" "arc" pt7 "e" pt6 "d" pt11
"line" pt7 pt8 pt9 pt10 pt11 pt12 "" "arc" pt12 "e" pt13 "d" pt8
"line" pt13 pt14 "" "arc" pt15 "e" pt14 "d" pt3 "line" pt15 pt16
pt1 "" )(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" "" insp
ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun ATG:S_SHP
()(setq d (atof (substr str 16 10))tw (atof (substr str 26 10))bf
(atof (substr str 36 10))tf (atof (substr str 46 10))k (atof
(substr str 56 10))tpd1 (* (/ (- bf tw) 4.0) (/ 1 6.0))tpd2 (- k
tf tpd1))(if (= ATGINSPT 2)(progn (setq xx (polar insp (+ rot (*
pi 1.5)) (/ d 2)))(setq pt1 (polar xx (+ rot pi) (/ bf
2))))(progn (setq xx (polar insp (+ rot (* pi 1.5)) d))(setq pt1
(polar xx (+ rot pi) (/ bf 2)))))(if (<= (- tf tpd1) tpd2)(progn
(setq pt2 pt1)(setq ATGBIG nil))(progn (setq pt2 (polar pt1 (+
rot (/ pi 2.0)) (- tf (+ tpd1 tpd2))))(setq ATGBIG 1)))(setq tpp1
(polar pt1 (+ rot (/ pi 2.0)) (- tf tpd1))pt3 (polar tpp1 (+ rot
0.16514868) tpd2)tpp2 (polar (polar tpp1 rot (/ (- bf tw) 2.0))(+
rot (/ pi 2.0))(* (/ (- bf tw) 2.0)(/ 1 6.0)))pt4 (polar tpp2 (+
rot pi 0.16514868) tpd2)pt5 (polar tpp2 (+ rot (/ pi 2.0))
tpd2)pt6 (polar pt1 (+ rot (/ pi 2.0)) (/ d 2.0))pt7 (polar pt6
rot bf)pt8 (polar pt1 rot (/ bf 2.0))pt9 (polar pt8 (+ rot (/ pi
2.0)) bf)pt10 (polar pt5 (+ rot (/ pi 2.0)) (- d (* k 2.0)))pt11
(polar pt1 rot bf)pt12 (polar pt11 (+ rot (ATG:DTR 90)) d)pt13
(polar pt12 (+ rot (ATG:DTR 180)) bf))(setq ATGVC (inters pt1
pt12 pt13 pt11))(setq ATGVS (getvar "viewsize"))(setq ATGRS
(distance pt1 pt12))(ATG:ZOOMIN)(if ATGBIG (progn (command "line"
pt1 pt2 "")(setq ent_list (ssget "L"))(command "mirror" "L" ""
pt8 pt9 "N")(setq ent_list (ssadd (entlast) ent_list))(command
"arc" pt3 "e" pt2 "d" tpp1)(setq ent_list (ssadd (entlast)
ent_list)))(progn (command "arc" pt3 "e" pt2 "d" tpp1)(setq
ent_list (ssget "L"))))(command "mirror" "L" "" pt8 pt9 "N")(setq
ent_list (ssadd (entlast) ent_list))(command "line" pt3 pt4
"")(setq ent_list (ssadd (entlast) ent_list))(command "mirror"
"L" "" pt8 pt9 "N")(setq ent_list (ssadd (entlast)
ent_list))(command "arc" pt5 "e" pt4 "d" tpp2)(setq ent_list
(ssadd (entlast) ent_list))(command "mirror" "L" "" pt8 pt9
"N")(setq ent_list (ssadd (entlast) ent_list))(command "mirror"
ent_list "" pt6 pt7 "N" "line" pt5 pt10 "" "mirror" "L" "" pt8
pt9 "N" "line" pt1 pt11 "" "mirror" "L" "" pt6 pt7 "N"
)(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" "" insp
ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun ATG:C_SHP
()(setq d (atof (substr str 16 10))tw (atof (substr str 26 10))bf
(atof (substr str 36 10))tf (atof (substr str 46 10))k (atof
(substr str 56 10))tpd1 (* (/ (- bf tw) 2.0) (/ 1 6.0))tpd2 (- k
tf tpd1))(if (= ATGINSPT 2)(progn (setq xx (polar insp (+ rot (*
pi 1.5)) (/ d 2)))(setq pt1 (polar xx (+ rot pi) bf)))(progn
(setq xx (polar insp (+ rot (* pi 1.5)) d))(setq pt1 (polar xx (+
rot pi) bf))))(if (<= (- tf tpd1) tpd2)(setq pt2 pt1)(setq pt2
(polar pt1 (+ rot (/ pi 2.0)) (- tf (+ tpd1 tpd2)))))(setq tpp1
(polar pt1 (+ rot (/ pi 2.0)) (- tf tpd1))pt3 (polar tpp1 (+ rot
0.16514868) tpd2)tpp2 (polar (polar tpp1 rot (- bf tw))(+ rot (/
pi 2.0))(* (- bf tw) (/ 1 6.0)))pt4 (polar tpp2 (+ rot pi
0.16514868) tpd2)pt5 (polar tpp2 (+ rot (/ pi 2.0)) tpd2)pt6
(polar pt1 (+ rot (/ pi 2.0)) (/ d 2.0))pt7 (polar pt6 rot bf)pt8
(polar pt5 (+ rot (/ pi 2.0)) (- d (* k 2.0)))pt9 (polar pt1 rot
bf)pt10 (polar pt9 (+ rot (/ pi 2.0)) d)pt11 (polar pt10 (+ rot
(ATG:DTR 180)) bf))(setq ATGVC (inters pt1 pt10 pt11 pt9))(setq
ATGVS (getvar "viewsize"))(setq ATGRS (distance pt1
pt10))(ATG:ZOOMIN)(command "line" pt1 pt2 "")(setq ent_list
(ssget "L"))(command "arc" pt3 "e" pt2 "d" tpp1)(setq ent_list
(ssadd (entlast) ent_list))(command "line" pt3 pt4 "")(setq
ent_list (ssadd (entlast) ent_list))(command "arc" pt5 "e" pt4
"d" tpp2)(setq ent_list (ssadd (entlast) ent_list))(command
"line" pt1 pt9 "")(setq ent_list (ssadd (entlast)
ent_list))(command "mirror" ent_list "" pt6 pt7 "N" "line" pt5
pt8 "" "line" pt9 pt10 "")(ATG:MAKESS)(ATG:POLY)(command "SCALE"
"L" "" insp ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun
ATG:L_SHP ()(setq lvt (atof (substr str 26 10))lhz (atof (substr
str 36 10))ltk (atof (substr str 46 10))k (atof (substr str 56
10))pt1 insp pt2 (polar pt1 rot lhz)pt2A (polar pt2 (+ rot (/ pi
2.0)) (* ltk 0.25))pt3 (polar pt2 (+ rot (/ pi 2.0)) ltk)pt3A
(polar pt3 (+ rot pi) (* ltk 0.75))pt4 (polar pt3 (+ rot pi) (-
lhz k))tpp1 (polar pt3 (+ rot pi) (- lhz ltk))pt5 (polar tpp1 (+
rot (/ pi 2.0)) (- k ltk))pt6 (polar pt5 (+ rot (/ pi 2.0)) (-
lvt k))pt6A (polar pt5 (+ rot (/ pi 2.0)) (- (- lvt k)(* ltk
0.75)))pt6B (polar pt6 (+ rot pi) (* ltk 0.75))pt7 (polar pt6 (+
rot pi) ltk)pt8 (polar pt7 rot lhz))(setq ATGVC (inters pt1 pt8
pt7 pt2))(setq ATGVS (getvar "viewsize"))(setq ATGRS (distance
pt1 pt7))(ATG:ZOOMIN)(command "line" pt1 pt2 pt2A "" "arc" pt2A
"e" pt3A "d" pt3 "line" pt3A pt4 "" "arc" pt4 "e" pt5 "d" tpp1
"line" pt5 pt6A "" "arc" pt6A "e" pt6B "d" pt6 "line" pt6B pt7
pt1 "" )(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" "" insp
ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun ATG:WT_SHP
()(setq d (atof (substr str 16 10))tw (atof (substr str 26 10))bf
(atof (substr str 36 10))tf (atof (substr str 46 10))k (atof
(substr str 56 10))r (- k tf))(setq pt1 (polar insp (+ rot pi) (/
bf 2)))(setq pt2 (polar pt1 rot bf)pt3 (polar pt2 (+ rot (/ pi
2)) tf)pt4 (polar pt3 (+ rot pi) (/ (- bf (+ (* 2 r) tw)) 2))pt5
(polar (polar pt4 (+ rot pi) r) (+ rot (/ pi 2)) r)pt6 (polar pt5
(+ rot (/ pi 2)) (- d k))pt7 (polar pt6 (+ rot pi) tw)pt8 (polar
pt7 (- rot (/ pi 2.0)) (- d k))pt9 (polar (polar pt8 (- rot (/ pi
2)) r) (+ rot pi) r)pt10 (polar pt9 (+ rot pi) (/ (- bf (+ (* 2
r) tw)) 2))pt11 (polar pt1 (+ rot (/ pi 2)) d)pt12 (polar pt11
rot bf))(setq ATGVC (inters pt1 pt12 pt11 pt2))(setq ATGVS
(getvar "viewsize"))(setq ATGRS (distance pt1
pt12))(ATG:ZOOMIN)(command "line" pt1 pt2 pt3 pt4 "" "arc" pt4
"e" pt5 "d" pt10 "line" pt5 pt6 pt7 pt8 "" "arc" pt9 "e" pt8 "d"
pt3 "line" pt9 pt10 pt1 "" )(ATG:MAKESS)(ATG:POLY)(command
"SCALE" "L" "" insp
ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun ATG:ST_SHP
()(setq d (atof (substr str 16 10))tw (atof (substr str 26 10))bf
(atof (substr str 36 10))tf (atof (substr str 46 10))k (atof
(substr str 56 10))tpd1 (* (/ (- bf tw) 4.0) (/ 1 6.0))tpd2 (- k
tf tpd1))(setq pt1 (polar insp (+ rot pi) (/ bf 2)))(if (<= (- tf
tpd1) tpd2)(setq pt2 pt1)(setq pt2 (polar pt1 (+ rot (/ pi 2.0))
(- tf (+ tpd1 tpd2)))))(if (<= (- tf tpd1) tpd2)(progn (setq pt2
pt1)(setq ATGBIG nil))(progn (setq pt2 (polar pt1 (+ rot (/ pi
2.0)) (- tf (+ tpd1 tpd2))))(setq ATGBIG 1)))(setq tpp1 (polar
pt1 (+ rot (/ pi 2.0)) (- tf tpd1))pt3 (polar tpp1 (+ rot
0.16514868) tpd2)tpp2 (polar (polar tpp1 rot (/ (- bf tw) 2.0))(+
rot (/ pi 2.0))(* (/ (- bf tw) 2.0) (/ 1 6.0)))pt4 (polar tpp2 (+
rot pi 0.16514868) tpd2)pt5 (polar tpp2 (+ rot (/ pi 2.0))
tpd2)pt6 (polar pt1 rot (/ bf 2.0))pt7 (polar pt6 (+ rot (/ pi
2.0)) d)pt8 (polar pt5 (+ rot (/ pi 2.0)) (- d k))pt9 (polar pt8
rot tw)pt10 (polar pt1 rot bf)pt11 (polar pt1 (+ rot (/ pi 2))
d)pt12 (polar pt11 rot bf))(setq ATGVC (inters pt1 pt12 pt11
pt10))(setq ATGVS (getvar "viewsize"))(setq ATGRS (distance pt1
pt12))(ATG:ZOOMIN)(if ATGBIG (command "line" pt1 pt2 "" "mirror"
"L" "" pt6 pt7 "N" "arc" pt3 "e" pt2 "d" tpp1 )(command "arc" pt3
"e" pt2 "d" tpp1))(command "mirror" "L" "" pt6 pt7 "N" "line" pt3
pt4 "" "mirror" "L" "" pt6 pt7 "N" "arc" pt5 "e" pt4 "d" tpp2
"mirror" "L" "" pt6 pt7 "N" "line" pt5 pt8 "" "mirror" "L" "" pt6
pt7 "N" "line" pt1 pt10 "" "line" pt8 pt9 ""
)(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" "" insp
ATGSHPSCL)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun ATG:PIPE
()(setq tpd1 (atof (substr str 16 10))tpd2 (atof (substr str 26
10)))(setq ATGVC insp)(setq ATGVS (getvar "viewsize"))(setq ATGRS
tpd2)(ATG:ZOOMIN)(command "circle" insp "d" tpd1)(command "SCALE"
"L" "" insp ATGSHPSCL)(command "circle" insp "d" tpd2)(command
"SCALE" "L" "" insp
ATGSHPSCL)(ATG:MAKESS)(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun
ATG:TUBE ()(setq lvt (atof (substr str 26 10))lhz (atof (substr
str 36 10))ltk (atof (substr str 46 10)))(if (= ATGINSPT 2)(progn
(setq xx (polar insp (+ rot pi) (/ (* lhz ATGSHPSCL) 2)))(setq
insp (polar xx (+ rot (* pi 1.5)) (/ (* lvt ATGSHPSCL)
2))))(progn (setq xx (polar insp (+ rot pi) (/ (* lhz ATGSHPSCL)
2)))(setq insp (polar xx (+ rot (* pi 1.5)) (* lvt
ATGSHPSCL)))))(setq tpp1 (polar insp rot lhz)tpp2 (polar tpp1 (+
rot (/ pi 2.0)) lvt)tpp3 (polar insp (+ rot (/ pi 2.0)) lvt)pt1
(polar insp rot (* ltk 2.0))pt2 (polar pt1 rot (- lhz (* ltk
4.0)))pt3 (polar (polar pt2 rot (* ltk 2.0)) (+ rot (/ pi 2.0))
(* ltk 2.0))pt4 (polar pt3 (+ rot (/ pi 2.0)) (- lvt (* ltk
4.0)))pt5 (polar pt2 (+ rot (/ pi 2.0)) lvt)pt6 (polar pt1 (+ rot
(/ pi 2.0)) lvt)pt7 (polar pt4 (+ rot pi) lhz)pt8 (polar pt3 (+
rot pi) lhz)pt9 (polar pt1 (+ rot (/ pi 2.0)) ltk)pt10 (polar pt2
(+ rot (/ pi 2.0)) ltk)pt11 (polar pt3 (+ rot pi) ltk)pt12 (polar
pt4 (+ rot pi) ltk)pt13 (polar pt5 (- rot (/ pi 2.0)) ltk)pt14
(polar pt6 (- rot (/ pi 2.0)) ltk)pt15 (polar pt7 rot ltk)pt16
(polar pt8 rot ltk))(setq ATGVC (inters pt1 pt5 pt6 pt2))(setq
ATGVS (getvar "viewsize"))(setq ATGRS (distance pt1
pt5))(ATG:ZOOMIN)(command "line" pt1 pt2 "" "arc" pt2 "e" pt3 "d"
tpp1 "line" pt3 pt4 "" "arc" pt4 "e" pt5 "d" tpp2 "line" pt5 pt6
"" "arc" pt6 "e" pt7 "d" tpp3 "line" pt7 pt8 "" "arc" pt8 "e" pt1
"d" insp )(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" "" insp
ATGSHPSCL)(setq ennm (entlast) e2 ennm)(setq tpp1 (inters pt9
pt10 pt11 pt12 nil)tpp2 (inters pt11 pt12 pt13 pt14 nil)tpp3
(inters pt13 pt14 pt15 pt16 nil)tpp4 (inters pt15 pt16 pt9 pt10
nil))(command "line" pt9 pt10 "" "arc" pt10 "e" pt11 "d" tpp1
"line" pt11 pt12 "" "arc" pt12 "e" pt13 "d" tpp2 "line" pt13 pt14
"" "arc" pt14 "e" pt15 "d" tpp3 "line" pt15 pt16 "" "arc" pt16
"e" pt9 "d" tpp4 )(ATG:MAKESS)(ATG:POLY)(command "SCALE" "L" ""
insp ATGSHPSCL)(setq sset (ssadd)sset (ssadd (entlast) sset)sset
(ssadd e2 sset))(ATG:HATCH)(ATG:ZOOMOUT))(ATG:DOT)(defun MRHABT
(/ dcl_id4 x y )(setq dcl_id4 (load_dialog "STEE.dcl"))(if (not
(new_dialog "MRH_ABT" dcl_id4)) (exit))(action_tile "MRHEX"
"(done_dialog)")(setq x (dimx_tile "DETLOG"))(setq y (dimy_tile
"DETLOG"))(start_image "DETLOG")(slide_image 0 0 x y
"DETLOGO")(end_image)(setq x (dimx_tile "MRHLOG"))(setq y
(dimy_tile "MRHLOG"))(start_image "MRHLOG")(slide_image 0 0 x y
"MRHLOGO")(end_image)(start_dialog)(unload_dialog dcl_id4))

(setq ATG:DOT nil)
(princ)

[stevor]

A bit of help: 1. Attach your lsp as a file instead of pasting. 2. Describe the actual error message, or, show a readable screen snapshot.

[Ranjit_Singh]

You may also want to include the dcl file.