cad坐标归零lisp_在CAD中用LISP实现原位放大数值

(defun c:fff(/ num)

(princ"主要功能为原位数值放大")

(setvar "cmdecho" 0)

(if(= nil xsz) (c:szcs))

(princ"\n当前放大系数为：")(princ xsz)

(princ"\n如需重新设置请退出执行 szcs")

(setq newlayer(tblsearch "layer" "WT"))

(if(= newlayer nil) (command "layer" "n" "WT" "c" "2" "WT" ""))

(setq nse(ssget))

(setq nse_len(sslength nse))

(setq nn 0)

(repeat nse_len

(setq nse_sub(ssname nse nn))

(setq nse_data(entget nse_sub))

(setq old_num_list(assoc 1 nse_data))

(setq old_layer_list(assoc 8 nse_data));

(setq num(cdr (assoc 1 nse_data)))

(setq layer(cdr (assoc 8 nse_data)))

(setq cal_old_num(atof num))

(setq cal_new_num(* xsz cal_old_num))

(setq new_num_list(cons 1 (rtos cal_new_num 2 1)))

(setq new_lay_list(cons 8 "WT"))

(setq nse_data(subst new_num_list old_num_list nse_data))

(setq nse_data(subst new_lay_list old_layer_list nse_data))

(entmod nse_data)

(setq nn (+ nn 1))

(setq new_word(entlast))

)

(prin1)

)

(defun c:szcs()

(setq xsz (getreal"放大系数"))

)

cad坐标归零lisp_在CAD中用LISP实现原位放大数值相关推荐

cad坐标归零lisp_批量除一个数的lisp，请高手改成保留成设置小数位置。
我有一个在cad里批量除以一个数的LISP.其中<(setq newr (rtos (/ (atof old0) s0) 2 1))>的1就是决定小数点后保留1位的.请高手改一下,能否增加 ...
cad坐标归零lisp_「软件技巧」厉害了！输入简单命令轻松解决CAD几类常见问题...
CAD作为工程作图最常用的软件,学会一些使用技巧和命令,有助于快速作图,提高工作效率.下面简单介绍几点快速绘图的技巧以及典型问题的解决办法. 1. 视口在布局中显示不全,新增一个视口,会自动消失一个. ...
cad坐标归零lisp_求助，提取坐标的x值、y值不对，请问怎么修改
该楼层疑似违规已被系统折叠隐藏此楼查看此楼 (defun c:hq() (setq pa (getpoint "输入左下点:")) ;输入左下桩坐标 (setq r1 (getr ...
cad坐标归零lisp_Z坐标归零的方法,不用插件,直接cad中修改
图形 Z 坐标归零的方法 CAD 绘图技巧 1 . 图形 Z 坐标归零的方法: "urn:schemas-microsoft-com:office:office" /> 全选 ...
cad坐标归零lisp_CAD坐标Z归0问题
Home > CAD代画技巧集锦 > CAD坐标Z归0问题 CAD坐标Z归0问题 2017年12月8日 1098人打酱油其实这个问题一直困扰我,以前用有一个LISP程序,后来网上发现了另 ...
cad坐标归零lisp_CAD图怎么归零
展开全部原理,就是把图元Z轴线移动的负无穷远,然e68a84e8a2ad62616964757a686964616f31333335336530后移动到正无穷,除了块就可以Z轴线归零了.用autoL ...
cad坐标归零lisp_CAD图如何归零？
原理,就是把图元Z轴线移动的负无穷远,然后移动到正无穷,除了块就可以Z轴线归零了.用autoLISP来解决.;;;;;;Z坐标归零;; (defunc:z0(/&kw&k1#os1) ...
cad坐标归零lisp_Z轴归零源码说明 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
2 支持35种图元的Z轴归零序号目标图元 CAD数据库图元名 (ObjectName) 函数名 1 2D多段线 AcDb2dP ...
cad坐标归零lisp_CAD怎么将Z轴的标高一次性归零
展开全部一.首先打开软件,点击左上32313133353236313431303231363533e78988e69d8331333365666330角的"直线"选项.在坐标轴上 ...

cad坐标归零lisp_在CAD中用LISP实现原位放大数值

cad坐标归零lisp_在CAD中用LISP实现原位放大数值相关推荐

最新文章

热门文章