I just test your code,my computer hang !!!.
wrote in message news:5371901@discussion.autodesk.com...
I'm currently trying to write a LISP programme to insert a table with
various bits of data (number of objects, total length of objects) variables
from programme. While this programme works out this data, some of it may
need altering later ie the number of objects, therefore if total length of
objects is a field formula "=c2*length" where length is a real number and c2
is the cell ref. Currently I am getting a single quotation mark forcing it
to be text not a formula.
Code attached.
( entmake ( list
(cons 0 "ACAD_TABLE")
(cons 100 "AcDbEntity")
(cons 8 "Dim")
(cons 100 "AcDbBlockReference")
(cons 10 ( list 1545.07 -124.979 0.0))
(cons 41 1.0)
(cons 42 1.0)
(cons 43 1.0)
(cons 71 0)
(cons 44 0.0)
(cons 45 0.0)
(cons 100 "AcDbTable")
(cons 11 ( list 1.0 0.0 0.0))
(cons 90 54)
(cons 91 2)
(cons 92 5)
(cons 93 24)
(cons 94 0)
(cons 95 0)
(cons 96 0)
(cons 40 1.0)
(cons 41 1.0)
(cons 141 8.0)
(cons 141 8.0)
(cons 141 8.0)
(cons 142 35.0)
(cons 142 30.0)
(cons 142 40.0)
(cons 142 40.0)
(cons 142 45.0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 7)
(cons 90 512)
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "Mark No.")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "No. Required")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "Hole Centres")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "Total Metres")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "As Shown")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "E1")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "4")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "70")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
(cons 91 0)
(cons 178 0)
(cons 145 0.0)
(cons 92 0)
(cons 301 "CELL_VALUE")
(cons 93 6)
(cons 90 4)
(cons 1 "=c2*6")
(cons 94 0)
(cons 171 1)
(cons 175 1)
(cons 176 1)
)
)