cad坐标归零lisp_CAD图如何归零？

原理，就是把图元Z轴线移动的负无穷远，然后移动到正无穷，除了块就可以Z轴线归零了。用autoLISP来解决。;;;;;;Z坐标归零;;

(defunc:z0(/&kw&k1#os1)

(setvar"cmdecho"0)

(setvar"blipmode"0)

(setq#os1(getvar"osmode"))

(setvar"osmode"0)

(princ"\n请等待，正在归零")

(command"ucs""")

(setq&k1(ssget"X"));;检查是否有图元

(if(/=&k1nil);;如果有图元就归零

(progn

(setq&kw(ssget"x"(list(cons0"INSERT"))));;选择所有的块

(if(/=&kwnil)

(command"MOVE""all""r"&kw""'(001e99)"""move""p"""'(00-1e99)"")

);;如果有块的话，选择除了块以外的对象z坐标归零

(if(=&kwnil)

(command"MOVE""all"""'(001e99)"""move""p"""'(00-1e99)"")

);;如果没有块，那么坐标归零

)

(princ"\nOK已经归零")

(setvar"osmode"#os1)

(setvar"cmdecho"1)

(princ)

)

;以上内容复制到记事本，以(Z0.lsp)命名，autoLISP加载了，命令：Z0除了块就可以归零了。

cad坐标归零lisp_CAD图如何归零？相关推荐

cad坐标归零lisp_CAD图怎么归零
展开全部原理,就是把图元Z轴线移动的负无穷远,然e68a84e8a2ad62616964757a686964616f31333335336530后移动到正无穷,除了块就可以Z轴线归零了.用autoL ...
cad坐标归零lisp_CAD坐标Z归0问题
Home > CAD代画技巧集锦 > CAD坐标Z归0问题 CAD坐标Z归0问题 2017年12月8日 1098人打酱油其实这个问题一直困扰我,以前用有一个LISP程序,后来网上发现了另 ...
根据坐标点鼠标不移动_工地基本功：别管一致不一致，CAD坐标一次全部导入...
现在工地放线都用全站仪全站仪放线都要输入坐标假如说有3000根桩,就要输入3000次结果电子版图纸上标注坐标以后和实际数据相差了十万八千里下面就一点一点告诉你 1.越是简单的问题水越深先教 ...
python提取cad坐标_教你一个CAD坐标提取的小技巧
原标题:教你一个CAD坐标提取的小技巧经常用CASS计算土石方的小伙伴,经常会遇到一个很大的拦路虎:拿到一张甲方提供的dwg图纸,要求用CASS进行土石方计算.顿时感觉无从下手了. 遇到这样的问题, ...
python批量将CAD中的每个图分别转化为对应的PDF（cad转pdf）
python批量将CAD中的每个图分别转化为对应的PDF(cad转pdf) 需要在cad上选择左下角和右小角的坐标,会有提示,注意看即可通过交互方式将一个CAD中的每个图纸分别转为一个pdf,简单易 ...
ARCGIS展点（XY坐标）及矢量转CAD坐标显示的问题
ARCGIS展点(XY坐标)及矢量转CAD坐标显示的问题 ARCGIS展点(XY坐标) 已有点数据,2000坐标系,.xls格式,如下图: 打开ARCGIS,从文件中添加点数据,如下图: 选择点数据表 ...
【转】不归零码(NRZ),不归零码(NRZ)是什么意思
数字信号可以直接采用基带传输,所谓基带就是指基本频带.基带传输就是在线路中直接传送数字信号的电脉冲,这是一种最简单的传输方式,近距离通信的局域网都采用基带传输. 基带传输时,需要解决数字数据的数字信号 ...
CAD中怎么修改图块名称？CAD图块改名教程
在使用正版CAD软件绘制建筑图纸的过程中,进行CAD图块编辑的时候偶尔需要给图块改名,这个时候该如何操作呢?下面的CAD教程就让小编来给大家介绍一下正版CAD软件--浩辰CAD建筑软件中CAD图块编辑 ...
cad展点kszd小程序_CAD坐标展点脚本文件-CAD坐标展点程序下载v2 官方版-西西软件下载...
CAD坐标展点程序是运用Office Excel软件VBE标准模块编写的CAD脚本文件,这款文件适用于线路坐标.高程展点,已知数据输入明确,操作简单易懂! 使用方法: 1.进入CAD展点或CAD展线表 ...

cad坐标归零lisp_CAD图如何归零？

cad坐标归零lisp_CAD图如何归零？相关推荐

最新文章

热门文章