lisp写标高线_cad自动写标高lisp

cad自动写标高lisp

;;自动标高主程序(使用方法:新建文件，后缀名为.lsp，将全部内容粘贴过

去，然后将lsp文件拖进cad窗口(即加载)，输入命令xbg，按命令行提示操作即可)

(defun c:xbg(/ xs_d os dim jd i_sc i_bg i_uni bg_jz pt_jz zb_jz

pt_nt zb_nt bg_nt)

(setvar "cmdecho" 0)

(setvar "dimzin" 0)

(setvar "blipmode" 0)

(setq xs_d (getvar "dimzin"))

(setq os (getvar "osmode"))

(setq dim (getvar "dimzin"))

(chk_style)

(princ "\n适用于真实尺寸作图")

(setq i_uni (getstring "\n图纸单位是mm/cm/m:")) (if (= "" i_uni) (setq i_uni "cm"))

(cond ((= i_uni "mm") (setq i_bg 1000.0))

((= i_uni "cm") (setq i_bg 100.0))

((= i_uni "m") (setq i_bg 1.0))

(t (setq i_bg 1.0))

)

(if (setq jd (getint "\n标高有效位数<3>:")) () (setq jd 3))

(if (setq i_sc (getreal "\n比例系数<1>:")) () (setq i_sc 1))

lisp写标高线_cad自动写标高lisp相关推荐

cad的lisp画线_CAD画缓和曲线lisp程序
注: 本程序, 缓和曲线段拟合长度为 0.4m , 如需更改拟合长度, 将程序的第 8 行 (repeat(FIX(/Ls0.4)) 及 9 行 (setql(+l(/Ls(FIX(/Ls0.4))) ...
lisp 非对称缓和曲线_CAD画缓和曲线lisp程序
CAD中画缓和曲线,首先复制本文☆后面的源程序保存至cad安装目录的SUPPORT文件夹,保存类型为.lsp 可以随便复制一个SUPPORT 文件夹内的lsp文件,然后替换本文的程序.打开CAD后,输 ...
【自动写代码】Quokka.js是一款通过注释实时生成代码的插件，该插件安装在vscode工具上面，但是需要激活才能使用
会写注释就能自动写代码代码都能自动生成了!牛批呀 Quokka.js 在VS Code上,有一款名为"Quokka.js"的插件可以通过注释实时生成代码.Quokka.js是一个 ...
lisp写标高线_属性块形式的标高标注程序！ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
欢迎来拍砖说明:由于本人经常要用标高做一些计算(尤其是总图),所以个人认为做成属性标高有利于其他程序直接调用数据(比如说计算总图排水坡度坡向等),所以用标高块的形式做标高,喜欢的可以拿去用用.... ...
利用python自动写Word文档（一）——python-docx初探
0.概述最近需要重复写格式一致的Wrod文件,具体格式如下图,文档包含文字和表格,想找一种自动写的工具,根据一个记录了X1,Y1,X2,Y2的TXT文档自动生成下图的文档,免去每天的重复编辑.偶然间 ...
LoveLive!出了一篇AI论文：生成模型自动写曲谱
视学算法报道编辑:泽南.小舟我们终于知道那些折磨人的乐谱是怎么来的了 -- 都是 AI 生成的. 知名偶像企划 LoveLive! 发 AI 论文了,是的没错. 最近,预印版论文平台 arXiv ...
Pytorch+LSTM+AI自动写诗实战
文章目录 1.数据集和任务定义 2.读取数据集 3.数据预处理 4.数据制作 5.定义网络结构: 6.测试网络 7.可视化 8.总结 1.数据集和任务定义本次采用的是唐诗数据集,一共有接近60000 ...
在 win10 环境下，设置自己写的程序开机自动启动的方法
原文:https://jingyan.baidu.com/article/c33e3f48d1360fea15cbb5c9.html win10组策略中设置在开关机时运行的脚本分步阅读 win10组 ...
mysql备份到制定目录_写一个脚本定时自动备份mysql到指定目录
编写一个shell脚本每天16:30备份mysql数据并压缩打包(打包文件按照当天的日期命名)放到/root/data #cd /root #vim mysqlbackup.sh #!/bin/bas ...

lisp写标高线_cad自动写标高lisp

lisp写标高线_cad自动写标高lisp相关推荐

最新文章

热门文章