converting txt file to lsp

[itsnathanblake]

Hi guys,

I am currently having issue with converting a txt file to lsp, even though I have put .lsp at the end of the file name 

please tell me how I can override this.

[Patchy]

and what happen to it?

Is it write protected? crash your system?...........

[Kent1Cooper]

---

@Patchy wrote:

and what happen to it? ....

---

Is the issue only that Windows Explorer is displaying its file Type as "Text Document" rather than "AutoLISP Application source"?  Does it work anyway?  If not, what is the "issue"?  Can you APPLOAD it?  Are there any messages?  If it loads, what happens when you try to run it?  I will start from the assumption that its contents are valid AutoLisp code, but does that need to be verified?  Etc., etc.

[JTBWorld]

Check the "File name extensions" checkbox in File Explorer on the View tab. 

[pendean]

Drag and drop it over an open DWG file in AutoCAD: did AutoCAD recognize and load the lisp?
Or did it give you an error message or offer to do something else with it?

Do it now, answer your own question on whether you actually changed the file extension or not, that's all that matters.

[vinodkl · Accepted solution]

Hi @itsnathanblake 

It looks like you have named the file as brt.lsp but still the extension of the file is .txt. The .txt is not visible since the option of "file name extension" is disabled. Try turning it on (see snapshot below) in file explorer and then remove the file extension .txt from file and press enter that would fix the issue 😉🙂

[itsnathanblake]

Hi guys thanks for all the assistance on this one, the last guy to comment got it tho it was because I didn't have file extensions in view. all sorted now so thanks for your inputs.

[18120536]

(defun c:ciftNumara ()
(setq cnt 1)
(setq ss (ssget '((0 . "TEXT,MTEXT")))) ; Sadece text ve mtext seç
(if ss
(progn
(setq len (sslength ss))
(setq i 0)
(while (< i len)
(setq ent (ssname ss i))
(setq val (itoa cnt))
(command "_.change" ent "" "_p" "_value" val "")
(setq i (1+ i))
(setq ent (ssname ss i))
(command "_.change" ent "" "_p" "_value" val "")
(setq i (1+ i))
(setq cnt (1+ cnt))
)
)
(prompt "\nText nesneleri seçilmedi.")
)
(princ)
)