CASE1 (Remove all Alphabets): I need a lisp that can remove all the alphabets from selected texts For example the 'Motor 125 kW' text is there in autocad. Richard, I'm having a little trouble with your Lisp routine.ĭear All, I need a lisp that extract numbers seperately from selected texts. ') (WHILE (= 1 1) (= 2 2) (SETQ OBJ (ENTSEL)) (SETQ OBJDATA (ENTGET (CAR OBJ))) (SETQ TXT (CDR (ASSOC 1 OBJDATA))) (WRITE-LINE TXT F) ) ). = (DEFUN C:TXTOFILE () (SETQ FILEIN (GETSTRING ' n ENTER OUTPUT TEXT FILE')) (SETQ F (OPEN FILEIN 'w')) (PROMPT 'n Pick text in the order you want them to appear in the file. Richard Lash = TXTOFILE.LSP RICK LASH JPICK TEXT STRINGS IN THE ORDER YOU WANT THEM TO APPEAR IN A TEXT FILE. It may help, modify it to suit your needs if it will do. Laura Here is a simple routine I wrote a while back.
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |