0 Members and 1 Guest are viewing this topic.
(defun c:sdim ()(initget 7) (setq ds (getint "\nEnter <1> for Scientfic <2> for Decimal <3> Engineering <4> Architectural"))(command "dimunit" ds ""))(princ)I know someone else out there can improve on this.....
(defun C:UU ()(initget 7) (setq UA (getint "\nEnter <1> for Scientfic <2> for Decimal <3> Engineering <4> Architectural"))(setvar UA))(princ)
Specify radius of circle or [Diameter] <0'-10">: 0'-10"3/4Requires numeric radius, point on circumference, or "D".
Specify radius of circle or [Diameter] <1'-0">: 0'-103/4"Requires numeric radius, point on circumference, or "D".Specify radius of circle or [Diameter] <1'-0">: 0'-10"3/4Requires numeric radius, point on circumference, or "D".Specify radius of circle or [Diameter] <1'-0">: 0'-10