topic Re: AutoCAD lisp to insert dimensions value to excel sheet or table in Visual LISP, AutoLISP and General Customization Forum

AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Tue, 24 Mar 2020 19:41:32 GMT

Hi I am new on this forum

can any body help me for a lisp which can do a routine work for me,

A lisp which can automatically take data of dimensions value and put in excel sheet or table in same file, ( number , length, width )

I am in marble industry where I have to take thousand of dimensions for marble cutting on daily basis which is so much time costing and hard work

i would appreciate for any help

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

devitg — Tue, 24 Mar 2020 19:49:30 GMT

You can try with DATAEXTRACTION .

Would you , please , upload a sample.dw

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Tue, 24 Mar 2020 20:14:44 GMT

Thanks for your reply

I have already tried to export dimensions data by DATAEXTRACTION but unable to do so, in data extraction it showS only number of dimensions not values,

I need some thing like this as in screen shot I have 3 pcs with number and dimensions, need lisp to put data in table as shown

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Sea-Haven — Wed, 25 Mar 2020 00:00:04 GMT

Did you Google pretty sure this exact request has been answered before.

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Wed, 25 Mar 2020 05:02:37 GMT

Thanks for your kind reply,

I have googled but didn’t find any solution for this, if some one write a LISP for me i will be thank full to him, because I don’t know much about writing lisp,

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Sea-Haven — Wed, 25 Mar 2020 06:17:11 GMT

Ok a quick method comes to mind one pick are the shapes numbered already or do you want that added also ?

If one edge is always horizontal very quick to do. Come to think about it do you want the dims added as well ? Just draw the shape, even that can be automated further as they are basic shapes.

Please post a sample dwg for dim style and table style with shapes.

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Sea-Haven — Wed, 25 Mar 2020 06:32:58 GMT

Threw this together, code required

(if (not AH:getvalsimg)(load "Multi Getvals img.lsp")) (setq ans (AH:getvalsimg "D:\\Acadtemp\\Shapes" 40 (list "Enter values" "Shape number" 5 4 "1" "Enter width" 5 4 "900" "Enter Ht" 5 4 "1000" "Enter L off" 5 4 "300" "Enter R offset" 5 4 "300")))

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Wed, 25 Mar 2020 06:40:17 GMT

Shapes are numbered already and yes one edge is horizontal always ,

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Sea-Haven — Wed, 25 Mar 2020 08:03:51 GMT

You can try this, have 2 choices a new table or add to an existing table it will add table rows as you pick.

It can be very much automated but this is a start and the free version. Need your dwg to check table. I would consider the drawing shapes can do much faster.

You must save the multi radio buttons.lsp to your lisp support path or it will not be found that's the dcl.

; Make a table of shapes based on bounding box. ; By Alan H march 2020 info@alanh.com.au (defun c:dimtab ( / dolabel dotext enddimtab AH:maketable objtable obj1 obj2 tsr len ht) (defun enddimtab () (alert "Object is not a pline, please join and do again") (exit) ) ; now do table (defun AH:maketable ( / pt1 numrows numcolumns rowheight colwidth ) (setvar 'ctab "Model") (setq doc (vla-get-activedocument (vlax-get-acad-object))) (setq curspace (vla-get-modelspace doc)) (setq pt1 (vlax-3d-point (getpoint "\nPick point for top left hand of table: "))) (setq numrows 3) (setq numcolumns 3) (setq rowheight 0.3) (setq colwidth 1.8) (setq objtable (vla-addtable curspace pt1 numrows numcolumns rowheight colwidth)) (vla-settext objtable 0 0 "Dimension table") (vla-settext objtable 1 0 "Number") (vla-settext objtable 1 1 "Width") (vla-settext objtable 1 2 "Length") (setq objtable (vlax-ename->vla-object (entlast))) ) ; defun (defun AH:addlinet ( / rowcnt rowhgt) (setq rowcnt (vla-get-rows objtable)) (setq rowhgt (vla-getRowHeight objtable 2)) (vla-InsertRows objTable rowcnt rowhgt 1) (vla-settext objtable (- rowcnt 1) 0 tsr) (vla-settext objtable (- rowcnt 1) 1 len) (vla-settext objtable (- rowcnt 1) 2 ht) ) (if (not AH:Butts)(load "Multi Radio buttons.lsp")) (if (= but nil)(setq but 1)) (setq ans (ah:butts but "h" '("Table " "Make New " "Use existing "))) (if (= but 1) (AH:maketable) (setq objtable (vlax-ename->vla-object (car (entsel "pick existing table")))) ) (while (setq ent (entsel "Pick text ")) (setq obj1 (vlax-ename->vla-object (car ent))) (setq tsr (vlax-get Obj1 'Textstring)) (setq obj2 (vlax-ename->vla-object (car (entsel "Pick pline object ")))) (if (= (vla-get-objectname obj2) "AcDbPolyline") (progn (vla-GetBoundingBox obj2 'minpoint 'maxpoint) (setq pointmin (vlax-safearray->list minpoint)) (setq pointmax (vlax-safearray->list maxpoint)) (setq len (rtos (abs (- (car pointmin)(car pointmax))) 2 3)) (setq Ht (rtos (abs (- (cadr pointmin)(cadr pointmax))) 2 3)) (AH:addlinet) ) (enddimtab) ) )

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

devitg — Wed, 25 Mar 2020 13:31:47 GMT

Would you , please , upload such sample.dwg

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

devitg — Wed, 25 Mar 2020 16:51:25 GMT

Please, find attached , dwg lsp and csv

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Wed, 25 Mar 2020 17:02:17 GMT

I am out of office in morning I will add sample drawing 👍

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Sea-Haven — Wed, 25 Mar 2020 23:04:32 GMT

Did you try what I posted I did test it.

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Thu, 26 Mar 2020 06:10:28 GMT

thanks a lot that do some work for me although it saves data in notepad but ok i can easily copy it to excel sheet instead of typing each dimension again and again

thanks a lot bro

Re: AutoCAD lisp to insert dimensions value to excel sheet or table

Anonymous — Thu, 26 Mar 2020 06:11:04 GMT

i tried but this code not working for me