Z归零

​(defun C:Z=0(/SS1)

(setvar"cmdecho"0)

(if(setq SS1(ssget))

(progn

(command".undo""be")

(princ"\n正在处理图形数据，请稍候．")

(terpri)

(command".ucs""w")

(command".move"SS1""'(0 0 1e99)""".move""p"""'(0 0-1e99)"")

(princ"\nOK，已将所选图元Z坐标值全部归零。(command".undo""e")

end progn

end(if(/SS1 nil)

(princ)

end(defun C:Z=0(/SS1)