is 9 Years, 3 Months, and 4 Days old, It is ranked #406,775 in traffic by alexa..
I am not a programmer, but was hoping someone could tell me why it no longer works.
The lisp routine looks for a block called "welltext" and "welltextl". The block is positioned next to monitoring wells on drawings and contains the well ID name, and additional attribute fields.
"welltextl" is the same block, but is in the legend.
We run the routine, and the routine finds the file that we specify, and updates the attribute fields automatically.
Being listed will probably help it's Google and other search engine rankings. Yahoo Directory: aids74is not listed in Yahoo Directory.
Google Page Rank (Page Rank) is the Google search engine is used to evaluate the importance of a web page one of the methods. This Lisp routine worked in ACAD 2006 and previous versions.It was given to me from a former colleague, and we use it quite often.What is happening now is the routine runs, and acts as if it worked, however nothing changes in the attribute fields.no errors, no crashing or locking up....everything is the same as it always was, except now in 2008, the end result is NO CHANGE. ;01-0200068 (defun ATTNIL (/ ss count e1 elist text a text1 textcon) (Set Q SS (SSGet "X" '((0 . "WELLTEXT")))) (If SS (Prog N (setq count 0) (Prompt "\n Deleting Old Attributes.") (while ( (defun Parse (str delim / lst pos token) (while (setq pos (vl-string-search delim str)) (setq lst (cons (if (= (setq token (substr str 1 pos)) delim) nil token ) lst ) str (substr str (+ (strlen delim) pos 1)) ) ) (if ( (strlen str) 0) (setq lst (cons str lst)) ) (reverse lst) ) (De Fun C: DAT2BLK1 (/ Fil Nm File Leg1 Leg SS SSL SS1 M1 M2 Next Wellno BAttno BWelno E Well Lin Loc Data Asoc ) ;;; (Set Q Fil Nm nil File nil SS nil SSL nil SS1 nil M1 nil M2 nil Next nil ;;; Wellno nil BAttno nil BWelno nil E nil Well nil Lin Loc nil ;;; Data nil Asoc nil ;;; ) (ERR) (SVar '("Cmd Echo")) (Set Var "Cmd Echo" 0) (Set Q Leg1 "Y") (Set Q SS (SSGet "X" '((0 . "WELLTEXT")))) (If SS (Prog N (While (Or (= Fil Nm Nil) (= Fil Nm "")) (Set Q Fil Nm (Str Case (Get String "\n Enter the data file name (eg.