Hi All,
I recently added a few lines of code to a lisp program that was loading and
running just fine. Since I added these lines, I get this error message
"malformed string". Here is the lines I added. Can anybody find the malformed
string and let me know how to correct it?
Appreciate any help
vinnyg
(setq ans50 (getstring "\n Do you want to locate a point for an
embed at left side of panel near top? <Y or N>: "))
(if (or (= ans50 "Y") (= ans50 "y"))
(progn
(prompt "\n 1st point is how far")
(setq pt1 (getdist "\nBelow top of panel?:"))
(setq p108 (polar p4 (+(dtr 180) ang) pt1))
(command "exit" "")
)
)
(setq ans51 (getstring "\n Do you want to locate a second point for an
embed at right side of panel near top? <Y or N>: "))
(if (or (= ans51 "Y") (= ans51 "y"))
(progn
(prompt "\n 2nd point is how far")
(setq pt2 (getdist "\nBelow top of panel?:"))
(setq p109 (polar p3 (-(dtr 0) ang) pt2))
(command "exit" "")
)
)
(setq ans52 (getstring "\n Do you want a center line between
those 2 points <Y or N>: "))
(if (or (= ans52 "Y") (= ans52 "y"))
(progn
(setvar "clayer" "1")
(setvar "cecolor "1")
(command "line" p108 p109 "")
(command "exit" "")
)
)
(redraw)
(princ)
) ; end of defun
<edit> Added code tags Mav
