Lệnh BLOCKUNITS

Thay đổi Block Unit của toàn bộ Block Define trong bản vẽ.

1 Thêm class BLOCKUNITS.lsp

Lưu mã sau dưới dạng tệp tin BLOCKUNITS.lsp

Code:

(DEFUN C:BLOCKUNITS (/ UNIT)
	(vl-load-com)
	(PRINC "\nBlock Units:")
	(PRINC "\n0.	Unitless")
	(PRINC "\n1.	Inches")
	(PRINC "\n2.	Feet")
	(PRINC "\n3.	Miles")
	(PRINC "\n4.	Millimeters")
	(PRINC "\n5.	Centimeters")
	(PRINC "\n6.	Meters")
	(PRINC "\n7.	Kilometers")
	(PRINC "\n8.	Microinches")
	(PRINC "\n9.	Mils")
	(PRINC "\n10.	Yards")
	(PRINC "\n11.	Angstroms")
	(PRINC "\n12.	Nanometers")
	(PRINC "\n13.	Microns")
	(PRINC "\n14.	Decimeters")
	(PRINC "\n15.	Dekameters")
	(PRINC "\n16.	Hectometers")
	(PRINC "\n17.	Gigameters")
	(PRINC "\n18.	Astronomical Units")
	(PRINC "\n19.	Light Years")
	(PRINC "\n20.	Parsecs")
	(initget "0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20")
	(setq UNIT (getkword "\nEnter New Block Units <0>: "))
	(IF	(= UNIT nil)
		(vlax-for x	(vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
				(vlax-put-property x "Units" 0)))
	(IF	(/= UNIT NIL)
		(vlax-for x	(vla-get-Blocks (vla-get-activedocument (vlax-get-acad-object)))
				(vlax-put-property x "Units" UNIT)))
	(PRINC "\nBlock Units Changed")
	(PRINC)
)
	(princ "\n...Block Units: Type \"BLOCKUNITS\" or \"BUNITS\" to begin...")