Topic: ** Error: no function definition: VLA-GET-OBJECTID32 **

[KuoTze]

i work in AutoCad 2015 and run "LeeMAC's CountV1-3.lsp" but it error and msg is ** Error: no function definition: VLA-GET-OBJECTID32 **

How can Fix it ......

Sorry i English is not good to say ~~ please forgive ~~ 

[Kerry]

The function is obsolete.
I'm not sure how or why it is being used.

Can you test/try the code using VLA-GET-OBJECTID

[KuoTze]

 

i try to fix "vla-get-objetcid32 to vla-get-objetcid"

but can't work and Msg ** Error: ActiveX Server returned the error: unknown name: "SETBLOCKTABLERECORDID32" **

So .... i can't fix it ........

[ronjonp]

Change the function to this:

Code: [Select]

(defun _getobjectid (doc obj)
    (if   (and (_is64bit) (= (type vla-get-objectid32) 'subr))
      (vla-get-objectid32 obj)
      (vla-get-objectid obj)
    )
  )
And change this portion of the code:

Code: [Select]

                (if (and (_is64bit)
                    (= (type vla-setblocktablerecordid32) 'subr)
                    )
                  'setblocktablerecordid32
                  'setblocktablerecordid
                )Welcome to TheSwamp

[KuoTze]

  thank ...

i paste your code to lisp it can't work and msg ** Error: ActiveX Server returned the error: unknown name: "SETBLOCKTABLERECORDID32" **

so ......................

Change the function to this:

Code: [Select]

(defun _getobjectid (doc obj)
    (if (and (_is64bit) (= (type vla-get-objectid32) 'subr))
      (vla-get-objectid32 obj)
      (vla-get-objectid obj)
    )
  )

Welcome to TheSwamp

[KuoTze]

thank your code

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(if (and (_is64bit)
                    (= (type vla-setblocktablerecordid32) 'subr)
                    )
                  'setblocktablerecordid32
                  'setblocktablerecordid
                )

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;



but ......

now error msg is :

Output [Table/File/Settings] <Exit>:

Specify Point for Table: ; error: Exception occurred: 0xC0000005 (Access Violation)
; warning: unwind skipped on exception
; error: Exception occurred: 0xC0000005 (Access Violation)

it can't work   

[ronjonp]

Give this version a try .. seems to be working on my computer. I noted the change in the header.

[KuoTze]

Thank you so much  ...........

Count1.31-RJP can work

Thank you so much  ...........

 

[ronjonp]

Glad to help 

[Lee Mac]

Many thanks Ron -
I don't have a 64-bit system on which to test the program, so I am incredibly grateful for your assistance.

Lee

[Lee Mac]

The function is obsolete.

Hi Kerry,

I wasn't aware that this function had become obsolete in 2015.
Thank you for the information.

Lee

[Kerry]

It was marked Obsolete in the 2014 Help. I can't confirm 2015 yet.

[ronjonp]

Many thanks Ron -
I don't have a 64-bit system on which to test the program, so I am incredibly grateful for your assistance.

Lee

Anytime Lee .. you've helped me a ton.

[ronjonp]

It was marked Obsolete in the 2014 Help. I can't confirm 2015 yet.

Installed 2015 a week ago and that function is gone.

[Hugo]

Hallo Lee

Here I have ever asked is that no longer work in 2015. 

Hier habe ich schon mal gefragt das das nicht mehr funktionieren wird in 2015.


http://www.theswamp.org/index.php?topic=33654.msg513336#msg513336