lisp用entmake生产圆柱体_使用lisp语言实现在平面图中自动画出桥梁的墩柱标识.doc...
使用lisp语言实现在平面图中自动画出桥梁的墩柱标识.doc
还剩
5页未读，
继续阅读
下载文档到电脑，马上远离加班熬夜！
亲，喜欢就下载吧，价低环保！
内容要点：
使用 LISP 语言实现在平面图中自动画出桥梁的墩柱标识 摘 要：以往在平面图中画墩柱标识是一件费时费力，生产力低下的工作，本文讨论了如何使用 LISP 语言实现该项工作，以极大的节省时间，提高共效率。 关键词： LISP 桥梁墩柱 中图分类号： TU997 文献标识码： A 1.以前工作状况 在平面图中画桥梁墩柱的标识是一件大量的繁琐的重复性的工作，以往的做法是： 依据路基宽度确定墩柱的间距和位置，依据桥梁的斜交角度确定是双柱墩还是三柱墩 ，然后把每一种角度的墩柱标识各做成一个块(如图一)，再分别一个一个的粘贴进平面图，再旋转该块而成(如图二)。非常繁琐而且需要大量的时间。(当然以上方法仅适用于普通桥梁的标准墩柱标识，对于特殊要求的墩柱型式还是以桥梁组提供的为准。以下 LISP 语言实现的也仅是画出标准墩柱标识。) 图一 图二 2.LISP 语言及编程方法 LISP 语言的先天特性就是可以处理 AutoCAD 中大量重复性的工作，以节省时间和提高效率，下面我们就来看看该怎么实现这个自动画墩柱的程序呢？ 我一直认为编程最好的方 法就是分解法，把要实现的目标分解成若干个模块，然后一步一步的去实现。这有利于减少整个工作的难度，有利于增加或者减少程序功能，有利于出现问题时的溯源以便于查错纠错，而且可以提高不少工作效率。 这个程序也是这样，首先我依据需求和平时做这项工作的特性，理出大致的程序结构，分别为： {主程序：负责调用记录系统变量和恢复系统变量，调用功能实现子模块； 判断程序：判断各变量状态； 功能实现子程序：使用判断程序和画出墩柱程序，依据各种状态按要求实现程序功能； 画出墩柱程序。 } 3.自动 画桥墩的具体实现 3.1 主程序： 这里记录了各个系统变量状态，由于本程序需要使用 visual 函数，所以需要预先加载 visual 函数接口，调用了所需的 AutoCAD 线型，调用了功能实现子程序，且程序运行结束后需恢复各系统变量。程序实现如下： (defun c:qd() (setvar "cmdecho" 0) (command "undo" "be") (setq osmode (getvar "osmode")) (setvar "osmode" 0) (vl-load-com) (if(not(tblsearch "ltype" "dashed"))(command "-linetype""load" "dashed" "" "")) (setq f (ssget '((0 . "LWPOLYLINE")))) (get_length f) (command "_copy" f "" '(0 0 ) '(0 0)) (command "_erase" f "") (command "_ucs" "w") (setvar "osmode" osmode) (command "undo" "e") (princ) ) 3.2 画出墩柱程序： 使用功能实现子程序所确定的位置画出墩柱。 (defun DrawC(yuanx / ) (entmake (list (cons 0"
发表评论
暂无评论，赶快抢占沙发吧。
lisp用entmake生产圆柱体_使用lisp语言实现在平面图中自动画出桥梁的墩柱标识.doc...相关推荐
- lisp用entmake生产圆柱体_德BBG公司开发用于CFRP储罐模块生产过程的自闭合HPRTM模具...
自主概念.足以批量生产.可以降低投资成本. 每次操作最多可同时生产15个气瓶. 照片来源:BBG 机械制造商BBG GmbH&Co.KG(德国明德尔海姆)于9月16日提出了一种自动闭合高压树脂 ...
- lisp用entmake生产圆柱体_铝型材挤压生产金属流动与模具分析
摘 要:挤压成型是对挤压筒内的金属坯料施加外力,使之克服模具的摩擦阻力与金属的变形抗力,从特定的模孔中流出,获得所需断面形状.尺寸及性能加工制品的一种塑性加工方法.一般来说,要获得一副结构理想的模具, ...
- lisp用entmake生产圆柱体_投石科技圆柱体全息幻象装置
点击上面"蓝字"关注我们 投石科技圆柱体360°全息柜大幅度提高了空间显示利用率,从而实现了原有产品只能显示一个独立的图像到可以显示一个完整场景的突破. 投石科技圆柱体360°全息 ...
- lisp用entmake生产圆柱体_CAD与Excel之间数据传递的思路 1
CAD中图文信息比较直观,但基本不具备数据统计功能.Excel数据统计方便,但往往不能直观地表达信息.所以通常的做法是在CAD图纸中附上Excel表格信息. 这种方法最大的弊端在于:如果CAD图上(或 ...
- lisp用entmake生产圆柱体_entmake函数在AutoLisp程序设计中应用探究.doc
entmake函数在AutoLisp程序设计中应用探究 entmake函数在AutoLisp程序设计中应用探究摘要:主要介绍了AutoLisp二次开发AutoCAD过程中entmake函数的功能.性能 ...
- lisp的vla函数画矩形_利用Lisp做Tin三角网建模（源代码）
我参考的是这篇老外的帖子,原文不再翻译,有兴趣的可以百度自己查看 Q1:根据图面三角网内插方格网节点高程(LISP) ;;框选范围内交点插入图块 By Gu_xl 2011.04 ;;双线性内插计算 ...
- lisp pl线线段数_编写lisp程序多条多段线连接成一条多段线
展开全部 命令HB合并多段线(defun c:hb (/ @myL @lpNum @etLst @@62616964757a686964616fe4b893e5b19e31333363383339en ...
- 编写lisp程序解一元二次方程_用C语言编写一程序求解一元二次方程的根。
展开全部 C语言编写一程序求解32313133353236313431303231363533e78988e69d8331333365643661一元二次方程的根: #include #include ...
- lisp自动生成界址点表_基于AutoCAD VBA增减挂钩报备坐标文件自动生成.doc
基于AutoCAD VBA增减挂钩报备坐标文件自动生成 基于AutoCAD VBA增减挂钩报备坐标文件自动生成 摘要:生成增减挂钩报备坐标文件是一项非常繁琐的工作,会占用大量工作时间.如果利用VBA对 ...
最新文章
- 怎样成为一个高手观后感
- 2021年10个激动人心的工程里程碑
- make memuconfig的问题：'make menuconfig' requires the ncurses libraries
- 万能驱动助理篡改主页为2345的解决办法
- YII2 整合百度UEditor上传图片到阿里云OSS
- Megacli恢复RAID0磁盘数据
- php新闻删除功能设计,php原生开发新闻站之删除新闻
- 黑盒测试实践进度记录（五）
- c# 字典按ascii 排序_C语言 按ASCII码排序 求教大神
- Laravel的核心概念
- Java--UI--弹出对话框
- 人工智能中的深度结构学习 Learning deep architectures for AI - Yoshua Bengio
- Matlab安装过程
- 计算机管理usb出现问号,在Windows操作系统的设备管理器中的多个设备名上有问号...
- ERA5 total precipitation的单位
- 面试经历---广州YY（欢聚时代）
- fastbin attack学习总结
- 解决白天黑夜模式切换导致Fragment崩溃问题
- mysql的groupby_MYSQL GROUP BY用法详解
- 求任意一个自然数n的立方均可写成n个连续奇数之和。