More Free AutoLISP and Visual LISP code snippets for AutoCAD

How to create/delete Link Templates using CAO in AutoCAD 2002?

 Click here to download the code as a file.


(defun c:CreateLT() 
(setq pDoc (vla-get-ActiveDocument (vlax-get-acad-object)))

;get the DBConnect
(setq pDBObj (vla-GetInterfaceObject (vlax-get-acad-object)  "CAO.dbConnect"))

  (if (null pDBObj)
 (alert "Cannot create CAO Automation server.") 

  ;get the linktemplates
  (setq pLTs(vlax-invoke-method pDBObj "GetLinkTemplates" pDoc))

  ;prepare the keydescriptions
  (setq pKeyDescs (vla-GetInterfaceObject (vlax-get-acad-object)  "CAO.KeyDescriptions"))
  (vlax-invoke-method pKeyDescs "ADD" "TAG_NUMBER" 3 nil nil)
  (vlax-invoke-method pKeyDescs "ADD" "Manufacturer" 1 nil nil)
  ;create two link templates
  (vlax-invoke-method pLTs "ADD" "jet_dbsamples" nil nil "COMPUTER" "LTCreatedByVLispCAO" pKeyDescs)
  (vlax-invoke-method pLTs "ADD" "jet_dbsamples" nil nil "COMPUTER" "LTtobeDeleted" pKeyDescs)

  ;sample code to show how to delete the link template
  (vlax-invoke-method pLTs "delete" "LTtobeDeleted")
Have any questions? Contact us