;; Text File to Table - Lee Mac
;; Prompts the user to select a text file containing 4 columns of comma-delimited data
;; and generates an AutoCAD Table containing the file data at the point specified.
(defun c:txt2tab ( / *error* des ins lin lst txt )
(defun *error* ( msg )
(if (= 'file (type des)) (close des))
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(if (setq txt (getfiled "choose a file P,X,Y,Z (*.txt)" "" "txt" 16))
(if (setq des (open txt "r"))
(progn
(while (setq lin (read-line des))
(if (= 4 (length (setq lin (LM:str->lst lin ","))))
(setq lst (cons lin lst))
)
)
(setq des (close des))
(if lst
(if (setq ins (getpoint "\nSpecify point for table: "))
(LM:addtable
(vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
(if (= 1 (getvar 'cvport))
'paperspace
'modelspace
)
)
(trans ins 1 0)
nil
(cons '("A/A" "X" "Y" "Z") (reverse lst))
nil
)
)
(princ "\nNo valid data found in selected file.")
)
)
(princ "\nUnable to open selected file for reading.")
)
)
(princ)
)
;;---------------------=={ Add Table }==----------------------;;
;; ;;
;; Creates an AutoCAD Table Object at the specified point, ;;
;; populated with the given data and optional title. ;;
;;------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;------------------------------------------------------------;;
;; Arguments: ;;
;; spc - VLA Block Object ;;
;; ins - WCS Insertion Point for Table ;;
;; ttl - [Optional] Table title ;;
;; lst - Matrix list of data to populate the table ;;
;; eqc - If T, columns are of equal width ;;
;;------------------------------------------------------------;;
;; Returns: VLA Table Object ;;
;;------------------------------------------------------------;;
(defun LM:AddTable ( spc ins ttl lst eqc / dif hgt i j obj stn sty wid )
(setq sty
(vlax-ename->vla-object
(cdr
(assoc -1
(dictsearch
(cdr
(assoc -1
(dictsearch (namedobjdict) "acad_tablestyle")
)
)
(getvar 'ctablestyle)
)
)
)
)
)
(setq hgt (vla-gettextheight sty acdatarow))
(if (LM:Annotative-p (setq stn (vla-gettextstyle sty acdatarow)))
(setq hgt (/ hgt (getvar 'cannoscalevalue)))
)
(setq wid
(mapcar
(function
(lambda ( col )
(apply 'max
(mapcar
(function
(lambda ( str )
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 str)
(cons 40 hgt)
(cons 07 stn)
)
)
)
)
)
col
)
)
)
)
(apply 'mapcar (cons 'list lst))
)
)
(if
(and ttl
(< 0.0
(setq dif
(/
(-
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 ttl)
(cons 40 hgt)
(cons 07 stn)
)
)
)
(apply '+ wid)
)
(length wid)
)
)
)
)
(setq wid (mapcar '(lambda ( x ) (+ x dif)) wid))
)
(setq obj
(vla-addtable spc
(vlax-3D-point ins)
(1+ (length lst))
(length (car lst))
(* 2.0 hgt)
(if eqc
(apply 'max wid)
(/ (apply '+ wid) (float (length (car lst))))
)
)
)
(vla-put-regeneratetablesuppressed obj :vlax-true)
(vla-put-stylename obj (getvar 'ctablestyle))
(setq i -1)
(if (null eqc)
(foreach col wid
(vla-setcolumnwidth obj (setq i (1+ i)) col)
)
)
(if ttl
(progn
(vla-settext obj 0 0 ttl)
(setq i 1)
)
(progn
(vla-deleterows obj 0 1)
(setq i 0)
)
)
(foreach row lst
(setq j 0)
(foreach val row
(vla-settext obj i j val)
(setq j (1+ j))
)
(setq i (1+ i))
)
(vla-put-regeneratetablesuppressed obj :vlax-false)
obj
)
;; Annotative-p
;; Returns T if the given Textstyle is annotative
(defun LM:annotative-p ( sty )
(and (setq sty (tblobjname "style" sty))
(setq sty (cadr (assoc -3 (entget sty '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse sty))))
)
)
;; String to List
;; Separates a string using a given delimiter
;; str - [str] string to process
;; del - [str] delimiter by which to separate the string
(defun LM:str->lst ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
(vl-load-com) (princ)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;----------------------=={ Text File to Table }==----------------------;;
;; ;;
;; Prompts the user to select a text file and generates an AutoCAD ;;
;; Table at the point specified, representing the file data. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
(defun c:txt2tab2 ( / *error* del des hdl ins lin lst txt )
(setq ttl nil ;; Table Title (nil for no title)
hdl '("A/A" "X" "Y") ;; Table Headings
del "," ;; Data Delimiter String
)
(defun *error* ( msg )
(if (= 'file (type des)) (close des))
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(if (setq txt (getfiled "choose a file P,X,Y (*.txt)" "" "txt" 16))
(if (setq des (open txt "r"))
(progn
(while (setq lin (read-line des))
(setq lst (cons (mapcar '(lambda ( a b ) a) (LM:str->lst lin del) hdl) lst))
)
(setq des (close des))
(if lst
(if (setq ins (getpoint "\nSpecify point for table: "))
(LM:addtable
(vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
(if (= 1 (getvar 'cvport))
'paperspace
'modelspace
)
)
(trans ins 1 0) ttl (cons hdl (reverse lst)) nil
)
)
(princ "\nNo valid data found in selected file.")
)
)
(princ "\nUnable to open selected file for reading.")
)
)
(princ)
)
;;---------------------------=={ Add Table }==--------------------------;;
;; ;;
;; Creates an AutoCAD Table Object at the specified point, populated ;;
;; with the given data and optional title. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
;; Arguments: ;;
;; spc - VLA Block object ;;
;; ins - WCS Insertion point for table ;;
;; ttl - [Optional] Table title ;;
;; lst - Matrix list of data to populate the table ;;
;; eqc - If T, columns are of equal width ;;
;;----------------------------------------------------------------------;;
;; Returns: VLA Table Object ;;
;;----------------------------------------------------------------------;;
(defun LM:AddTable ( spc ins ttl lst eqc / dif hgt i j obj stn sty wid )
(setq sty
(vlax-ename->vla-object
(cdr
(assoc -1
(dictsearch
(cdr
(assoc -1
(dictsearch (namedobjdict) "acad_tablestyle")
)
)
(getvar 'ctablestyle)
)
)
)
)
)
(setq hgt (vla-gettextheight sty acdatarow))
(if (LM:Annotative-p (setq stn (vla-gettextstyle sty acdatarow)))
(setq hgt (/ hgt (getvar 'cannoscalevalue)))
)
(setq wid
(mapcar
(function
(lambda ( col )
(apply 'max
(mapcar
(function
(lambda ( str )
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 str)
(cons 40 hgt)
(cons 07 stn)
)
)
)
)
)
col
)
)
)
)
(apply 'mapcar (cons 'list lst))
)
)
(if
(and ttl
(< 0.0
(setq dif
(/
(-
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 ttl)
(cons 40 hgt)
(cons 07 stn)
)
)
)
(apply '+ wid)
)
(length wid)
)
)
)
)
(setq wid (mapcar '(lambda ( x ) (+ x dif)) wid))
)
(setq obj
(vla-addtable spc
(vlax-3D-point ins)
(1+ (length lst))
(length (car lst))
(* 2.0 hgt)
(if eqc
(apply 'max wid)
(/ (apply '+ wid) (float (length (car lst))))
)
)
)
(vla-put-regeneratetablesuppressed obj :vlax-true)
(vla-put-stylename obj (getvar 'ctablestyle))
(setq i -1)
(if (null eqc)
(foreach col wid
(vla-setcolumnwidth obj (setq i (1+ i)) col)
)
)
(if ttl
(progn
(vla-settext obj 0 0 ttl)
(setq i 1)
)
(progn
(vla-deleterows obj 0 1)
(setq i 0)
)
)
(foreach row lst
(setq j 0)
(foreach val row
(vla-settext obj i j val)
(setq j (1+ j))
)
(setq i (1+ i))
)
(vla-put-regeneratetablesuppressed obj :vlax-false)
obj
)
;; Returns T if the given Textstyle is annotative
(defun LM:annotative-p ( sty )
(and (setq sty (tblobjname "style" sty))
(setq sty (cadr (assoc -3 (entget sty '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse sty))))
)
)
;; String to List
;; Separates a string using a given delimiter
;; str - [str] string to process
;; del - [str] delimiter by which to separate the string
(defun LM:str->lst ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
;;----------------------------------------------------------------------;;
(vl-load-com)
(princ
(strcat
"\n:: Text2Table.lsp | Version 1.1 | \\U+00A9 Lee Mac "
(menucmd "m=$(edtime,0,yyyy)")
"\n:: Type \"txt2tab\" to Invoke ::"
)
)
(princ)
;;----------------------------------------------------------------------;;
;; End of File ;;
;;----------------------------------------------------------------------;;
(command "_layer" "m" "table" "c" "7" "" )
(setq scl(/ (getreal "\n Specify the scale (100,200,500,etc) : ") 100))
(setq hgt(* 0.25 scl))Edit: Just a question though. Why go this route? You know you can open that TXT file in Excel (it's the same thing as a CVS file). Then you can select the columns & rows you want, copy to clipboard (Ctrl+C) and paste special into ACad (paste it as ACad Objects - which turns the spreadsheet into an acad table).
(command "_layer" "m" "table" "c" "7" "" )
(setq scl(/ (getreal "\n Specify the scale (100,200,500,etc) : ") 100))
(setq hgt(* 0.25 scl))Since you found this at CadTutor ; have you asked in the thread that you acquired the code from ?
I found at CadTutor forum , a Lee Mac lisp code. It is very useful but a have a little problem with the text size. I dont know a lot of things about lisp that's way i ask for you if any one can add a commad from the text size.
Sorry about Shouting bur i explain that I dont know a lot of things about lisp that's way i ask for you if any one can add a commad from the text size. I don't know how to change this code. If you can help me...
thanks
;;----------------------=={ Text File to Table }==----------------------;;
;; ;;
;; Prompts the user to select a text file and generates an AutoCAD ;;
;; Table at the point specified, representing the file data. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
(defun c:txt2tab2 ( / *error* del des hdl ins lin lst txt )
(setq ttl nil ;; Table Title (nil for no title)
hdl '("A/A" "X" "Y") ;; Table Headings
del "," ;; Data Delimiter String
)
(defun *error* ( msg )
(if (= 'file (type des)) (close des))
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(if (setq txt (getfiled "choose a file P,X,Y (*.txt)" "" "txt" 16))
(if (setq des (open txt "r"))
(progn
(while (setq lin (read-line des))
(setq lst (cons (mapcar '(lambda ( a b ) a) (LM:str->lst lin del) hdl) lst))
)
(setq des (close des))
(if lst
(if (setq ins (getpoint "\nSpecify point for table: "))
(LM:addtable
(vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
(if (= 1 (getvar 'cvport))
'paperspace
'modelspace
)
)
(trans ins 1 0) ttl (cons hdl (reverse lst)) nil
)
)
(princ "\nNo valid data found in selected file.")
)
)
(princ "\nUnable to open selected file for reading.")
)
)
(princ)
)
;;---------------------------=={ Add Table }==--------------------------;;
;; ;;
;; Creates an AutoCAD Table Object at the specified point, populated ;;
;; with the given data and optional title. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
;; Arguments: ;;
;; spc - VLA Block object ;;
;; ins - WCS Insertion point for table ;;
;; ttl - [Optional] Table title ;;
;; lst - Matrix list of data to populate the table ;;
;; eqc - If T, columns are of equal width ;;
;;----------------------------------------------------------------------;;
;; Returns: VLA Table Object ;;
;;----------------------------------------------------------------------;;
(defun LM:AddTable ( spc ins ttl lst eqc / dif hgt i j obj stn sty wid )
(setq sty
(vlax-ename->vla-object
(cdr
(assoc -1
(dictsearch
(cdr
(assoc -1
(dictsearch (namedobjdict) "acad_tablestyle")
)
)
(getvar 'ctablestyle)
)
)
)
)
)
(setq hgt (vla-gettextheight sty acdatarow))
(if (LM:Annotative-p (setq stn (vla-gettextstyle sty acdatarow)))
(setq hgt (/ hgt (getvar 'cannoscalevalue)))
)
(setq wid
(mapcar
(function
(lambda ( col )
(apply 'max
(mapcar
(function
(lambda ( str )
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 str)
(cons 40 hgt)
(cons 07 stn)
)
)
)
)
)
col
)
)
)
)
(apply 'mapcar (cons 'list lst))
)
)
(if
(and ttl
(< 0.0
(setq dif
(/
(-
( (lambda ( box ) (if box (+ (* 2.5 hgt) (- (caadr box) (caar box))) 0.0))
(textbox
(list
(cons 01 ttl)
(cons 40 hgt)
(cons 07 stn)
)
)
)
(apply '+ wid)
)
(length wid)
)
)
)
)
(setq wid (mapcar '(lambda ( x ) (+ x dif)) wid))
)
(setq obj
(vla-addtable spc
(vlax-3D-point ins)
(1+ (length lst))
(length (car lst))
(* 2.0 hgt)
(if eqc
(apply 'max wid)
(/ (apply '+ wid) (float (length (car lst))))
)
)
)
(vla-put-regeneratetablesuppressed obj :vlax-true)
(vla-put-stylename obj (getvar 'ctablestyle))
(setq i -1)
(if (null eqc)
(foreach col wid
(vla-setcolumnwidth obj (setq i (1+ i)) col)
)
)
(if ttl
(progn
(vla-settext obj 0 0 ttl)
(setq i 1)
)
(progn
(vla-deleterows obj 0 1)
(setq i 0)
)
)
(foreach row lst
(setq j 0)
(foreach val row
(vla-settext obj i j val)
(setq j (1+ j))
)
(setq i (1+ i))
)
(vla-put-regeneratetablesuppressed obj :vlax-false)
obj
)
;; Returns T if the given Textstyle is annotative
(defun LM:annotative-p ( sty )
(and (setq sty (tblobjname "style" sty))
(setq sty (cadr (assoc -3 (entget sty '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse sty))))
)
)
;; String to List
;; Separates a string using a given delimiter
;; str - [str] string to process
;; del - [str] delimiter by which to separate the string
(defun LM:str->lst ( str del / pos )
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos) (LM:str->lst (substr str (+ pos 1 (strlen del))) del))
(list str)
)
)
;;----------------------------------------------------------------------;;
(vl-load-com)
(princ
(strcat
"\n:: Text2Table.lsp | Version 1.1 | \\U+00A9 Lee Mac "
(menucmd "m=$(edtime,0,yyyy)")
"\n:: Type \"txt2tab\" to Invoke ::"
)
)
(princ)
;;----------------------------------------------------------------------;;
;; End of File ;;
;;----------------------------------------------------------------------;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;----------------------=={ Text File to Table }==----------------------;;
;; ;;
;; Prompts the user to select a text file and generates an AutoCAD ;;
;; Table at the point specified, representing the file data. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
(defun c:txt2tab9 (/ *error* del des hdl ins lin lst txt scl hgt)
(setq scl (/ (getreal "\n Specify the scale (100,200,500,etc) : ")
100
)
)
(setq hgt (* 0.05 scl))
(setq ttl nil
;; Table Title (nil for no title)
hdl '("A/A" "X" "Y")
;; Table Headings
del ","
;; Data Delimiter String
)
(defun *error* (msg)
(if (= 'file (type des))
(close des)
)
(if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
(princ (strcat "\nError: " msg))
)
(princ)
)
(if (setq txt (getfiled "choose a file P,X,Y (*.txt)" "" "txt" 16))
(if (setq des (open txt "r"))
(progn
(while (setq lin (read-line des))
(setq
lst (cons
(mapcar '(lambda (a b) a) (LM:str->lst lin del) hdl)
lst
)
)
)
(setq des (close des))
(if lst
(if (setq ins (getpoint "\nSpecify point for table: "))
(progn
(vl-cmdf "_LAYER" "_M" "table" "_C" "7" "" "")
(setq obj
(LM:addtable
(vlax-get-property
(vla-get-activedocument (vlax-get-acad-object))
(if (= 1 (getvar 'cvport))
'paperspace
'modelspace
)
)
(trans ins 1 0)
ttl
(cons hdl (reverse lst))
nil
)
)
(vl-cmdf "_SCALE" (entlast) "" ins hgt)
(princ "\nNo valid data found in selected file.")
)
)
(princ "\nUnable to open selected file for reading.")
)
)
(princ)
)
;;---------------------------=={ Add Table }==--------------------------;;
;; ;;
;; Creates an AutoCAD Table Object at the specified point, populated ;;
;; with the given data and optional title. ;;
;;----------------------------------------------------------------------;;
;; Author: Lee Mac, Copyright © 2013 - www.lee-mac.com ;;
;;----------------------------------------------------------------------;;
;; Arguments: ;;
;; spc - VLA Block object ;;
;; ins - WCS Insertion point for table ;;
;; ttl - [Optional] Table title ;;
;; lst - Matrix list of data to populate the table ;;
;; eqc - If T, columns are of equal width ;;
;;----------------------------------------------------------------------;;
;; Returns: VLA Table Object ;;
;;----------------------------------------------------------------------;;
(defun LM:AddTable
(spc ins ttl lst eqc / dif hgt i j obj stn sty wid)
(setq sty
(vlax-ename->vla-object
(cdr
(assoc
-1
(dictsearch
(cdr
(assoc -1
(dictsearch (namedobjdict) "acad_tablestyle")
)
)
(getvar 'ctablestyle)
)
)
)
)
)
(setq hgt (vla-gettextheight sty acdatarow))
(if (LM:Annotative-p
(setq stn (vla-gettextstyle sty acdatarow))
)
(setq hgt (/ hgt (getvar 'cannoscalevalue)))
)
(setq wid
(mapcar
(function
(lambda (col)
(apply
'max
(mapcar
(function
(lambda (str)
((lambda (box)
(if box
(+ (* 2.5 hgt) (- (caadr box) (caar box)))
0.0
)
)
(textbox
(list
(cons 01 str)
(cons 40 hgt)
(cons 07 stn)
)
)
)
)
)
col
)
)
)
)
(apply 'mapcar (cons 'list lst))
)
)
(if
(and ttl
(< 0.0
(setq dif
(/
(-
((lambda (box)
(if box
(+ (* 2.5 hgt) (- (caadr box) (caar box)))
0.0
)
)
(textbox
(list
(cons 01 ttl)
(cons 40 hgt)
(cons 07 stn)
)
)
)
(apply '+ wid)
)
(length wid)
)
)
)
)
(setq wid (mapcar '(lambda (x) (+ x dif)) wid))
)
(setq obj
(vla-addtable
spc
(vlax-3D-point ins)
(1+ (length lst))
(length (car lst))
(* 2.0 hgt)
(if eqc
(apply 'max wid)
(/ (apply '+ wid) (float (length (car lst))))
)
)
)
(vla-put-regeneratetablesuppressed obj :vlax-true)
(vla-put-stylename obj (getvar 'ctablestyle))
(setq i -1)
(if (null eqc)
(foreach col wid
(vla-setcolumnwidth obj (setq i (1+ i)) col)
)
)
(if ttl
(progn
(vla-settext obj 0 0 ttl)
(setq i 1)
)
(progn
(vla-deleterows obj 0 1)
(setq i 0)
)
)
(foreach row lst
(setq j 0)
(foreach val row
(vla-settext obj i j val)
(setq j (1+ j))
)
(setq i (1+ i))
)
(vla-put-regeneratetablesuppressed obj :vlax-false)
obj
)
;; Returns T if the given Textstyle is annotative
(defun LM:annotative-p (sty)
(and (setq sty (tblobjname "style" sty))
(setq sty (cadr (assoc -3 (entget sty '("AcadAnnotative")))))
(= 1 (cdr (assoc 1070 (reverse sty))))
)
)
;; String to List
;; Separates a string using a given delimiter
;; str - [str] string to process
;; del - [str] delimiter by which to separate the string
(defun LM:str->lst (str del / pos)
(if (setq pos (vl-string-search del str))
(cons (substr str 1 pos)
(LM:str->lst (substr str (+ pos 1 (strlen del))) del)
)
(list str)
)
)
;;----------------------------------------------------------------------;;
(vl-load-com)
(princ
(strcat
"\n:: Text2Table.lsp | Version 1.1 | \\U+00A9 Lee Mac "
(menucmd "m=$(edtime,0,yyyy)")
"\n:: Type \"txt2tab\" to Invoke ::"
)
)
(princ)
;;----------------------------------------------------------------------;;
;; End of File ;;
;;----------------------------------------------------------------------;;
)
)
(if lst ;Do we have a valid list ?
(if (setq ins (getpoint "\nSpecify point for table: ")) ; Do we have a point
(progn ;added a progn here ymg
(vl-cmdf "_LAYER" "_M" "table" "_C" "7" "" ""); make layer here ymg
(LM:addtable
(vlax-get-property (vla-get-activedocument (vlax-get-acad-object))
(if (= 1 (getvar 'cvport))
'paperspace
'modelspace
)
)
(trans ins 1 0) ttl (cons hdl (reverse lst)) nil
)
(vl-cmdf "_SCALE" (entlast) "" ins 5) ; Replace the 5 with desired scale here ymg
); added end of progn we have a valid point here ymg
)
(princ "\nNo valid data found in selected file.") ; this part executed if we don't have a valid list.
)
(cons 62 3)(defun AcCmColor (color / AcCmC) ;color = index color
;Step1: get object
(setq AcCmC (vla-getInterfaceObject
(vlax-get-acad-object)
"AutoCAD.AcCmColor.17" ;acad2007
)
)
;Step2: convert to RGB
(vla-put-ColorIndex AcCmC color) ;where color behaves similar: (cons 62 color)
;Step3: result cons in a paired list = ( accmc (R G B))
(cons AcCmC ;#<VLA-OBJECT IAcadAcCmColor ~ >
(list (vla-get-Red AcCmC)
(vla-get-Green AcCmC)
(vla-get-Blue AcCmC)
)
)
) ;defun
; Try add the code below after (vla-settext... ) (vla-settext obj 0 0 ttl)