List to Data_Table

[ranjith0326]

Greetings...

Is there any possible to convert a list to Data_table.(Purpose is to use query )

Sample_list : 

(setq sample_list (list (list "Name" "Age" "DOB")
(list "Ran" "25" "15-03-1988")
(list "Jith" "26" "18-03-1998")
(list "Kumar" "27" "10-03-1978")))

[pbejse]

---

@ranjith0326 wrote:

Greetings...

Is there any possible to convert a list to Data_table.(Purpose is to use query )

---

Create or query?

To create a table

(defun c:demo ( / sample_list ht i p data_table)
  (setq sample_list
         '(("Name" "Age" "DOB")
           ("Ran" "25" "15-03-1988")
           ("Jith" "26" "18-03-1998")
           ("Kumar" "27" "10-03-1978")
          )
  )
  (setq ht (cdr (assoc 40 (tblsearch "Style" (getvar 'Textstyle))))
        ht (if (zerop ht)
             1
             (* ht 5)
           )
  )
  (if (setq i 0
            p (getpoint "\nTable Location :")
      )
    (progn (setq Data_table
                  (vlax-invoke
                    (vlax-get (vla-get-ActiveLayout (vla-get-activedocument (vlax-get-acad-object))) 'Block)
                    'AddTable
                    p
                    (1+ (length sample_list))
                    3
                    (* ht 0.35)
                    (* ht 4)
                  )
           )
           (vla-settext Data_table 0 0 "Data Sheet")
           (foreach itm sample_list
             (setq i (1+ i))
             (mapcar '(lambda (d n) (vla-settext Data_table i n d)) itm '(0 1 2))
           )
    )
  )(princ)
)

For Query, how would want it? 

[ranjith0326]

Dear pbejse,

I want to create a datatable like a vb.net with headers...

after creating the datatable i have functions to write query like insert,Update,Delete (SQL Query).

[hgasty1001]

Hi,

Check in the AutoCAD' sample folder CAO, it has a sample lisp to test the CAO typelib. Also check this link: http://www.jtbworld.com/lisp/CAO%20templates.htm.

Gaston Nunez