cad不共面的处理方法

第一步，用记事本把以下内容保存为z0.lsp文件第二步，点击工具—AUTOLISP——加载——z0.lsp文件第三步，命令行输入z0，回车，选ALL，回车，所有不共面的线条全部归零。以下为记事本内容——(defunC:Z0(/SS1)(setvarcmdecho0)(if(setqSS1(ssget))(progn(command.undobe)(princ\n正在处理图形数据，请稍候．．．)(terpri)(command.ucsw)(command.moveSS1'(001e99).movep'(00-1e99))(princ\nOK，已将所选图元Z坐标值全部归零。)(command.undoe));endprogn);end(if(/=SS1nil)(princ));end(defunC:Z=0(/SS1)