LISP语言在宗地界址点成果表的应用

LISP 语言在CAD 道路设计中的各种应用

第三章LISP语言在CAD道路设计中的各种应用 3.1绘制平面任意函数曲线的AutoLISP程序设计 在各个工程设计领域中，经常要绘制一些曲线，特别是平面曲线，如水工结构的溢流曲线、机械设计的齿轮渐开曲线等。在AutoCAD绘图软件中，可以将曲线上的点先计算好，再用线、多义线、样条曲线等方法绘制，这种方法需要进行大量计算，工作量较大，如果用EXCEL软件来辅助计算，可以减轻工作量；另外，可以针对具体的曲线类型，用AutoCAD 内嵌的AutoLISP语言，实现边计算边绘制的功能。用这种方法绘制虽然快捷，但对于不同的曲线，则需编写同的AutoLISP程序，检查无误后才能运行，仍显繁琐。能否用统一的程序，来实现各种平面函数曲线的绘制，我们尝试利用AutoCAD中强大的表达式计算功能来实现这一目的。 3.1.1平面函数曲线的类型和绘制方法 平面函数曲线即是有简单函数表达式的曲线类型，可考虑经常遇到的4类： （1）直角坐标下形如y=f(x)的曲线； （2）直角坐标下的参数方程曲线； （3）极坐标下形如r=f(θ)的曲线； （4）极坐标下的参数方程曲线。 其中，只需增加一个平凡方程x=x,参数方程（2）就可以包括相应的直接表达形式（1），同样（4）可以包括（3）。同时，极坐标形式可以通过： x=rcosθ y=rsinθ 转换为直角坐标表达。因此从本质上说，4种类型都可以互相转换，把它们分类的目的是尽量采用函数的通常表达形式，以便于使用。绘制时，参照曲线的手工绘制方法，需要给出曲线上的多个点，然后将它们连接起来。若给出的点间隔很小，直接用折线段相连就可很好模拟该曲线，如果间隔较大，可以用样条曲线连接，使之比较光滑。假设我们计算出足够多的点，简单用折线连接即可，为使该曲线成为一个整体，可用多义线的方式连接。 关键的问题是，如何计算出曲线上点的坐标。由于曲线的函数表达式各种各样，不可能用统一的式子来表示。可以考虑从外部输入表达式，然后针对该表达式进行计算，给出相应结果，就能够解决点坐标的计算问题。但这个功能的实现比较困难，幸好AutoCAD为我们提供了CAL命令，可以对任意的表达式进行计算。该命令由函数库文件geomcal.arx提供，支持科学/工程计算器上的大多数标准函数，如三角函数、指数、对数等。若表达式中有变量，而该变量在程序中已设定了值，则按该值进行计算。由于该函数不是LISP内部函数，为使之可用，需要用ARXLOAD命令载入文件geomcal.arx，或者在命令行先输入CAL命令，由系统自动载入，这样，程序中就可以使用该函数了。总的程序定义为c:curve()，以便在AutoCAD命令行中与通常的命令一样使用。程序的总调用部分为： (arxload "geomcal.arx")；载入提供表达式计算功能的ARX文件 (vl- arx- import 'c:cal)；让命令c:cal能够使用 (princ "(1)直角坐标下曲线y=f(x).\n") (princ "(2)直角坐标下参数曲线x=f(i),y=g(i).\n") (princ "(3)极坐标下曲线r=f(theta).\n") (princ "(4)极坐标下参数曲线theta=f(i),r=g(i).\n") (setq ichoice (getint " 选择绘制曲线类型："))；选择曲线类型 (if (= ichoice 1) (curve1))；调用曲线绘制类型1 (if (= ichoice 2) (curve2))；调用曲线绘制类型2

lisp经典语句数值

设置默认数值 (if (= (setq th (getreal "输入墙厚度：（默认为0.25）：")) nil) (setq th 0.25) ) 设置当前环境 (setvar "cmdecho" 0) ;不显示提示文字 (setvar "plinewid" 0.2 ) ;设置绘图线宽为0.2 (setvar "osmode" 0) ;设置当前捕捉为关闭状态 (command "undo" "be" "")恢复上一个命令 (command "text" "c" pt3 hgt ang1 txt1) 添加文字信息在意图面(command "text" "c" pt3 hgt ang1 txt1) (DEFUN C:szzt() (command "style" "细等线体" "方正细等线简体" "0" "1" "0" "n" "n" ) ;标注文字样式(command "style" "中等线体" "方正中等线简体" "0" "1" "0" "n" "n" ) ;文字样式(command "style" "宋体" "方正书宋_GBK" "0" "1" "0" "n" "n" ) ;标注文字样式(command "style" "黑体" "黑体" "0" "1" "0" "n" "n" ) ;标注文字样式 (command "style" "HZ" "txt,hztxt" "0" "0.8" "0" "n" "n" "n") (princ "\n文字样式已设定!")) (DEFUN C:tdc() (COMMAND "LAYER" "M" "HX" "C" "1" "" "") (COMMAND "LAYER" "M" "LH" "C" "3" "" "") (COMMAND "LAYER" "M" "ZX" "C" "2" "" "") (COMMAND "LAYER" "M" "绿化占地" "C" "3" "" "") (COMMAND "LAYER" "M" "道路占地" "C" "1" "" "") (COMMAND "LAYER" "M" "建设用地" "C" "7" "" "") (COMMAND "LAYER" "M" "解算" "C" "4" "" "") (COMMAND "LAYER" "M" "用地范围线" "C" "7" "" "") (COMMAND "LAYER" "M" "边界线" "C" "4" "" "") (COMMAND "LAYER" "M" "勘界线" "C" "6" "" "") (COMMAND "LAYER" "M" "利用" "C" "16" "" "") (COMMAND "LAYER" "M" "外业" "C" "5" "" "") (COMMAND "LAYER" "M" "图框" "C" "7" "" "") (COMMAND "LAYER" "M" "现状地形" "C" "5" "" "") (COMMAND "CLAYER" "解算"))

第2讲 利用AutoLisp语言绘图

第2讲利用AutoLisp语言绘图 在AuotCAD绘制简单图形时，有三种主要方式：（1）图标菜单（2）下拉式菜单（3）命令行。事实上还有另外一种绘图方式，即通过lisp语言实现绘制图形。利用Lisp语言绘图的最大优点是可以实现批处理，降低劳动强度。 小知识： Lisp语言最大优势是和AutoCAD绘图结合的很好，这也 是该语言至今仍未被淘汰的最主要原因。 1、简单的绘图语句 几乎AuotCAD中所有的绘图及环境设置命令都可以通过程序调用！，利用Lisp语言编写绘图命令的窍门是首先在命令行下把绘图命令和对应的参数记住，然后用Lisp语言的格式书写出即可。 1.1 绘制直线 (command "line" "0,0" "1,1" "") 1.2 绘制圆 (command "circle" "0,0" 5) 1.3 绘制正多边形 (command "polygon" 5 "0,0" "i" 5) (command "polygon" "5" "0,0" "i" "5")都正确 1.4 新建图层 (command "la yer" "m" "道路" "c" 2 "" "") 请同学自己编写高度为2，起点位置在“0，0”，文字内容是“理工大”的程序2、用多条绘图语句表示复杂图形 正常情况下图形都比较复杂，需要用多条语句编写，例如测绘中的下水井、路灯等符号。 例1、下水井的绘制 (defun c:xsj() (command "circle" "0,0" 0.5) (command "line" "-0.5,0" "0.5,0" "") (command "line" "0,-0.5" "0,0.5" "") ) 3、循环控制语句 例2、绘制同心圆

LISP语言教程

LISP语言教程 作者：牛魔王 — 上次修改时间: 2007-03-22 13:13 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。Scheme 语言概要 Author:宋国伟吉林省德惠市信息中心 Date:2003 年12 月01 日 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 作为Lisp 变体，Scheme 是一门非常简洁的计算语言，使用它的编程人员可以摆脱语言本身的复杂性，把注意力集中到更重要的问题上，从而使语言真正成为解决问题的工具。本文分为上、下两部分来介绍scheme 语言。一．Scheme语言的特点

Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 它是一个小巧而又强大的语言，作为一个多用途的编程语言，它可以作为脚本语言使用，也可以作为应用软件的扩展语言来使用，它具有元语言特性，还有很多独到的特色,以致于它被称为编程语言中的"皇后"。 下面是洪峰对Scheme语言的编程特色的归纳： ?词法定界（Lexical Scoping） ?动态类型（Dynamic Typing） ?良好的可扩展性 ?尾递归（Tail Recursive） ?函数可以作为值返回 ?支持一流的计算连续 ?传值调用（passing-by-value） 术运对 ?算算相独立 本文的目的是让有编程基础（那怕是一点点）的朋友能尽快的掌握Scheme语言语规则读发现经Scheme语言了，那么我的的法，如果您在完本文后，自己已会用 目的就达到了。

控制测量成果报告

石家庄市城市轨道交通1号线一期工程裕华路110kV地铁站输变电工程 控制测量技术成果报告

中铁电气化局集团有限公司 石家庄地铁1号线14标段项目经理部 2014年12月 测量技术成果报告 项目负责人： 技术负责人： 校核： 编写： 主要参加人员：刘晓亭张凯凯张进财张航天 报告编制单位： 中铁电气化局集团有限公司石家庄地铁1号线14标段项目经理部

目录 1 概述1 1.1工程概况1 1.1.1地理位置1 1.1.2新建电力隧道及施工井概况1 2 技术依据及平面坐标系统2 2.1技术依据2 2.1.1 测量技术依据2 2.1.2 现有成果资料2 2.2平面及高程坐标系统3 2.3测量仪器3 3 导线控制网测量3 3.1导线控制网简介3 3.2导线控制网数据处理4 3.3导线控制网坐标成果表4 4 高程控制网测量5 4.1高程控制网简介5 4.2高程控制网数据处理6 附件1 控制点平面布置图7

1 概述 1.1工程概况 1.1.1地理位置 裕华路110kV地铁站输变电工程电力隧道为裕华路110kV主变电站配套电缆通道，裕华路110kV主变电站由留村、仓丰两座城市电网高压变电站引入两路110kV电源。 220kV留村站出线，留村站至闽江道已有隧道160米。沿闽江道向西至京珠高速东侧新修暗挖隧道，留村—珠峰大街2.2×2.45隧道1415米，断面为2.2×2.45米；珠峰大街—京珠高速隧道1035米，断面为1.9×2.2米；由闽江道沿京珠高速东侧至裕华路主变电站，新修1回预制直埋沟，长约1170米。 220kV仓丰站出线，仓丰站出线沿仓丰路、裕祥路、南二环至雅清街为已有隧道，长度约4900米，自雅清街沿南二环北侧、东二环西侧至槐安路新修隧道长约2830米，断面为2.2×2.45米；沿槐安路北侧、至京珠高速东侧新修隧道长度约1540米，1.9×2.2米；施工井及通风井采用旁引式。由槐安路与京珠高速交口向北沿京珠高速东侧至海世界变电站，新修1回预制直埋沟，长约1570米。 电力隧道路径平面位置图见图2.1。 1.1.2新建电力隧道及施工井概况 留村-闽江道：已有隧道长约160米在建。 闽江道-京珠高速东侧：新修隧道长约2450米，以珠峰大街为界，珠峰大街以东至留村站口隧道断面2.2×2.45米，长约1415米，珠峰大街以西至高速公路东侧隧道断面1.9×2.2米，长约1035米。 闽江道-海世界（留村直出）：新修隧道直埋沟（跨路预埋直径2米混凝土管）共计1170米。宽：1.0米高：0.4米。 仓丰-雅清街：已有隧道长约4900米，直墙高约2.6米，净宽2.2米，已有电缆支架，仅敷设电缆。 雅清街-槐安路：新修隧道长约2830米，直墙高2.45米，净宽2.2米。 槐安路-京珠高速：新修隧道长约1540米，直墙高2.2米，净宽1.9米。 京珠高速-海世界（仓丰直出）新修预制直埋沟（跨路预埋直径2米混凝土管）共计1570

养成良好的AutoLISP书写习惯

养成良好的AutoLISP书写习惯 众所周知，Lisp是一种表结构语言，括号必须成对出现，在调试时往往为遗漏了一个括号大费周折，所以，养成一个好的编程习惯是学好Lisp所必须的。 ⑴选择一个较好的编辑器，这是一个基本条件，建议使用Visual Lisp编辑器或Lisplink 等专用编辑器，此类编辑器可以对函数突出显示。 ⑵按Lisp（DCL）专有格式书写，并经常对程序进行“格式化”，及时发现语法错误，并有利于调试是查找错误。 ⑶使用自定义函数，并辅助以适当得注释，在较大程序中按功能使用自定义函数可以使得程序条理化。 autolisp的入门教程＋autolisp函数! Lisp是一门历史悠久的语言，全名叫LISt Processor，也就是“表处理语言”，它是由John McCarthy于1958年就开始设计的一门语言。和Lisp同时期甚至更晚出现的许多语言如Algo 等如今大多已经消亡，又或者仅仅在一些特定的场合有一些微不足道的用途，到现在还广为人知的恐怕只剩下了Fortran和COBOL。但唯独Lisp，不但没有随着时间而衰退，反倒是一次又一次的焕发出了青春，从Lisp分支出来的Scheme、ML等语言在很多场合的火爆程度甚至超过了许多老牌明星。那么这颗常青树永葆青春的奥秘究竟在哪里呢？ 如果你只接触过C/C++、Pascal这些“过程式语言”的话，Lisp可能会让你觉得十分不同寻常，首先吸引你眼球（或者说让你觉得混乱的）一定是Lisp程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好，不过考虑到五六十年代的计算机处理能力，简化语言本身的设计在那时算得上是当务之急了。 Lisp的基本语法很简单，它甚至没有保留字（有些语言学家可能对这一点有异议，别怕，我听你们的），它只有两种基本的数据，仅有一种基本的语法结构就是表达式，而这些表达式同时也就是程序结构，但是正如规则最简单的围棋却有着最为复杂的变化一样，Lisp使用最基本的语言结构定义却可以完成其它语言难于实现的、最复杂的功能。 废话少说，现在我们就来看看Lisp语言中的基本元素。 Lisp的表达式是一个原子(atom)或表(list)，原子(atom)是一个字母序列，如abc；表是由零个或多个表达式组成的序列，表达式之间用空格分隔开，放入一对括号中，如： abc () (abc xyz) (a b (c) d) 最后一个表是由四个元素构成的，其中第三个元素本身也是一个表。 正如算数表达式1+1有值2一样，Lisp中的表达式也有值，如果表达式e得出值v，我们说e返回v。如果一个表达式是一个表，那么我们把表中的第一个元素叫做操作符，其余的元素叫做自变量。

LISP语言教程

LISP语言教程 作者：牛魔王—上次修改时间: 2007-03-22 13:13 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 Scheme 语言概要 Author: 宋国伟吉林省德惠市信息中心 Date: 2003 年 12 月 01 日 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 作为Lisp 变体，Scheme 是一门非常简洁的计算语言，使用它的编程人员可以摆脱语言本身的复杂性，把注意力集中到更重要的问题上，从而使语言真正成为解决问题的工具。本文分为上、下两部分来介绍 scheme 语言。 一．Scheme语言的特点 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 它是一个小巧而又强大的语言，作为一个多用途的编程语言，它可以作为脚本语言使用，也可以作为应用软件的扩展语言来使用，它具有元语言特性，还有很多独到的特色,以致于它被称为编程语言中的"皇后"。 下面是洪峰对Scheme语言的编程特色的归纳： ?词法定界（Lexical Scoping） ?动态类型（Dynamic Typing） ?良好的可扩展性 ?尾递归（Tail Recursive） ?函数可以作为值返回 ?支持一流的计算连续

AutoLISP 入门

超值奉送 Auto LISP 入门 Auto LISP 是在AutoCAD 内部允许的一种内嵌式程序设计语言。LISP （List Processing Language ）是人工智能领域中广泛采用的一种表处理语言，具有较强的表处理功能，主要用于人工智能、机器人、专家系统、博弈、定理证明等领域。LISP 也被称为符号式语言，因为它处理的对象是符号表达式。 Auto LISP 可以直接调用几何所有的AutoCAD 命令，为AutoCAD 提供了使用高级语言开发编程的途径，使得用户能充分利用它对AutoCAD 进行二次开发。 感谢： 感谢您选购本图书。 本部分是《AutoCAD 2007中文版自学手册——入门提高篇》图书超值赠送的一部分，仅供读者个人参考使用。未经许可，任何人不得将此部分用于其他商业用途。 欢迎您对我们的图书进行监督，并对我们的工作（图书质量、装帧设计、封面、印刷等）提出改进意见或建议。 网站：https://www.wendangku.net/doc/d15855796.html, E-mail: editor.liu@https://www.wendangku.net/doc/d15855796.html, QQ 群：9843746 （CAD/CAM/CAE 应用方向） 您的支持是我们前进的动力，您的需要是我们努力的方向！ 冯如设计在线 2006-10-09

A.1 Auto LISP基本函数 自从AutoCAD RA.01 开始，出现了Visual LISP 语言，它是Autodesk公司为增强Auto LISP 程序开发能力而设计的软件工具，为Auto LISP增加了许多新的函数。Visual LISP的集成开发环境提供很多特性，使用户创建和修改源代码、测试和调试程序更加方便。 自从Auto LISP 嵌入AutoCAD 之后，使仅仅作为交互式图形编辑软件的AutoCAD，通过编程使之能真正进行计算机辅助设计、绘图。由于LISP灵活多变、易于学习和使用，因而使AutoCAD 成为功能很强大的工具性软件。 随着AutoCAD版本的升级，Auto LISP 的功能不断得到扩充和增强，主要功能如下： z能够把数据和程序统一表达为表结构，即S-表达式，因此可以把程序当作数据来处理，以可以把数据当作程序来执行； z有图形处理和程控方面的函数，可以直接调用AutoCAD的所有命令； z扩充了AutoCAD应用的特殊功能； z主要控制结构采用递归方式，使得程序设计简单易懂。 A.1.1 赋值函数 Auto LISP提供了大量系统预定义的函数。函数的一般描述格式为： （函数名<变元> [<变元> ……]） 表中第一个元素为函数名，它一般指明函数的功能。其余各元素为函数的变量（称为变元）。[ ]表示任选项；……表示任意多项；<>表示变元类型。函数调用后显示一个执行该函数的结果，称为返回值。下面是Auto LISP的基本函数。 1. (setq 符号表达式[符号表达式]……) 将一个或者多个符号设置为相应表达式的值，返回最后一个表达式的值，例如： （setq a 123 b 6.0） ; 符号a返回6.0 （setq s “it” x ‘(a b ) ） ; 符号s 被赋值为”it”, 符号x 被赋值为（a b）,返回（a b） 2. (set‘符号表达式) 如果符号前有一个单引号，该函数则将符号设置为表达式的值，此用法与setq函数的用法等价，例如： (set ‘ a 18.0) ;符号a被赋为18.0，返回18.0 Set和setq函数都需要将符号作为它的第一个参数。但是set 函数接受返回结果为符号的表达式作为参数，setq却不可以。 3.（eval 表达式） 返回对表达式求值的结果，例如： （setq a 24 b 45） ; 返回45 2

附录一勘测定界界址点坐标交换格式

附录一：勘测定界界址点坐标交换格式坐标交换格式具有两种格式，分别如下： 文本格式 [属性描述] 格式版本号= 数据产生单位= 数据产生日期= 坐标系=2000国家大地坐标系 几度分带= 投影类型= 计量单位=米 带号= 精度= 转换参数=X平移,Y平移,Z平移,X旋转,Y旋转,Z旋转,尺度参数 [地块坐标] 界址点数,地块面积,地块编号,地块名称,记录图形属性(点、线、面),图幅号,地块用途,地类编码,@ {点号,地块圈号,X坐标,Y坐标 ... ... 点号,地块圈号,X坐标,Y坐标} 界址点数,地块面积,地块编号,地块名称,记录图形属性(点、线、面),图幅号,地块用途,地类编码,@ {点号,地块圈号,X坐标,Y坐标 ... ...

点号,地块圈号,X坐标,Y坐标} 注意： 所有的逗号分隔符都必须是英文输入法状态下的逗号；地块圈号不能小于零；数据产生日期的格式为：2000-12-12；坐标系必须为2000国家大地坐标系；投影类型为高斯克吕格或等角多圆锥；几度分带为3或6；带号、精度、转换参数、界址点数、地块面积、地块圈号,X坐标,Y坐标必须为数字型；且不能用该（9999,000,000）方式表示；地块编号、地块名称、记录图形属性(点、线、面)、图幅号、地块用途、地类编码、点号的每项里不能含有“,”、“@”符号。 例子一：普通地块 [属性描述] 格式版本号=1．01版本 数据产生单位=国土资源部 数据产生日期=2003-11-7 坐标系=2000国家大地坐标系 几度分带=3 投影类型=高斯克吕格 计量单位=米 带号=31 精度=2 转换参数=2210.3,12.65,115,25,420.66,445.69,0.569 [地块坐标] 9,0.018,2003-10,双桥乡地块1,面,I－50-77-（22）,公共基础设施,,@ J01,1,3751508.5,39438683.65 J02,1,3751508.5,39438690.15 J03,1,3751502,39438690.15 J04,1,3751502,39438688.2 J05,1,3751494.5,39438688.2

autocad-lisp教程

Lisp教程 一．Lisp基础知识 二．对话框基础 一．基本知识 第1节 -------------------------------------------------------------------------------- 基本知识 AutoLISP是一种针对扩充及自订AutoCAD函数机能而产生,以LISP为基础的程序设计语言.LISP本身于50

目的是令使用者充份利用AutoCAD进行开发,直接增加及修改AutoCAD指令. AutoLisp语言建基于普通的LISP语言上,并扩充了许多适用于CAD的特殊功能而形成. 是一种能以直译方式(不须先行编译)亦可于AutoCAD内部执行的直译性程序语言. 程序容易学习及撰写,程序即使出错亦不会对操作系统(如DOS,WINDOWS)有不良影响. 数据及程序均统一以串行(List)结构表示. 可直接调用几乎全部的AutoCAD命令. 既具备一般高级语言的基本结构和功能,亦有一般高级语言没有的强大图形处理能力. 内建于AutoCAD应用程序,不须另行购买;亦不须使用特定的编辑器或开发环境. 可配合AutoCAD提供的PDB,建立DCL(Dialog Control Language)文件创建对话框. 缺点: 执行速度较ObjectArx(旧称ARX,以C或C++程序开发,取代以前的ADS)程序慢;原程序不易保护;对低阶的硬件数据不易存取. 第2节 -------------------------------------------------------------------------------- 函数(Function) 在AutoLISP程序语言中所有的成份都是以函数的形式出现,AutoLISP程序就是顺序执行连串的函数.函数的运行过程就是对函数的求值(结果)过程;函数的基本语法如下: (函数名称参数1 参数2....) e.g. (PRINC "AutoLISP Programming") 每一个完整的函数必须包在一对小括号( )内,左边为开括号,右边为关括号;如有若干数量的开括号,则一定有同等数量的关括号对应. 左边开括号后紧随函数名称. 函数名称与参数之间,或参数与参数之间须最少留一个空格. 函数可有一个或多个参数(也可能没有参数),视该函数而定. 函数名称不分大小写,即大小写字母视为相同. 第3节 -------------------------------------------------------------------------------- 数据型态(Data Type) 整数(INT) 没有小数字的数值,32位有号数,范围从+2,147,483,647到-2,147,483,648 实数(REAL) 带小数字的数值,以倍精度浮点格式储存(最少14位小数) e.g. 12.5 当数值在1与-1之间时,必须加上前导零 e.g. 0.05 可以科学记号表示: 在E或e后加上次方值 e.g. 4.1e-6 字符串(STR) 一般文字,其前后必须加上双引号" e.g. "AutoCAD" 控制字符或脱逸码必须为小写,且须在字符前加上反斜线\ e.g. "\AutoCAD" 像素名称(ENAME) 是指定给图文件内对象的指针(Pointer,为16进位的数字卷标) e.g. 像素名称在图文件内是唯一的,不会重复 对象的像素名称只在目前作业中有效,再开启图档时,会指定新的像素名称予该对象 档案(FILE) 以OPEN函数所开启档案的指针,作为其它函数(读写该档案)的自变量 选集(PICKSET)

lisp语言入门

Lisp语言入门 Lisp是一门历史悠久的语言，全名叫LISt Processor，也就是“表处理语言”，它是由John McCarthy于1958年就开始设计的一门语言。和Lisp同时期甚至更晚出现的许多语言如Algo等如今大多已经消亡，又或者仅仅在一些特定的场合有一些微不足道的用途，到现在还广为人知的恐怕只剩下了Fortran和COBOL。但唯独Lisp，不但没有随着时间而衰退，反倒是一次又一次的焕发出了青春，从Lisp分支出来的Scheme、ML等语言在很多场合的火爆程度甚至超过了许多老牌明星。那么这颗常青树永葆青春的奥秘究竟在哪里呢？ 如果你只接触过C/C++、Pascal这些“过程式语言”的话，Lisp可能会让你觉得十分不同寻常，首先吸引你眼球（或者说让你觉得混乱的）一定是Lisp程序中异常多的括号，当然从现在的角度来讲，这种设计的确对程序员不大友好，不过考虑到五六十年代的计算机处理能力，简化语言本身的设计在那时算得上是当务之急了。 Lisp的基本语法很简单，它甚至没有保留字（有些语言学家可能对这一点有异议，别怕，我听你们的），它只有两种基本的数据，仅有一种基本的语法结构就是表达式，而这些表达式同时也就是程序结构，但是正如规则最简单的围棋却有着最为复杂的变化一样，Lisp使用最基本的语言结构定义却可以完成其它语言难于实现的、最复杂的功能。 废话少说，现在我们就来看看Lisp语言中的基本元素。 Lisp的表达式是一个原子(atom)或表(list)，原子(atom)是一个字母序列，如a b c；表是由零个或多个表达式组成的序列，表达式之间用空格分隔开，放入一对括号中，如： a b c () (a b c x y z) (a b(c)d) 最后一个表是由四个元素构成的，其中第三个元素本身也是一个表。 正如算数表达式1+1有值2一样，Lisp中的表达式也有值，如果表达式e得出值v，我们说e返回v。如果一个表达式是一个表，那么我们把表中的第一个元素叫做操作符，其余的元素叫做自变量。

AutoLISP从入门到精通初级教程(新手必备)

AutoLISP入门 单元一：AutoLISP主角登场 (2) 单元二：AutoLISP的关键、基本结构及语法 (4) 单元三：快速分类浏览AutoLISP功能函数(一) (10) 单元四：快速分类浏览AutoLISP功能函数(二) (13) 单元五：轻松快速的掌握AutoLISP设计技巧 (16) 单元六：图元数据的取得与活用技巧(一) (21) 单元七：图元数据的取得与活用技巧(二) (25) 单元八：新手上路-参数设计的关键技巧 (31)

单元一：AutoLISP主角登场 一. AutoLISP 是何方神圣? 1、AutoLISP是AutoCAD的最佳拍檔! 2、AutoLISP内含于AutoCAD软件内,不用另外花钱买! 3、AutoLISP是强化AutoCAD最好、最直接的『程序语言』! 4、AutoLISP易学、易用,即使不会程序设计的AutoCAD使用者,都能在最短的时间内,写出令人惊讶、赞叹的功能! 若说AutoLISP的出现,是替AutoCAD 创造一片天的『最大功臣』,实不为过一点也不夸张! 5、AutoLISP希望您去学习它、改善它、发挥它、享受它.真的!它的威力、魅力无穷! 二. AutoLISP 程序语言的特质分析: 学习AutoLISP是非常容易的,对初学者而言,即使没有学习过任何的程序语言,都能很快的上手,写出精彩漂亮的AutoLISP程序! 语法简单：不用特殊的变量宣告,非常富有弹性,比起其它的程序语言,它的语法可说是非常简单而有其独特的风格! 功能函数强大：除一般性的功能函数外,又拥有为数不少控制配合AutoCAD的特殊函数,再加上AutoLISP可直接呼叫执行所有AutoCAD的指令,以及掌握运用所有的AutoCAD系统变量,功能之强大令人欣喜不已! 撰写的环境不挑剔：只要是一般的文书编辑软件都适用! 如:Windows的记事本、PE2、PE3、DW3、书中仙、汉书、EDIT....等 直译式程序：不用再作编译,『即写即测、即测即用』,马上可以在AutoCAD中响应效果,马上就有成就感! 横跨各作业平台：悠然自得,虽然AutoCAD有DOS、Windows版本之分但是AutoLISP却可在不改写的原貌下,加载与执行! 三.撰写AutoLISP 的动机? 1、欲强化AutoCAD 原有指令时. 2、欲创造更有用的AutoCAD 新指令. 3、欲简化繁琐的环境设定或绘图步骤时. 4、欲处理参数式绘图时. 5、欲做图面资料读文件、写文件. 6、欲做AutoCAD 简报展示时. 7、欲达到真正灵活掌控AutoCAD 时. 8、欲提升自己跨上AutoCAD 高手列车时. 四.AutoLISP 的效益评估? 1. 对公司负责人或设计主管而言: A. 也许某员工或干部花了20个小时撰写一个AutoLISP程序,表面上,这将近三天的时间,他连一张图都没有画,甚至可能偶有发呆、沈思,若此程序一天可以替公司绘图部门节省1小时绘图时间,那算一算,只要20天就抵销开发成本,而20天以后都是赚的,『用的愈久,省的愈多』！ B. 若员工皆有此动力,在不影响正常工作,『鼓励』都来不及,那有『压抑』的道理,甚至还要派遣优秀人员出去受训,学习更好的设计技巧与创意呢？！ C. 千万不要因为您的不懂或压抑,SHOW您的权威与POWER,如此,不但对员工造成打击,甚至您可能成为阻碍了公司计算机化进步的罪魁祸首 D. 当然,若要撰写的程序很多,内部设计人员的程序功力距离太远,达成需求的时间反而变得遥遥无期,那倒不如求助于市面上已有的相关AutoCAD 支持软件。

实验一 界址点坐标测量与宗地面积计算

实验一房屋调查、丈量、计算与分摊 一、实验目的 1.丈量一栋房屋的边长，计算该房屋基底的面积、建筑面积，绘制房屋的平面草图。 2.丈量并计算该房屋的共有面积，根据共有面积分摊的原则和方法对共有面积分层（分户）进行分摊计算。 3.掌握用钢尺进行房屋丈量的测量、记录、计算的方法。 4.掌握房屋基底面积、建筑面积计算的方法，掌握房屋建筑面积计算中计算全部建筑面积、计算一半建筑面积和不计算建筑面积的范围。 5.掌握共有面积的含义、构成和计算。 6.掌握共有面积分摊的原则及分摊计算的方法。 二、实验任务 1.房屋丈量。 2.绘制房屋平面图和房屋分层平面图。 3.计算房屋建筑面积和占地面积。 4.编写实验报告。 三、实验仪器设备 1.每个小组准备经检验的钢尺一副，记录板一块，自备铅笔一支，小三角板一块。 2.每个小组边长钢尺量距记录表两张，空白房屋平面图一张，共有面积计算表一张。 四、实验方法与步骤 首先选定校内或校外一栋多功能的多层独立建筑物，层数在10层左右为宜。实验小组由4人组成，两人量距，一人记录，一人协助。 1.沿房屋外墙勒脚以上用钢尺丈量房屋的边长，每边丈量两次取其中数，如房屋的占地面积与房屋的底层建筑面积不相等，还要丈量房屋占地范围各边的边长。 2.绘制房屋的平面示意图，并注记每个边边长数据。 3.用钢尺丈量房屋的共有部分的边长，如果各层情况不同，要分层丈量。 4.绘制房屋分层图，并计算各层的分户建筑面积和共有面积。 5.按房屋的几何形状，利用实量数据和简单的几何公式计算房屋的建筑面积和房屋的占地面积。 6.计算房屋的共有面积，并利用公式计算各户的分摊面积。 四、注意事项 1.钢尺操作要做到三清：零点清楚—尺子零点不一定在尺端，有些尺子零点前还有一段分划；读数认清—尺子读数要认清m，cm的注记和mm分划数；尺段记清—尺段较多时，容易发生漏记的错误。 2.钢尺容易损坏，为维护钢尺，应做到四不：不扭、不折、不压、不拖。用完擦净后才可以卷入尺壳内。 3.丈量用的钢尺需进行检校，合格后方能使用。 4.丈量边长读数取cm。边长要进行两次丈量，两次丈量结果较差应符合下式规定： ⊿D ＝ 0.04×D（D的单位为m）

施工控制点成果表放线成果表

施测部位脱泥间 坐标系统方格网建筑坐标系统 共1页第1页高程系统方格网高程系统 坐标(m) 高程（m) 备注点号类型 等级 A B 等级H 9# 施工网一级206.047 842.897 三级168.833 10# 施工网一级288.414 788.572 三级169.579 A 施工网一级277.95 868.65 三级168.85 B 施工网一级287.17 861.04 三级168.90 C 施工网一级277.62 849.47 三级168.77 D 施工网一级269.18 857.11 三级168.92

施测部位脱泥间 坐标系统方格网建筑坐标系统 共1页第1页高程系统方格网高程系统 坐标(m) 高程（m) 备注点号类型 等级 A B 等级H 9# 施工网一级206.047 842.897 三级168.833 10# 施工网一级288.414 788.572 三级169.579 A 施工网一级277.95 868.65 三级168.85 B 施工网一级287.17 861.04 三级168.90 C 施工网一级277.62 849.47 三级168.77 D 施工网一级269.18 857.11 三级168.92

施测部位脱泥间 坐标系统方格网建筑坐标系统 共1页第1页高程系统方格网高程系统 坐标(m) 高程（m) 备注点号类型 等级 A B 等级H 9# 施工网一级206.047 842.897 三级168.833 10# 施工网一级288.414 788.572 三级169.579 A 施工网一级277.95 868.65 三级168.85 B 施工网一级287.17 861.04 三级168.90 C 施工网一级277.62 849.47 三级168.77 D 施工网一级269.18 857.11 三级168.92

建筑坐标点校核测量成果报告

编号： 项目坐标点校核测量成果报告 工程名称： 建设单位： 验线地点： ****************公司 年月日

说明 一、本报告中述的事实是真实、客观和准确的。 二、本报告中所涉及的坐标点校核测量成果和计算成果是客观、公正且符合规的。我单位在清楚项目的测绘实施与合同要求的情况下，完全如实按现场情况进行测量，在恪守独立、客观和公正原则的基础上形成本报告，并对报告成果的客观性、真实性、公正性承担责任。我单位与本宗项目建设单位没有利害关系或偏见，也与有关当事人没有利害关系或偏见。 三、我单位依据CJJ/T 8-2011《城市测量规》进行作业，得到测绘成果，并撰写本报告。 四、我单位具备本坐标点校核测量业务所需的测绘专用仪器设备、专业测绘技术人员及相关专业测绘经验，能够保质保量完成本次校核测量工作。 六、验线作业负责人员： 测量人（签字）：年月日 检查人（签字）：年月日 报告编写人（签字）：年月日 审核人（签字）：年月日

一、校核测量说明 受公司委托，我公司承担 项目A1 坐标点校核测量工作。 二、作业依据 1.《城市测量规》（CJJ/T 8-2011） 2.《工程测量规》（GB 50026-2007） 3.《全球定位系统（GPS）测量规》（GB/T 18314 2009） 4.《全球定位系统实时动态测量（RTK）技术规》（CH/T 2009-2010） 5. 公司提供的GPS控制点成果表（坐标系，高程基准） 6. 总平面布置图（1:500）。 三、作业方法 1、所用仪器：本次校核测量采用在检定周期的科力达K9-T GPS接 收机流动站，5mm+1ppm精度以上。 2、坐标系：采用坐标系 根据公司提供的 GPS控制点成果表（坐标系，高程基准）、总平面布置图（1:500）及相关规与合同的要求，采用卫星定位系统实时动态测量方法对拟建建筑物的主要角点或轴线点，实地进行校核测量。校核限差符合《城市测量规》CJJ/T 8-2011建建筑物的主要坐标点校核限差的要求，即：校核坐标与条件坐标间点位较差≤±50mm。 四、作业地点： 五、校核测量情况

界址点坐标交换格式

附录一：勘测定界界址点坐标交换格式 坐标交换格式具有两种格式，分别如下： 文本格式 [属性描述] 格式版本号= 数据产生单位= 数据产生日期= 坐标系=80国家大地坐标系 几度分带= 投影类型= 计量单位=米 带号= 精度= 转换参数=X平移,Y平移,Z平移,X旋转,Y旋转,Z旋转,尺度参数 [地块坐标] 界址点数,地块面积,地块编号,地块名称,记录图形属性(点、线、面),图幅号,地块用途,地类编码,@ {点号,地块圈号,X坐标,Y坐标 ... ... 点号,地块圈号,X坐标,Y坐标} 界址点数,地块面积,地块编号,地块名称,记录图形属性(点、线、面),图幅号,地块用途,地类编码,@ {点号,地块圈号,X坐标,Y坐标 ... ... 点号,地块圈号,X坐标,Y坐标} 注意： 所有的逗号分隔符都必须是英文输入法状态下的逗号；地块圈号不能小于零；数据产生日期的格式为：2000-12-12；坐标系为54北京坐标系或80国家大地坐标系；投影类型为高斯克吕格或等角多圆锥；几度分带为3或6；带号、精度、转换参数、界址点数、地块面积、地块圈号,X坐标,Y坐标必须为数字型；且不能用该（9999,000,000）方式表示；地块编号、地块名称、记录图形属性(点、线、面)、图幅号、地块用途、地类编码、点号的每项里不能含有“,”、“@”符号。

例子： [属性描述] 格式版本号=1．01版本 数据产生单位=国土资源部 数据产生日期=2003-11-7 坐标系=80国家大地坐标系 几度分带=3 投影类型=高斯克吕格 计量单位=米 带号=31 精度=2 转换参数=2210.3,12.65,115,25,420.66,445.69,0.569 [地块坐标] 9,0.018,2003-10,双桥乡地块1,面,I－50-77-（22）,公共基础设施,,@ J01,1,3751508.5,39438683.65 J02,1,3751508.5,39438690.15 J03,1,3751502,39438690.15 J04,1,3751502,39438688.2 J05,1,3751494.5,39438688.2 J06,1,3751494.5,39438660.7 J07,1,3751499,39438660.7 J08,1,3751499,39438683.65 J01,1,3751508.5,39438683.65 5,0.0247,2003-12,双桥乡地块2,面,I－50-77-（14）,公共基础设施,,@ J01,1,3755389.7,39437380.2 J02,1,3755389.7,39437410.7 J03,1,3755382.2,39437410.7 J04,1,3755382.2,39437380.2 J01,1,3755389.7,39437380.2 EXCEL格式

Lisp语言教程

LISP语言教程 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 Scheme 语言概要 Author: 宋国伟吉林省德惠市信息中心 Date: 2003 年 12 月 01 日 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 作为Lisp 变体，Scheme 是一门非常简洁的计算语言，使用它的编程人员可以摆脱语言本身的复杂性，把注意力集中到更重要的问题上，从而使语言真正成为解决问题的工具。本文分为上、下两部分来介绍 scheme 语言。 一．Scheme语言的特点 Scheme 语言是LISP语言的一个方言(或说成变种)，它诞生于1975年的MIT，对于这个有近三十年历史的编程语言来说，它并没有象C++，java，C#那样受到商业领域的青睐，在国内更是显为人知。但它在国外的计算机教育领域内却是有着广泛应用的，有很多人学的第一门计算机语言就是Scheme语言。 它是一个小巧而又强大的语言，作为一个多用途的编程语言，它可以作为脚本语言使用，也可以作为应用软件的扩展语言来使用，它具有元语言特性，还有很多独到的特色,以致于它被称为编程语言中的"皇后"。 下面是洪峰对Scheme语言的编程特色的归纳： ?词法定界（Lexical Scoping） ?动态类型（Dynamic Typing） ?良好的可扩展性 ?尾递归（Tail Recursive） ?函数可以作为值返回 ?支持一流的计算连续 ?传值调用（passing-by-value） ?算术运算相对独立