Help with tx2mtx

I use AutoCAD LT 2000i. I needed a LISP interpreter to run one of several functions, to combine multiple TEXT entities into one MTEXT.
My LT now does LISP, thanks to David T (dtrotzjr) for helping me find LT Boost (http://www.cadaware.com/download.htm ).
Next I found a couple of LISP programs to do the job. The one I'm using right now is TX2MTX, available at several locations:
http://www.cogosoftware.com/downl.html
It only has one problem. It is supposed to leave the resulting MTEXT entity on the same layer that the TEXT entities came from.
Instead, the new MTEXT is on layer 0.
I don't know enough LISP to figure out what's happening. I suspect that there might be a change between R14 and R2000 that is responsible. Can somebody look at the LISP code and see? Any other suggestions also welcome.
Steven
--
Steven - snipped-for-privacy@houston.rrwax.com
remove wax for reply
  Click to see the full signature.
Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload
Steven, Just change the 2 lines dated 8/6/03 and it should be good to go....
;set the layer and color ;;(setvar "CLAYER" text_layr) rem'ed by Jeff Mishler 8/6/03 (if text_colr;if color in entity list (setvar "CECOLOR" (itoa text_colr)) ) ;erase selected text (command ".erase" sst2 "") ;;;;;;;;;; ;;;;;;;;;; ;insert mtext ; (command ".-mtext" ; text_inse "a" text_atch "s" text_styl "h" text_heig "w" text_widt text_strg "") ;;;;;;;;;; ;;;;;;;;;; the following was added by Dave Perry 12/2/98. (setq dp2 (strlen text_strg)) (while (> dp2 250) (setq str1 (substr text_strg 1 250)) (setq text_strg (substr text_strg 251)) (setq dp2 (strlen text_strg)) (setq dp1 (append dp1 (list (cons 3 str1)))) );while (setq dp1 (append dp1 (list (cons 1 text_strg)))) (entmake (append (list '(0 . "MTEXT") '(100 . "AcDbEntity") '(67 . 0) (cons 8 text_layr);;modified 8/6803 by Jeff Mishler '(100 . "AcDbMText")
message

Add pictures here
<% if( /^image/.test(type) ){ %>
<% } %>
<%-name%>
Add image file
Upload

Polytechforum.com is a website by engineers for engineers. It is not affiliated with any of manufacturers or vendors discussed here. All logos and trade names are the property of their respective owners.