topic Re: Lisp string in Visual LISP, AutoLISP and General Customization Forum

Lisp string

Anonymous — Fri, 25 Aug 2017 09:32:42 GMT

I HAVE A VLISP STRING

(defun xls ( Data-list header Colhide Name_list / *aplexcel* *books-colection* Currsep *excell-cells* *new-book* *sheet#1* *sheet-collection* col iz_listo row cell cols)
(defun Letter (N / Res TMP)(setq Res "")(while (> N 0)(setq TMP (rem N 26)
  TMP (if (zerop TMP)(setq N (1- N) TMP 26) TMP)
  Res (strcat (chr (+ 64 TMP)) Res)  N   (/ N 26))) Res)
(if (null Name_list)(setq Name_list ""))
(setq  *AplExcel*     (vlax-get-or-create-object "Excel.Application"))
(setq *Books-Colection*  (vlax-get-property *AplExcel* "Workbooks")
              *New-Book*     (vlax-invoke-method *Books-Colection* "Add")
          *Sheet-Collection* (vlax-get-property *New-Book* "Sheets")
               *Sheet#1*     (vlax-get-property *Sheet-Collection* "Item" 1))
(setq *excell-cells*     (vlax-get-property *Sheet#1* "Cells"))
(setq col 0 cols nil)
(if (> (strlen Name_list) 26)
(setq Name_list (strcat (substr Name_list 1 10) "..." (substr Name_list (- (strlen Name_list) 13) 14))))
(vlax-for sh *Sheet-Collection* (setq cols (cons (strcase(vlax-get-property sh 'Name)) cols)))
(setq row Name_list)
(while (member (strcase row) cols)(setq row (strcat Name_list " (" (itoa(setq col (1+ col)))")")))
(setq Name_list row)
(vlax-put-property *Sheet#1* 'Name Name_list)
(setq Currsep (vlax-get-property *AplExcel* "UseSystemSeparators"))
(vlax-put-property *AplExcel* "UseSystemSeparators" :vlax-false) 
(vlax-put-property *AplExcel* "DecimalSeparator" ".")           
(vlax-put-property *AplExcel* "ThousandsSeparator" " ")

(vlax-put-property *excell-cells* 'NumberFormat "0.000")
          
(vla-put-visible *AplExcel* :vlax-true)(setq row 1 col 1)
(repeat (length header)(vlax-put-property *excell-cells* "Item" row col
(vl-princ-to-string (nth (1- col) header)))(setq col (1+ col)))(setq  row 2 col 1)
(repeat (length Data-list)(setq iz_listo (car Data-list))(repeat (length iz_listo)
(vlax-put-property *excell-cells* "Item" row col (vl-princ-to-string (car iz_listo)))
(setq iz_listo (cdr iz_listo) col (1+ col)))(setq Data-list (cdr Data-list))(setq col 1 row (1+ row)))
(setq col (1+(length header)) row (1+ row))
(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* "Evaluate"
    (strcat "A1:" (letter col)(itoa row))))) ;_ end of setq
(setq cols (vlax-get-property cell  'Columns))
(vlax-invoke-method cols 'Autofit)
(vlax-release-object cols)(vlax-release-object cell)
(foreach item ColHide (if (numberp item)(setq item (letter item)))
(setq cell (vlax-variant-value (vlax-invoke-method *Sheet#1* "Evaluate"
    (strcat item "1:" item "1"))))
(setq cols (vlax-get-property cell  'Columns))
(vlax-put-property cols 'hidden 1)
(vlax-release-object cols)(vlax-release-object cell))
(vlax-put-property *AplExcel* "UseSystemSeparators" Currsep)
(mapcar 'vlax-release-object (list *excell-cells* *Sheet#1* *Sheet-Collection* *New-Book* *Books-Colection*
*AplExcel*))(setq *AplExcel* nil)(gc)(gc)(princ))

wHAT DO I DO FROM HERE TO GET MY POINT DATA TO EXEL??

Re: Lisp string

Alfred.NESWADBA — Fri, 25 Aug 2017 10:39:06 GMT

Hi,

what is the source of that LISP, any link where you have that got from?

I guess you might get the info how to use it in the same place.

- alfred -

Re: Lisp string

Anonymous — Fri, 25 Aug 2017 11:40:47 GMT

Hi Alfred.

I got this string form a forum member on a previous post.

Do you have a Vlisp string that i can use?

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/export-data-to-excel/m-p/7289770#M357034

Re: Lisp string

Alfred.NESWADBA — Fri, 25 Aug 2017 12:13:13 GMT

Hi,

>> I got this string form a forum member on a previous post

Then please ask there, the developer of that code can help you best.

- alfred -

Re: Lisp string

devitg — Sat, 26 Aug 2017 15:06:36 GMT

Please upload your dwg , where to apply it

Re: Lisp string

Anonymous — Mon, 28 Aug 2017 06:32:26 GMT

Hi DevitG

Here is the file

Re: Lisp string

devitg — Mon, 28 Aug 2017 12:46:21 GMT

Hi Benny , what do you want or need to do??

Re: Lisp string

Anonymous — Thu, 31 Aug 2017 07:20:17 GMT

so what i need to do is the following:

Each Polyline has a data Point So, in essence, a XYZ Value,

So the data extractor can only extract point data from a line.

I need a Vlisp string to export my XYZ polyline data to an Exel format

Re: Lisp string

C.Utzinger — Thu, 31 Aug 2017 07:44:45 GMT

HI first you need is a code for get the needed data from the polylines into a list. Something like:

((("POLY" . "1")( "X" . "141.141")( "Y" . "234.034") ( "Z" . "0")))

Attached a complete LSP for inserting and extracting Points.

Sorry it's German!!!

Kind regards

Re: Lisp string

Anonymous — Thu, 31 Aug 2017 07:46:57 GMT

Thank you very much,

How do i execute these LSP

No problem, i speak Afrikaans derived from Dutch/German. Try my best

Re: Lisp string

C.Utzinger — Thu, 31 Aug 2017 07:52:33 GMT

OH OK! Let's start whith this...

For testing you can just drag and drop it into AutoCAD.

For execute, write <Koordpunkt in the commandline.

Make sure that AutoCAD can find the files (.dcl and the .dwg). Save the Folder in the AutCAD Options.

Good luck!

Re: Lisp string

Anonymous — Thu, 31 Aug 2017 07:58:43 GMT

THANKS MAN!!!

What do i chose to open and export to excel?

Re: Lisp string

C.Utzinger — Thu, 31 Aug 2017 08:01:30 GMT

"Liste" and then "Alle" (Chose all)

Re: Lisp string

C.Utzinger — Thu, 31 Aug 2017 08:16:49 GMT

I don't think it is exactly what you need, but it is something to start with....

For example in the Excel, the X Y are changed, because we Need it for coordinates in construction and those are changed...

Kind regards

Re: Lisp string

Anonymous — Thu, 31 Aug 2017 08:30:02 GMT

It worked thanks.

So what i use it for is for mining.

And data is needed from the "Underground Road" and the ORE body. if that makes sense?

Thank you very much!

We have an OEM Licence for AutoCAD .It blocks the usage of app data,unfortunately, but this gives me a good example to follow in programming a new function!

Du bist ein Champion!

Re: Lisp string

C.Utzinger — Thu, 31 Aug 2017 08:34:15 GMT

OK, cool...

I'm not a Champion, all users who help here are. I received a lot of help here, so i could make my own functions.

Would be lost without this Forum....

Kind regards

Re: Lisp string

devitg — Thu, 31 Aug 2017 12:49:40 GMT

Could it be the solution you need ,

My English is not better , I´m from Argentina , Spanish Idiom.

Please see the XLS attached , it hold a few vertices for the upper poly .

As you do not answer my previous post , I stop working further .

Re: Lisp string

Anonymous — Thu, 31 Aug 2017 13:14:53 GMT

Hi devit i did please see email that i sent this morning.

Thanks alot!

Re: Lisp string

devitg — Thu, 31 Aug 2017 13:19:24 GMT

I do.

Re: Lisp string

devitg — Thu, 31 Aug 2017 13:42:37 GMT

See the first attemp