Search the Community

When i run a lisp om my computer it gives me an error. the first problem was a missing font ic-romand (i renamed another font to continue). I included the files as attatchment. The path to files should be:C:\Program Files (x86)\ProgeCAD\progeCAD 2014 Professional ENG\Program. With appload i load the file \misc\DK_Load. When i run dk (found in dk_main.lisp) it trows me an error : argument type: stringp nil. It should open a dialog box to enter data Can anyone please help me i have to get this running before monday. Some help would be really apreciated!!!!! PROBLEM SOLVED

OK.. here is the story. This is a modified version of a LISP that I wrote that works perfectly. I added a few more variables to it (there are a ton), and now all the sudden, I'm getting a 'stringp nil' error when it runs, and I cant seem to figure out why! I dont have a ton of experience writing LISPs, so my code is probably very redundant and sloppy, so please excuse the mess Thanks in advance if anyone is able to help out! (defun c:gmE1 () (setq osnapsettings (getvar "osmode")) (setq lyr (getvar "clayer")) (setvar "osmode" 0) (setvar "fieldeval" 13) (command "-layer" "s" "F-ANNO-REV" "") (setq zp1 "37.3,29.6") (setq zp2 "41.6,13.9") (setq rp1 "37.4661,14.3748") (setq rp2 "37.4661,14.5992") (setq rp3 "37.4661,14.8236") (setq rp4 "37.4661,15.048") (setq rp5 "37.4661,15.2724") (setq rp6 "37.4661,15.4968") (setq rp7 "37.4661,15.7212") (setq rp8 "37.4661,15.9456") (setq rp9 "37.4661,16.17") (setq rp10 "37.4661,16.3944") (setq rp11 "37.4661,16.6188") (setq rp12 "37.4661,16.8432") (setq rp13 "37.4661,17.0676") (setq rp14 "37.4661,17.292") (setq rp15 "37.4661,17.5164") (setq rp16 "37.4661,17.7408") (setq rp17 "37.4661,17.9652") (setq rp18 "37.4661,18.1896") (setq rp19 "37.4661,18.414") (setq rp20 "37.4661,18.6384") (setq rpt1 "37.4661,29.215") (setq rpt2 "37.4661,28.9906") (setq rpt3 "37.4661,28.7662") (setq rpt4 "37.4661,28.5418") (setq rpt5 "37.4661,28.3174") (setq rpt6 "37.4661,28.093") (setq rpt7 "37.4661,27.8686") (setq rpt8 "37.4661,27.6442") (setq rpt9 "37.4661,27.4198") (setq rpt10 "37.4661,27.1954") (setq rpt11 "37.4661,26.971") (setq rpt12 "37.4661,26.7466") (setq zw1 "38,25") (setq zw2 "42,17.2") (setq zw3 "38,23") (setq zw4 "41.16,16.56") (command "zoom" "e") (command "rectangle" zp1 zp2) (command "zoom" "w" zp1 zp2) (setq r1 (getint "\nEnter First Rev Line Number use ZERO for NONE: ")) (setq r2 (getint "\nEnter Second Rev Line Number use ZERO for NONE: ")) (if (= r2 0)(setq r3 0)(setq r3 (getint "\nEnter Third Rev Line Number use ZERO for NONE: "))) (if (= r3 0)(setq r4 0)(setq r4 (getint "\nEnter Fourth Rev Line Number use ZERO for NONE: "))) (if (= r4 0)(setq r5 0)(setq r5 (getint "\nEnter Fifth Rev Line Number use ZERO for NONE: "))) (if (= r5 0)(setq r6 0)(setq r6 (getint "\nEnter 6th Rev Line Number use ZERO for NONE: "))) (if (= r6 0)(setq r7 0)(setq r7 (getint "\nEnter 7th Rev Line Number use ZERO for NONE: "))) (if (= r7 0)(setq r8 0)(setq r8 (getint "\nEnter 8th Rev Line Number use ZERO for NONE: "))) (if (= r8 0)(setq r9 0)(setq r9 (getint "\nEnter 9th Rev Line Number use ZERO for NONE: "))) (if (= r9 0)(setq r10 0)(setq r10 (getint "\nEnter 10th Rev Line Number use ZERO for NONE: "))) (if (= r10 0)(setq r11 0)(setq r11 (getint "\nEnter 11th Rev Line Number use ZERO for NONE: "))) (if (= r11 0)(setq r12 0)(setq r12 (getint "\nEnter 12th Rev Line Number use ZERO for NONE: "))) (if (= r12 0)(setq r13 0)(setq r13 (getint "\nEnter 13th Rev Line Number use ZERO for NONE: "))) (if (= r13 0)(setq r14 0)(setq r14 (getint "\nEnter 14th Rev Line Number use ZERO for NONE: "))) (if (= r14 0)(setq r15 0)(setq r15 (getint "\nEnter 15th Rev Line Number use ZERO for NONE: "))) (if (= r15 0)(setq r16 0)(setq r16 (getint "\nEnter 16th Rev Line Number use ZERO for NONE: "))) (if (= r16 0)(setq r17 0)(setq r17 (getint "\nEnter 17th Rev Line Number use ZERO for NONE: "))) (if (= r17 0)(setq r18 0)(setq r18 (getint "\nEnter 18th Rev Line Number use ZERO for NONE: "))) (if (= r18 0)(setq r19 0)(setq r19 (getint "\nEnter 19th Rev Line Number use ZERO for NONE: "))) (if (= r19 0)(setq r20 0)(setq r20 (getint "\nEnter 20th Rev Line Number use ZERO for NONE: "))) (setq rt1 r1 rt2 r2 rt3 r3 rt4 r4 rt5 r5 rt6 r6 rt7 r7 rt8 r8 rt9 r9 rt10 r10 rt11 r11 rt12 r12) (if (> r13 0)(setq rt1 r13)) (if (> r14 0)(setq rt2 r14)) (if (> r15 0)(setq rt3 r15)) (if (> r16 0)(setq rt4 r16)) (if (> r17 0)(setq rt5 r17)) (if (> r18 0)(setq rt6 r18)) (if (> r19 0)(setq rt7 r19)) (if (> r20 0)(setq rt8 r20)) (COMMAND "-PURGE" "B" "" "N") (command "zoom" "e") (Command "erase" "w" zp2 zp1 "") (command "zoom" zp1 zp2) (setq z (itoa 0)) (setq rr1 (itoa r1) rr2 (itoa r2) rr3 (itoa r3) rr4 (itoa r4) rr5 (itoa r5) rr6 (itoa r6) rr7 (itoa r7) rr8 (itoa r8) rr9 (itoa r9) rr10 (itoa r10) rr11 (itoa r11) rr12 (itoa r12) rr13 (itoa r13) rr14 (itoa r14) rr15 (itoa r15) rr16 (itoa r16) rr17 (itoa r17) rr18 (itoa r18) rr19 (itoa r19) rr20 (itoa r20) ) (setq a (strcat "%<\\AcSm SheetSet.REV ")) (setq d (strcat " DATE \\f \"%tc1\">%")) (setq e (strcat " DESCRIPTION \\f \"%tc1\">%")) (setq i (strcat " APPR \\f \"%tc1\">%")) (setq j (strcat " ENG \\f \"%tc1\">%")) (setq k (strcat " PROJ \\f \"%tc1\">%")) (if (< r1 10 )(setq ru1 (strcat z rr1))(setq ru1 (strcat rr1))) (if (< r2 10 )(setq ru2 (strcat z rr2))(setq ru2 (strcat rr2))) (if (< r3 10 )(setq ru3 (strcat z rr3))(setq ru3 (strcat rr3))) (if (< r4 10 )(setq ru4 (strcat z rr4))(setq ru4 (strcat rr4))) (if (< r5 10 )(setq ru5 (strcat z rr5))(setq ru5 (strcat rr5))) (if (< r6 10 )(setq ru6 (strcat z rr6))(setq ru6 (strcat rr6))) (if (< r7 10 )(setq ru7 (strcat z rr7))(setq ru7 (strcat rr7))) (if (< r8 10 )(setq ru8 (strcat z rr8))(setq ru8 (strcat rr8))) (if (< r9 10 )(setq ru9 (strcat z rr9))(setq ru9 (strcat rr9))) (if (< r10 10 )(setq ru10 (strcat z rr10))(setq ru10 (strcat rr10))) (if (< r11 10 )(setq ru11 (strcat z rr11))(setq ru11 (strcat rr11))) (if (< r12 10 )(setq rv12 (strcat z rr12))(setq ru12 (strcat rr12))) (if (< r13 10 )(setq ru13 (strcat z rr13))(setq ru13 (strcat rr13))) (if (< r14 10 )(setq ru14 (strcat z rr14))(setq ru14 (strcat rr14))) (if (< r15 10 )(setq ru15 (strcat z rr15))(setq ru15 (strcat rr15))) (if (< r16 10 )(setq ru16 (strcat z rr16))(setq ru16 (strcat rr16))) (if (< r17 10 )(setq ru17 (strcat z rr17))(setq ru17 (strcat rr17))) (if (< r18 10 )(setq ru18 (strcat z rr18))(setq ru18 (strcat rr18))) (if (< r19 10 )(setq ru19 (strcat z rr19))(setq ru19 (strcat rr19))) (if (< r20 10 )(setq ru20 (strcat z rr20))(setq ru20 (strcat rr20))) (setq date1 (strcat a ru1 d) desc1 (strcat a ru1 e) appr1 (strcat a ru1 i) eng1 (strcat a ru1 j) proj1 (strcat a ru1 k) date2 (strcat a ru2 d) desc2 (strcat a ru2 e) appr2 (strcat a ru2 i) eng2 (strcat a ru2 j) proj2 (strcat a ru2 k) date3 (strcat a ru3 d) desc3 (strcat a ru3 e) appr3 (strcat a ru3 i) eng3 (strcat a ru3 j) proj3 (strcat a ru3 k) date4 (strcat a ru4 d) desc4 (strcat a ru4 e) appr4 (strcat a ru4 i) eng4 (strcat a ru4 j) proj4 (strcat a ru4 k) date5 (strcat a ru5 d) desc5 (strcat a ru5 e) appr5 (strcat a ru5 i) eng5 (strcat a ru5 j) proj5 (strcat a ru5 k) date6 (strcat a ru6 d) desc6 (strcat a ru6 e) appr6 (strcat a ru6 i) eng6 (strcat a ru6 j) proj6 (strcat a ru6 k) date7 (strcat a ru7 d) desc7 (strcat a ru7 e) appr7 (strcat a ru7 i) eng7 (strcat a ru7 j) proj7 (strcat a ru7 k) date8 (strcat a ru8 d) desc8 (strcat a ru8 e) appr8 (strcat a ru8 i) eng8 (strcat a ru8 j) proj8 (strcat a ru8 k) date9 (strcat a ru9 d) desc9 (strcat a ru9 e) appr9 (strcat a ru9 i) eng9 (strcat a ru9 j) proj9 (strcat a ru9 k) date10 (strcat a ru10 d) desc10 (strcat a ru10 e) appr10 (strcat a ru10 i) eng10 (strcat a ru10 j) proj10 (strcat a ru10 k) date11 (strcat a ru11 d) desc11 (strcat a ru11 e) appr11 (strcat a ru11 i) eng11 (strcat a ru11 j) proj11 (strcat a ru11 k) date12 (strcat a ru12 d) desc12 (strcat a ru12 e) appr12 (strcat a ru12 i) eng12 (strcat a ru12 j) proj12 (strcat a ru12 k) date13 (strcat a ru13 d) desc13 (strcat a ru13 e) appr13 (strcat a ru13 i) eng13 (strcat a ru13 j) proj13 (strcat a ru13 k) date14 (strcat a ru14 d) desc14 (strcat a ru14 e) appr14 (strcat a ru14 i) eng14 (strcat a ru14 j) proj14 (strcat a ru14 k) date15 (strcat a ru15 d) desc15 (strcat a ru15 e) appr15 (strcat a ru15 i) eng15 (strcat a ru15 j) proj15 (strcat a ru15 k) date16 (strcat a ru16 d) desc16 (strcat a ru16 e) appr16 (strcat a ru16 i) eng16 (strcat a ru16 j) proj16 (strcat a ru16 k) date17 (strcat a ru17 d) desc17 (strcat a ru17 e) appr17 (strcat a ru17 i) eng17 (strcat a ru17 j) proj17 (strcat a ru17 k) date18 (strcat a ru18 d) desc18 (strcat a ru18 e) appr18 (strcat a ru18 i) eng18 (strcat a ru18 j) proj18 (strcat a ru18 k) date19 (strcat a ru19 d) desc19 (strcat a ru19 e) appr19 (strcat a ru19 i) eng19 (strcat a ru19 j) proj19 (strcat a ru19 k) date20 (strcat a ru20 d) desc20 (strcat a ru20 e) appr20 (strcat a ru20 i) eng20 (strcat a ru20 j) proj20 (strcat a ru20 k) ) (if (> r1 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp1 "" "" "" r1 date1 eng1 appr1))() (if (> r2 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp2 "" "" "" r2 date2 eng2 appr2))() (if (> r3 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp3 "" "" "" r3 date3 eng3 appr3))() (if (> r4 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp4 "" "" "" r4 date4 eng4 appr4))() (if (> r5 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp5 "" "" "" r5 date5 eng5 appr5))() (if (> r6 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp6 "" "" "" r6 date6 eng6 appr6))() (if (> r7 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp7 "" "" "" r7 date7 eng7 appr7))() (if (> r8 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp8 "" "" "" r8 date8 eng8 appr8))() (if (> r9 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp9 "" "" "" r9 date9 eng9 appr9))() (if (> r10 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp10 "" "" "" r10 date10 eng10 appr10))() (if (> r11 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp11 "" "" "" r11 date11 eng11 appr11))() (if (> r12 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp12 "" "" "" r12 date12 eng12 appr12))() (if (> r13 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp13 "" "" "" r13 date13 eng13 appr13))() (if (> r14 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp14 "" "" "" r14 date14 eng14 appr14))() (if (> r15 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp15 "" "" "" r15 date15 eng15 appr15))() (if (> r16 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp16 "" "" "" r16 date16 eng16 appr16))() (if (> r17 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp17 "" "" "" r17 date17 eng17 appr17))() (if (> r18 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp18 "" "" "" r18 date18 eng18 appr18))() (if (> r19 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp19 "" "" "" r19 date19 eng19 appr19))() (if (> r20 0)(COMMAND "-insert" "REV1T40GME1-BOT" rp20 "" "" "" r20 date20 eng20 appr20))() (if (> r1 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt1 "" "" "" rt1 date1 eng1 appr1 desc1))() (if (> r2 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt2 "" "" "" rt2 date2 eng2 appr2 desc2))() (if (> r3 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt3 "" "" "" rt3 date3 eng3 appr3 desc3))() (if (> r4 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt4 "" "" "" rt4 date4 eng4 appr4 desc4))() (if (> r5 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt5 "" "" "" rt5 date5 eng5 appr5 desc5))() (if (> r6 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt6 "" "" "" rt6 date6 eng6 appr6 desc6))() (if (> r7 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt7 "" "" "" rt7 date7 eng7 appr7 desc7))() (if (> r8 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt8 "" "" "" rt8 date8 eng8 appr8 desc8))() (if (> r9 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt9 "" "" "" rt9 date9 eng9 appr9 desc9))() (if (> r10 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt10 "" "" "" rt10 date10 eng10 appr10 desc10))() (if (> r11 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt11 "" "" "" rt11 date11 eng11 appr11 desc11))() (if (> r12 0)(COMMAND "-insert" "REV1T40GME1-TOP" rpt12 "" "" "" rt12 date12 eng12 appr12 desc12))() (setvar "osmode" osnapsettings) (setvar "clayer" lyr) (COMMAND "ZOOM" "E") (PRINC) )