Topic: same function...different result

[Andrea]

Hi all,...i'm actually experenting new bug...
with (ver)

Code: [Select]

(vl-string-subst "" "Visual LISP " "Visual LISP 2017 (en)")
;result =   "2017 (en)"

(vl-string-subst "" "Visual LISP " "Visual LISP 2012 (fr)")
;result =    "Visual LISP 2012 (fr)"

?? anyone already have something like that ?

[jbuzbee]

Works for me - AutoCAD Architecture 2017

[Crank]

Looks like a bug in Acad2012 has been fixed.

[Andrea]

ok Thanks....
I thought i was missunderstanding the Vlisp function...

[Lee Mac]

How about:

Code - Auto/Visual Lisp: [Select]

1. (substr (ver) 13)

To check the 'bug', what does this return in both versions?:

Code - Auto/Visual Lisp: [Select]

1. (vl-string->list (ver))

[Andrea]

Thanks Lee...

I use

Code: [Select]

(read (substr (ver) 13 4))


[Andrea]

or....

Code: [Select]

(substr (setq caption (vla-get-caption (vlax-get-acad-object)))
        (- (vl-string-search "-" caption) 4) 4
        )


[Andrea]

or...

Code: [Select]

(read
(substr
    (setq prNg (vl-registry-read (strcat "HKEY_LOCAL_MACHINE\\" (vlax-product-key)) "ProductNameGlob"))
    (- (strlen prNg) 3)
    )
)