Judge cad version,If version i

andy_lee · 发表于 2022-7-5 23:01:49

Judge cad version,If version is too low,not loader and prompt.

I have a table routine, need cad 2005 later version,
If routine call command is "test" , so call "test" , frist, judge cad version ,if CAD2005 previous versions, not run and Pop-up prompts.

hmsilva · 发表于 2022-7-5 23:11:34

Something like this perhaps.

[code](if (

andy_lee · 发表于 2022-7-5 23:15:45

hmsilva, Thanks, but not that.

Your routine is when "appload", check cad version and Pop-up prompts.
I mean is after appload, after input command in the command bar, after press Enter or space key, check cad version.......

hmsilva · 发表于 2022-7-5 23:27:23

andy_lee,
you shouldn't have edited and removed the code that you had posted at msg #1...
That code is not my code, is yours, I just modified it to work with AutoCAD 2005 or later ones...

If I understood you correctly, perhaps something like this

copy

(defun c:test ()  (if (>= (atof (getvar 'ACADVER)) 16.1);; "16.1" AutoCAD 2005    (progn;;; your routine here      (Alert "You have the correct CAD version!!!");; just for demo    );; progn    (Alert "Need CAD2005 or later")  );; if);; test

HTH
Henrique

Lee Mac · 发表于 2022-7-5 23:29:14

Here are some other properties/functions/system variables which may also help:

copy

(vla-get-caption (vlax-get-acad-object))(vla-get-version (vlax-get-acad-object))(getvar 'acadver)(getvar 'product)(getvar 'program)(getvar '_vernum)(ver)(_ver)

andy_lee · 发表于 2022-7-5 23:40:52

hmsilva, Thank you!

like this?

copy

(defun c:[color="red"]test[/color] ()  (if (>= (atof (getvar 'ACADVER)) 16.1);; "16.1" AutoCAD 2005    (progn ;;;;;;;;;;;;;;;;;;;;;;;;My routine is start ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(defun c:[color="red"]test[/color](/ *error* dlg p a i l 1p sc e pl h gr rot r)................ ) (princ));;;;;;;;;;;;;;;;My routine is over;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;      (Alert "You have the correct CAD version!!!");; just for demo    );; progn    (Alert "Need CAD2005 or later")  );; if);; test

1.Command must be the same? your routine command is "test", my routine command must "test" too,
2. if version is right , show "you have the correct cad version" ,this can omit.
I mean if version is low ,show "Need Cad2005 or later" ,if is right , not prompt,Direct calling program.

Thanks!

andy_lee · 发表于 2022-7-5 23:42:00

Thanks ,lee ,how to Judge Express Tools is install ？

hmsilva · 发表于 2022-7-5 23:54:37

One way:

copy

;;;;;;;;;;;;;;;;;;;;;;;;My routine is start ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;(defun c:test (/ *error* dlg p a i l 1p sc e pl h gr rot r) ;; first test AutoCAD version (if (>= (atof (getvar 'ACADVER)) 16.1);; "16.1" AutoCAD 2005    (progn;; if test returns T;; your routine start................;;your routine end    );; progn   ;; if test AutoCAD version returns nil    (Alert "Need CAD2005 or later")  );; if (princ));; test;;;;;;;;;;;;;;;;My routine is over;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

HTH
Henrique

andy_lee · 发表于 2022-7-5 23:59:31

Thanks hmsilva,

copy

;;your routine end[color="red"] );; progn ;;I delete this , OK! Otherwise an error[/color]   ;; if test AutoCAD version returns nil    (Alert "Need CAD2005 or later")  );; if (princ));; test;;;;;;;;;;;;;;;;My routine is over;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

hmsilva · 发表于 2022-7-6 00:06:26

You're welcome, andy_lee!
Glad you got it to work.

Henrique

[编程交流] Judge cad version,If version i

发表回复

精选推荐