how to find unit type of dwg in lisp?

[jpduhon]

How do i find the unit type of a drawing within lisp?

Management wants me to force all drawings to the highest possible precision (1/256"). I figured the best way to do that was a simple command line in the acaddoc.lsp that resets the units. Problem is trying to set a metric drawing's precision to 256 doesn't work. How do I check the dwg unit type before running the command?

[kennet.sjoberg]

First of all I must tell you that I can nothing about the imperial unit system,
and then I don't know if I can say that a model file has any unit, because you draw in vectors and a length is a length and a radius is a radius.
But nowadays 2007 you can tell AutoCAD if your vector file is in metric, imperial or crazy more. . .
Check the system variables :
INSUNITS, INSUNITSDEFSOURCE and INSUNITSDEFTARGET
When you use those system variables correct a metric millimetre model is correct scaled in to a model in metric meter or imperial feet or inch (or crazy more) when you insert a block or an xref.

: ) Happy Computing !

kennet

BTW
and than you have LUNITS that set linear units, and UNITMODE for Displays units

[jpduhon]

Check the system variables :
INSUNITS, INSUNITSDEFSOURCE and INSUNITSDEFTARGET
When you use those system variables correct a metric millimetre model is correct scaled in to a model in metric meter or imperial feet or inch (or crazy more) when you insert a block or an xref.

: ) Happy Computing !

kennet

beautiful! that works. that's what i was looking for.

I can just query the INSUNITS and if it = 1 then i'll run the command and set precision to 256 and if it = 4 i'll set it to 8. I'll probably have to post back to get someone to check my code before deploying it though.

thanks kennet!

[kennet.sjoberg]

beautiful! that works. that's what i was looking for.

I can just query the INSUNITS and if it = 1 then i'll run the command and set precision to 256 and if it = 4 i'll set it to 8. I'll probably have to post back to get someone to check my code before deploying it though.

thanks kennet!

I am just glad to help,

Here is something for your mind,
do not forget that old models do not have the actual systemvariable set.
do not forget that user must set the actual systemvariable.
do not forget to reset the actual systemvariable if you scale the model.
do not forget to . . .

: ) Happy Computing !

kennet

[jpduhon]

yeah, so i still need help. I thought this was going to be an easy one.

what did i do wrong?

(setq What_Unit_Type (getvar INSUNITS))
(if (= 1 What_Unit_Type) 
  (progn
	(command "-units" "" "256" "1" "2" "0.00" "N")
  )  
)

it returns this:

error: bad 
argument type: (or stringp symbolp): nil

[kennet.sjoberg]

yeah, so i still need help. I thought this was going to be an easy one.

what did i do wrong?

(setq What_Unit_Type (getvar "INSUNITS"))
(if (= 1 What_Unit_Type) 
  (progn
	(command "-units" "" "256" "1" "2" "0.00" "N")
  )  
)

added in red

: ) Happy Computing !

kennet

[jpduhon]

(setq What_Unit_Type (getvar "INSUNITS"))
 (if (= 1 What_Unit_Type) 
   (progn
 	(command "-units" "" "256" "1" "2" "0.00" "N")
   )  
 )

added in red

: ) Happy Computing !

kennet

D'oh!!!!!!!!
Thanks much Kennet!!!!!

[kennet.sjoberg]

D'oh!!!!!!!!
Thanks much Kennet!!!!!

you are welcome.

: ) Happy Computing !

kennet