Visual Basic no go…

[Anonymous]

Hi All,

I have this code w/ which I can open up Block Library Blocks for editing.  We have R2012 installed w/out VBA.

Our MIS department is impossible to deal with.  We have this new fangled permission hysteria so I cannot install VBA myself.

Is there any other way to open up my blocks?  See the last two lines: What I can I do instead?

(defun C:OpL () (prompt "...Open Library Block or Xref...")(terpri)

(setq a (entsel)) (setq b (car a )) (setq c (entget b)) (setq d (assoc 2 c))

(setq e (cdr d)) (setq ff (strcat e ".dwg")) (setq PP (findfile FF))

(setq opath (strcat "acadapplication.documents.open \""PP"\""))

(command "vbastmt" opath))

Thank you,

GS

[lando7189 · Accepted solution]

Use Visual LISP to access the AutoCAD model:

(defun C:OpL () (prompt "...Open Library Block or Xref...")(terpri)
(setq a (entsel)) (setq b (car a )) (setq c (entget b)) (setq d (assoc 2 c))
(setq e (cdr d)) (setq ff (strcat e ".dwg")) (setq PP (findfile FF))
(vl-load-com)
(vla-open (vla-get-documents (vlax-get-acad-object)) pp)
)

-- Lanny

[Anonymous]

Lanny,

Thank you, it works!!

GS