Having problem identifying the function for this code any tips to stop error.

[thomas_huntFMPXR]

(defun c:2 ( / file dlg datalinkName datalinkDict datalinkObj insPt range )

  (vl-load-com)

  ;;select Excel file

  (setq file (getfiled "Select Excel File" "" "xlsx" 0))

  (if file

    (progn

      ;; Get Datalinks dictionary

      (setq datalinkDict (vla-GetDataLinks (vla-Get-ActiveDocument (vlax-get-acad-object))))

      ;; Create new datalink

      (setq datalinkObj (vla-Add datalinkDict datalinkName file))

      ;; Optional: prompt for range

      (setq range (getstring T "\nEnter Excel range (e.g., Sheet1!A1:D10) or press Enter for full sheet: "))

      ;; Set the data range if provided

      (if (> (strlen range) 0)

        (vla-SetDataLinkRange datalinkObj range)

      )

      ;; Prompt for insertion point

      (setq insPt (getpoint "\nSpecify insertion point for the table: "))

      ;; Insert table from datalink

      (command "_-TABLE"

               "DATALINK"

               datalinkName

               (if (> (strlen range) 0) "Y" "N")

               (if (> (strlen range) 0) range "")

               insPt

      )

    )

    (prompt "\nNo file selected.")

  )

  (princ)

)

[paullimapa]

where you got this code from should include information on what it does.

also did you read the comments in the code which explains what each step does?

[Kent1Cooper]

And what is the error mentioned in the Topic heading, that you want to stop?

[thomas_huntFMPXR]

Function not identified after the selecting the excel file.

[thomas_huntFMPXR]

Yes this portion of the code doesn't work the way it says it should "(setq datalinkDict (vla-GetDataLinks (vla-Get-ActiveDocument (vlax-get-acad-object))))."

[cadffm]

Hi,

why should vla-GetDataLinks  and vla-SetDataLinkRange work?

[F1] Document

[thomas_huntFMPXR]

it needs to activate datalink command to connect the path to taband range in order to complete the datalink and insert the table.

[cadffm]

I can't follow you.

From where is that code?

If it is from AI, ask your AI what's going on!?

[thomas_huntFMPXR]

AI has no solution. I would like the datalink to connect to new file and then create a table based on the datalink that was just established.

[cadffm]

---

@cadffm

From where is that code?

---

[Moshe-A]

@thomas_huntFMPXR ,

;; Get Datalinks dictionary

      (setq datalinkDict (vla-GetDataLinks (vla-Get-ActiveDocument (vlax-get-acad-object))))

This call is not valid in autolisp activex so from here your error in coming.

on the other hand using (command "datalink") also won't help because DATALINK has no command line interface.

Moshe

[thomas_huntFMPXR]

Alright, is there a lisp code that creates a table from the datalink data? All the codes I found create a empty table with no information.

[Moshe-A]

@thomas_huntFMPXR ,

if you have excel file linked into AutoCAD with DATALINK, you can insert it using TABLE command. can you explain why you need lisp to to that?

Moshe

[thomas_huntFMPXR]

Wanted a to create a shortcut to limit confusion when inserting new tables. my company operates with 10+ datalink tables at a time.

[Sea-Haven]

Not tested but may be useful.

[thomas_huntFMPXR]

Tested it out. had to change the defun command and change the file selection for excel. but this syntax error and server returned error.

[Sea-Haven]

I did find a typo in the code as I suggested I did not test, but I have now table is being made but link is not being established, will look into it more why not working.

[thomas_huntFMPXR]

yeah thank I will tinker with it some more as well.

[Moshe-A]

@thomas_huntFMPXR hi,

Here you go with TableFromDataLink (insert table from assign datalink)

I notice a problem (on and off) with inserting a table using TABLE command (not the lisp)

anyway if it works, you will see a big delay, this is OK, it takes time to AutoCAD to insert excel table.

enjoy

Moshe

[Sea-Haven]

Thanks @Moshe-A gave it a try, but I think the idea is to not use dialog boxes but rather know the Excel file name and maybe the desired range. Just a ps did not work on my Bricscad V25. Just opens a new Blank Excel.

Will go back to other code has a cons error, problem is so many of them.