« previous next »
Pages: [1] |   Go Down

Author Topic: about txt make lisp error  (Read 832 times)

0 Members and 1 Guest are viewing this topic.

dussla

  • Bull Frog
  • Posts: 291
about txt make lisp error
« on: May 13, 2022, 01:50:38 PM »
hi  firends
i modified this lisp .

this lisp is to send  txt coddinate .
sometime is work
but
sometime is error
i can not know problem .

error is  bad arugment type : stringp nil

pls what problem ?




Code - Auto/Visual Lisp: [Select]
  1. (Defun C:smt (/         extractText           makecsvstring        )
  2.  (setvar "osmode" 0)
  4.                    
  5.   (defun extractText
  6.      (filterLIst / outputfile f en i ss name x y z path)
  7.  
  8.                    
  9.     (if (= nil filterLIst)
  10.       (setq filterLIst
  11.          '((-4 . "<or") (0 . "TEXT") (0 . "MTEXT") (-4 . "or>"))
  12.       )
  13.     )
  14.  
  15.  
  16.  
  17.       (setq path  "c:/" )
  18.  
  19.     (setq filename "txt2txt")
  20.  
  21.  
  22.     (setq outputfile
  23.        (strcat path
  24.            "/"
  25.            filename
  26.            ".txt"
  27.        )
  28.     )
  29.  
  30.  
  31.  
  32.                  
  33.     (setq i  -1
  34.       ss (ssget  filterLIst)
  35.     )
  36.                                
  37.  
  38.                
  39.     (if ss
  40.       (progn
  41.     (setq f (open outputfile "w"))
  42.     (if f
  43.       (progn
  44.      
  45.         (while (setq en (ssname ss (setq i (+ 1 i))))
  46.                
  47.                  
  48.                  
  49.                  
  50.                     (vla-GetBoundingBox (vlax-ename->vla-object en) 'Ptmin 'Ptmax)
  51.                     (setq box (cons (vlax-safearray->list PtMin)
  52.                     (vlax-safearray->list PtMax)))
  53.                                 (setq  funx (abs (- (cadr box) (caar box)   ) ) )
  54.                         (setq  funy (abs (- (caddr box) (cadar box))))
  55.                     ;write to csv
  56.        
  57.                  
  58.                    (setq name (makecsvstring (cdr (assoc 1 (entget en)))))smt
  59.            (setq x (rtos (nth 1 (assoc 10 (entget en)))))
  60.            (setq y (rtos (nth 2 (assoc 10 (entget en)))))
  61.            (setq z (rtos (nth 3 (assoc 10 (entget en)))))
  62.                  
  63.                    (setq funxx (rtos (caar box) ))  
  64.                    (setq funyy (rtos (cadar box )))
  65.                    
  66.                    (setq stx (rtos funx ))
  67.                    (setq sty (rtos funy ))  
  68.                    
  69.                  
  70.          (write-line (strcat  X "       " Y "   " Z "   " name "        " funxx "       " funyy "       " stx " " sty    ) f)
  71.        
  72.          
  73.         )
  74.         (close f)
  75.                    
  76.         (Alert "Done!")
  77.       )
  78.                    
  79.       (print "\nWrong input unable to create csv file:")
  80.     )
  81.       )
  82.  
  83.       (print "\nNo text entity found:")
  84.     )
  85.     (princ)
  86.   )
  87.   ;;---------------------------------------------------------------EnD extractText --------------------------------
  88.  
  89.  
  90.  
  91.  
  92.            ;this function add " to start and end of supply string
  93.   (defun makecsvstring (instring)
  94.     (if (= nil instring)
  95.       (setq instring "")
  96.     )
  97.     (strcat instring )
  98.   )
  99.  
  100.  
  101.  
  102.   (extractText filterLIst)
  103.  
  104.  
  105. )



EDIT (John): Added code tags.
« Last Edit: May 13, 2022, 06:59:22 PM by JohnK »
Logged

mhupp

  • Bull Frog
  • Posts: 250
Re: about txt make lisp error
« Reply #1 on: May 13, 2022, 08:04:28 PM »
Whats happening is AutoCAD quark  text\mtext that isn't left justified insertion point is stored in dxf code 11. the code doesn't account for this so when it finds text that isn't left justified their isn't any values for x y or z when its trying to write-line so it errors "stringp nil"

updated the code to be a little more efficient and to account for this as well.

Code - Auto/Visual Lisp: [Select]
  1. (defun C:SMT (/ ss f txt LL UR str ent LLx LLy stx sty x y z)
  3.   (setvar "osmode" 0)
  4.   (if (setq ss (ssget '((0 . "*TEXT"))))
  5.     (progn
  6.       (if (setq f (open "C:\\txt2txt.txt" "w"))
  7.         (progn
  8.           (foreach txt (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
  9.             (vla-getboundingbox (vlax-ename->vla-object txt) 'minpt 'maxpt)
  10.             (setq LL (vlax-safearray->list minpt)
  11.                   UR (vlax-safearray->list maxpt)
  12.                   str (cdr (assoc 1 (setq ent (entget txt))))
  13.                   LLx (rtos (car LL) 2)
  14.                   LLy (rtos (cadr LL) 2)
  15.                   stx (rtos (- (car UR) (car LL)) 2)
  16.                   sty (rtos (- (cadr UR) (cadr LL)) 2)
  17.             )
  18.             (if (eq (cdr (assoc 72 ent)) 0)
  19.               (setq x (rtos (cadr (assoc 10 ent)) 2)
  20.                     y (rtos (caddr (assoc 10 ent)) 2)
  21.                     z (rtos (last (assoc 10 ent)) 2)
  22.               )
  23.               (setq x (rtos (cadr (assoc 11 ent)) 2)
  24.                     y (rtos (caddr (assoc 11 ent)) 2)
  25.                     z (rtos (last (assoc 11 ent)) 2)
  26.               )
  27.             )
  28.             (write-line (strcat X "   " Y "   " Z "   " str "   " LLx "   " LLy "   " stx "   " sty) f)
  29.           )
  30.           (close f)
  31.           (Alert "txt2txt Created!")
  32.         )
  33.         (prompt "\nUnable to create CSV file:")
  34.       )
  35.     )
  36.     (prompt "\nNo Text Entity Selected: ")
  37.   )
  38.   (setvar "osmode" 1)
  39.   (princ)
  40. )

Also might want to update the location of where the file is being created.

your documents folder
Code - Auto/Visual Lisp: [Select]
  1. (if (setq F (open (strcat (getenv "userprofile") "\\Documents\\txt2txt.txt") "w"))

or in the same folder as the drawing. (must be saved)
Code - Auto/Visual Lisp: [Select]
  1. (if (setq F (open (strcat (getvar 'dwgprefix) "\\txt2txt.txt") "w"))
Logged

dussla

  • Bull Frog
  • Posts: 291
Re: about txt make lisp error
« Reply #2 on: May 14, 2022, 03:18:56 AM »
Quote from: mhupp on May 13, 2022, 08:04:28 PM
Whats happening is AutoCAD quark  text\mtext that isn't left justified insertion point is stored in dxf code 11. the code doesn't account for this so when it finds text that isn't left justified their isn't any values for x y or z when its trying to write-line so it errors "stringp nil"

updated the code to be a little more efficient and to account for this as well.

Code - Auto/Visual Lisp: [Select]
  1. (defun C:SMT (/ ss f txt LL UR str ent LLx LLy stx sty x y z)
  3.   (setvar "osmode" 0)
  4.   (if (setq ss (ssget '((0 . "*TEXT"))))
  5.     (progn
  6.       (if (setq f (open "C:\\txt2txt.txt" "w"))
  7.         (progn
  8.           (foreach txt (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS)))
  9.             (vla-getboundingbox (vlax-ename->vla-object txt) 'minpt 'maxpt)
  10.             (setq LL (vlax-safearray->list minpt)
  11.                   UR (vlax-safearray->list maxpt)
  12.                   str (cdr (assoc 1 (setq ent (entget txt))))
  13.                   LLx (rtos (car LL) 2)
  14.                   LLy (rtos (cadr LL) 2)
  15.                   stx (rtos (- (car UR) (car LL)) 2)
  16.                   sty (rtos (- (cadr UR) (cadr LL)) 2)
  17.             )
  18.             (if (eq (cdr (assoc 72 ent)) 0)
  19.               (setq x (rtos (cadr (assoc 10 ent)) 2)
  20.                     y (rtos (caddr (assoc 10 ent)) 2)
  21.                     z (rtos (last (assoc 10 ent)) 2)
  22.               )
  23.               (setq x (rtos (cadr (assoc 11 ent)) 2)
  24.                     y (rtos (caddr (assoc 11 ent)) 2)
  25.                     z (rtos (last (assoc 11 ent)) 2)
  26.               )
  27.             )
  28.             (write-line (strcat X "   " Y "   " Z "   " str "   " LLx "   " LLy "   " stx "   " sty) f)
  29.           )
  30.           (close f)
  31.           (Alert "txt2txt Created!")
  32.         )
  33.         (prompt "\nUnable to create CSV file:")
  34.       )
  35.     )
  36.     (prompt "\nNo Text Entity Selected: ")
  37.   )
  38.   (setvar "osmode" 1)
  39.   (princ)
  40. )

Also might want to update the location of where the file is being created.

your documents folder
Code - Auto/Visual Lisp: [Select]
  1. (if (setq F (open (strcat (getenv "userprofile") "\\Documents\\txt2txt.txt") "w"))

or in the same folder as the drawing. (must be saved)
Code - Auto/Visual Lisp: [Select]
  1. (if (setq F (open (strcat (getvar 'dwgprefix) "\\txt2txt.txt") "w"))
wow
code is very simple
thank you really   rellay  really ~~~
Logged

BIGAL

  • Swamp Rat
  • Posts: 1409
  • 40 + years of using Autocad
Re: about txt make lisp error
« Reply #3 on: May 14, 2022, 11:19:41 PM »
Not sure why your using a bounding box, the simplest is get insertion point of text, this varies depending on the text justification, but a entget will reveal dxf code 10 & 11 which can be used.
Logged
A man who never made a mistake never made anything
Pages: [1] |   Go Up
« previous next »