Need lisp

[gilmar.pereira]

It doesn't work, get this error:
; error: no function definition: M:SAFELIST
do you know what it means?

[BlackBox]

It doesn't work, get this error:
; error: no function definition: M:SAFELIST
do you know what it means?

In this case, it just means that Opie's code included a call for a sub-routine (external?).

Often times someone provides you a snippet of code, which has been culled from a larger routine, and there may be missing, or extra code.

Opie may be able to provide it to you, or at least tell you what it does, so you can develop your own sub-routine.

Missing sub-routine:

...
    (progn
      (setq strData      (strcase (getstring "\nSpecify date: "))
        strNome      (strcase (getstring "\nSpecify username: "))
        strModif      "AS BUILT"
        lstAttributes (m:safelist (vla-getattributes objBlock))
        lstTemp      '()
      )
...

[Opie]

m:safelist is shorthand to handle the conversion of a safearray to a list. I also, have it to check for a variant being passed as the argument.

;_ Convert Safearray to list
(defun m:safelist (value)
  (if (= (type value) 'VARIANT)
    (setq value (m:variantvalue value))
  )
  (setq value (vl-catch-all-apply 'vlax-safearray->list (list value)))
  (if (vl-catch-all-error-p value)
    nil
    value
  )
)
(defun m:variantvalue (value)
  (setq value (vl-catch-all-apply 'vlax-variant-value (list value)))
  (if (vl-catch-all-error-p value)
    nil
    value
  )
)

[gilmar.pereira]

good good job man!!!! It works..
now I'll improve this lisp to automatically complete name and date

[alanjt]

In this case, it just means that Opie's code included a call for a sub-routine (external?).

Often times someone provides you a snippet of code, which has been culled from a larger routine, and there may be missing, or extra code.

Opie may be able to provide it to you, or at least tell you what it does, so you can develop your own sub-routine.

Missing sub-routine:

m:safelist is shorthand to handle the conversion of a safearray to a list. I also, have it to check for a variant being passed as the argument.

;_ Convert Safearray to list
(defun m:safelist (value)
  (if (= (type value) 'VARIANT)
    (setq value (m:variantvalue value))
  )
  (setq value (vl-catch-all-apply 'vlax-safearray->list (list value)))
  (if (vl-catch-all-error-p value)
    nil
    value
  )
)
(defun m:variantvalue (value)
  (setq value (vl-catch-all-apply 'vlax-variant-value (list value)))
  (if (vl-catch-all-error-p value)
    nil
    value
  )
)

FYI

(vlax-invoke objBlock 'GetAttributes)

Returns attributes in list.

[gilmar.pereira]

I try this in my machine and it works, but when I try in another machine, I get this error:
Select entity: ; error: bad function: VLAX-ENAME->VLA-OBJECT
what happens, I tried in autocad mechanical 2009 and 2010

[BlackBox]

Entere this at the command line:

(vl-load-com)

Then try Opie's code again... Does it work now?

If so, then add the code I provided above to ACADDOC.lsp. If not, then please paste what the command line says.

Hope this helps!

[gilmar.pereira]

It works, very very thanks...
This is very useful to me

[gilmar.pereira]

I used it but I can improve this lisp, what can I do to automatically save as path example (c:\as built\) and to automatic save in the revision, example:
tre drawing is save in c:\041.00_01.00.071_02revA and when I make the revision it goes to revision B, 041.00_01.00.071_02revB, if is it possible to run the lisp and it automatic save the dwg in c:\as built\041.00_01.00.071_02revB

[irneb]

You could do so through calling the saveas command. Although you need to check if the file is overwriting something else, one of 2 ways: use the while-cmdactive idea (see some other threads here); or do a findfile first.

You get hold of the current drawing's path using (getvar "DWGPREFIX"). The current dwg's name with (getvar "DWGNAME"). Then combine them and any other portions you want using strcat. You may also need to look at the vl-file-directory-p function to check if the as built folder exists or not, and if not then use vl-mkdir.

You could use the document's activex object's SaveAs method so you don't see anything on the command line - but seeing as you're going to run it in a script I think that's over kill.