Topic: Mech vs Vanilla Version Number

[MeasureUp]

I have mech versions through 2005~2011 but vanilla versions.
I am wondering if there are any difference for the result when using "acadver".
The real question is that how to identify the vanilla and mech version.

Thanks for your help.

[HofCAD]

If you go with the command OPTIONS to the tab Profiles,
do you see then the Available Profiles 'Vanilla' and 'AcadM'.
The profile 'Vanilla' is for pure AutoCAD, and 'AcadM' is for
AutoCAD Mechanical.

Regards HofCAD CSI.

[MeasureUp]

Sorry, I mean that how to identify the mech/vanilla version in Autolisp.

[Kerry]

I don't have time to test fully, but :

Mechanical is simply Vanilla AutoCAD with Add-ons.

If you manually compare the resulting list from (ARX) at the commandline you will see the different ARX files loaded into Mechanical

"acadm.arx" and "acadmmx.arx" may be a good place to start


So something like the following may assist you (untested)
(if (member "acadm.arx" (arx))
 (alert "This is Mechanical")
)

[CAB]

Check here, you can use the path method. But there must be another way.
http://www.theswamp.org/index.php?topic=36606.0

[HofCAD]

Sorry, I mean that how to identify the mech/vanilla version in Autolisp.

Try this:

Code: [Select]

(defun c:MechOrVanil(/ @getActiveProfile Prof)
(defun @getActiveProfile ()
  (vla-get-activeprofile
    (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))
  )
)
(setq Prof (strcase (@getActiveProfile)))
(cond
 ((= Prof "ACADM") (princ "\nAutoCAD"))
 ((= Prof "ACADMPP") (princ "\nAutoCAD"))
 ((= Prof "VANILLA") (princ "\nAutoCAD Mechanical"))
 (t (princ "\nNo basic profile"))
)
(princ)
)

Regards HofCAD CSI.

[MeasureUp]

Thanks, Kerry.
Totally agree with you.

Mechanical is simply Vanilla AutoCAD with Add-ons.

This is a nice idea.

Code: [Select]

(if (member "acadm.arx" (arx))
 (alert "This is Mechanical")
)


[MeasureUp]

Check here, you can use the path method. But there must be another way.
http://www.theswamp.org/index.php?topic=36606.0

Yes, I had something similar last night.

Code: [Select]

"C:\\program files\\autodesk\\acadm 2011\\..."

Thanks, CAB.

[MeasureUp]

...
Try this:

Code: [Select]

(defun c:MechOrVanil(/ @getActiveProfile Prof)
(defun @getActiveProfile ()
  (vla-get-activeprofile
    (vla-get-profiles (vla-get-preferences (vlax-get-acad-object)))
  )
)
(setq Prof (strcase (@getActiveProfile)))
(cond
 ((= Prof "ACADM") (princ "\nAutoCAD"))
 ((= Prof "VANILLA") (princ "\nAutoCAD Mechanical"))
 (t (princ "\nNo basic profile"))
)
(princ)
)

Regards HofCAD CSI.

This is nice, too.
Thanks, HofCAD

[cmwade77]

You can't rely on Profiles, every profile here is BEI, so I had to use the path method when I needed to do this, it is the only sure fire way that I have found.

[alanjt]

Code: [Select]

(vla-get-caption (vlax-get-acad-object))

[Lee Mac]

Nice idea Alan 

[alanjt]

Nice idea Alan 

thanky thanky 

[ronjonp]

Code: [Select]

(vla-get-caption (vlax-get-acad-object))

Nice idea Alan .. you'll need to account for (setenv "ShowFullPathInTitle" "1") which shows the path of the drawing opened.

"AutoCAD 2009 - [Drawing1.dwg]"

Perhaps something like:

Code: [Select]

(defun woohoo2 (/ p caption)
  (setq caption (vla-get-caption (vlax-get-acad-object)))
  (if (setq p (vl-string-position (ascii "-") caption))
    (substr caption 1 (1- p))
    caption
  )
)
(woohoo2)

[MeasureUp]

Code: [Select]

(vla-get-caption (vlax-get-acad-object))

I like this. Thanks, Alan.