Set double line to cell

[ziele_o2k]

I want to set double line to specific cells in table.

I'm trying with

(vla-SetGridDoubleLineSpacing TabObj 0 0 (+ acHorzBottom acHorzTop acVertLeft acVertRight) 5)
(vla-SetGridVisibility2 TabObj 0 0 (+ acHorzBottom acHorzTop acVertLeft acVertRight) :vlax-true)

but I get error.

What is wrong?

[BIGAL]

Try the following there are no errors but no Double lines either ?

(setq obj (vlax-ename->vla-object (car (entsel "\nPick object"))))
(vla-SetGridDoubleLineSpacing Obj 0 0 (+ acHorzBottom acHorzTop acVertLeft acVertRight) 0.5)
(vla-SetGridVisibility Obj  (+ acHorzBottom acHorzTop acVertLeft acVertRight) acHeaderRow  :vlax-true)
one at a time works
(vla-SetGridVisibility2 Obj 0 0 acVertRight  :vlax-true)

Edited January 29, 2018 by BIGAL

[ziele_o2k]

Bigal, your code doesn't work.

Anyway, in my example I want to set double lines in title row, but I'm searching for solution which will work with any cell in table.

[Roy_043]

(vla-setgridlinestyle (vlax-ename->vla-object (car (entsel))) 0 0 achorzbottom acgridlinestyledouble)

[ziele_o2k]

Thank you Roy_043 !

(vla-SetGridDoubleLineSpacing TabObj 0 -1 (+ acHorzBottom acHorzTop acVertLeft acVertRight) 5)
(vla-setgridlinestyle TabObj 0 -1 (+ acHorzBottom acHorzTop acVertLeft acVertRight) acgridlinestyledouble)

[BIGAL]

Nice Roy_043 the Autodesk help was not that helpfull.