How to extract text values from an AutoCAD table to a drawing
It has corrected the Excel formatting issue. Thank you!
Is it normal for the program to give as value to var1, for example, 101.0 when it is written only "101" in the cell and that the precision is set to "0"?
I am looking to use those variable to put in a single line text with the function "_text"
When I write in AutoLISP : (command "_text" "14.5,-67.25" "4" "0" var1 "")
It gives me: 101.0000000000000
instead of what I expected, which is 101. (See image below)
Is there a way to fix that?
Thanks again
@Anonymous wrote:
....It gives me: 101.0000000000000
instead of what I expected, which is 101. (See image below)
YES, there is, What other issues are you having stagiaireF9RWW?, you mind posting drawing sample so we can consider all the conditions.
FWIW:
(defun c:demo ( / _remFormat _GetRow _acadTable r c cellType RowData RowHeader)
(defun _remFormat (Str / p)
(vl-string-right-trim "}"
(if (setq p (vl-string-position 59 str nil t))
(substr str (+ 2 p)) str ) ))
(Defun _GetRow (e n i / data)
(repeat i
(if (setq st (vlax-invoke e 'GetCellValue n (setq i (1- i))))
(setq data (cons
(_remFormat (vl-princ-to-string st)) data)))
)
)
(if
(setq _acadTable (car (entsel "\nSelect table object: ")))
(progn
(setq _acadTable (vlax-ename->vla-object _acadTable)
r (Vlax-get _acadTable 'Rows)
c (Vlax-get _acadTable 'Columns)
)
(repeat r
(setq cellType (Vlax-invoke _acadTable 'GetRowType (setq r (1- r))))
(cond
( (= cellType 2) )
( (= cellType 4)
(setq RowHeader (_GetRow _acadTable r c)) )
( (and
(= cellType 1)
(Setq value (_GetRow _acadTable r c)))
(setq RowData (cons value RowData))
)
)
)
)
)
(list RowHeader RowData)
)
You can group the results using RowHeader / RowData Your goal is unclear to us, I'm sire we can give you better advice and suggestions if we have all the facts.
Cheers
Accepted solution
@Anonymous wrote:
...........
It gives me: 101.0000000000000
instead of what I expected, which is 101. (See image below)
..............
If you want to infact use it as a text then you might as well convert it to a string. Try below
;:Ranjit Singh
;;8/3/17
(defun c:somefunc (/ c ctr dat etdata ind lst prefix r tab tblent tblobj val varname)
(setq etdata (entget (setq tblent (car (entsel "\nSelect table object: "))))
ind (cdr (assoc 91 etdata))
tab (cdr (assoc 92 etdata))
r 0
c 0
ctr 1
prefix "var"
tblobj (vlax-ename->vla-object tblent))
(while (< c tab)
(while (< r ind)
(set (setq varname (read (strcat prefix (itoa ctr))))
(progn (setq val (vlax-invoke tblobj 'getcellvalue r c)
val (if (= 'str (type val))
(substr val (- (1+ (strlen val)) (vl-position (ascii ";") (reverse (vl-string->list val)))))
(rtos val 2 0)))))
(setq lst (cons (setq dat (cons varname val)) lst))
(setq ctr (if (listp (cdr dat))
ctr
(1+ ctr))
r (1+ r)))
(setq r 0
c (1+ c)))
(vl-remove-if '(lambda (x) (listp (cdr x))) (reverse lst)))
EDIT: Or if you want to not convert real to string but integers then replace
(rtos val 2 0)
in above code to
(fix val)
@Anonymous wrote:
Hi,
I tried your code, but the same issue appears :
If you are referring to the code I posted, you are correct. I did not consider THAT issue when I posted the code, I'm only trying to show you how I would approach the other issues and I'm eagerly waiting for you to post an example or show us the intent so we can come up with a generic solution in one go.
Anyways, everything works out for you in the end.
Cheers