复杂征地图标注使用LISP语言实现的方法

合集下载

Lisp程序语言的具体实现和运用浅析

Lisp程序语言的具体实现和运用浅析一、引言：随着工业技术和生活水平的提高，室外管线的种类越来越多，对室外管线设计的要求就越来越高。

室外管网不仅仅需要在平面上按照相关的规范规程进行综合排布，还需要在竖向高度上进行精心安排，才能在有限的空间合理组织各种管线的布置。

而这种需求必然要求设计师拥有比较强大的软件来进行室外管线设计的工作。

然而目前国内许多设计机构在管线综合方面主要靠手工综合，而且竖向标高的碰撞上面基本不进行设计，都是靠施工单位在施工现场根据实际情况自行避让。

这样导致室外管网排布的混乱，既不规范，甚至带来安全隐患等因素。

往往发生拆了又建，建了又拆，很难统筹管理，后期维护困难等问题。

上面的情况一再发生，无论是地方政府还是设计单位、业主等都越来越意识到室外管网合理规划，统一综合设计的重要性和必要性。

而且手工进行综合设计已经难以胜任这样的工作，迫切需要强大的软件进行辅助设计。

目前能进行室外管网综合的软件主要有一些国产软件和AutoDesk公司的Revit系列软件，但是一些国产软件使用繁琐复杂，难以满足设计师的需求，而Revit这样的BIM软件虽然在管线碰撞等方面很有优势，但是对硬件要求高，需要专门培训，使用起来也比较复杂。

因此，开发出真正适合管网综合的程序就显得很有必要。

二、LISP和BIM的简介：LISP（LISt Processor，即列表处理语言），由约翰·麦卡锡在1960年左右创造的一种基于λ演算的函数式编程语言。

可以说Lisp语言抽象复杂却又大道至简，它的主要的特点：1代码量小，2功能全，3易扩展。

AutoLISP是由Autodesk公司开发的一种LISP程序语言，嵌入在AutoCAD 内部，具有智能的特点的编程语言。

通过AutoLISP编程，可以节省工程师很多时间。

AutoLISP程序语言在室外管网综合方面得天独厚的优势。

近几年BIM技术的方兴未艾，室外管网综合的性质决定了它比较适合采用BIM技术。

对LISP中扩展属性的操作在宗地属性录入时的应用

目前很多广泛应用于测绘行业中的软件都是基于入属性很不方便。

如果了解CASS中宗地属性的存储结AtuoCAD平台下开发的软件，而AutoLisp是为扩展和自构，利用VLISP可编译LISP命令，属性的录入和修改工定义CAD功能而设计的编程语言，它起源于20世纪作将会变得简便许多。

以下将介绍在CASS中宗地属性50年代末的Lisp语言。

AutoLisp被引入CAD内部，不仅的存储方式，以及利用LISP操作扩展属性的方法进行宗具备一般高级语言的基本结构和功能，而且还具有强大地属性批量录入和修改的流程。

的图形处理功能，由于AutoLisp易于掌握，因此是CAD用户使用较为广泛的编程语言之一。

近几年全国第二次土地调查和土地所有权、使用权及宅基在CASS中，宗地属性是利用扩展属性进行存储地使用权发证等工作已全面展开，人机交互式的属性录入工作的。

下面是一个显示宗地属性的LISP程序。

特别繁重，通过程序解决这一问题，具有一定的现实意义。

南方CASS地形地藉成图软件是基于AutoCAD平台技术开发的数字化数据采集系统。

它广泛应用于地形成在CASS环境下加载后，键入LOOKK，并选择已有图、地藉成图、工程测量三大领域。

很多测绘工作者在界址线，就会得到如下信息：基础测绘数字化成图和地籍调查时，常用的工作软件为南方CASS软件。

利用其简单快捷的专用工具，可以完成线划图的制作、属性录入等工作。

南方CASS自带宗地属性录入编辑界面：习惯在CAD中缩放移动鼠标的作业员通过界面录其中，以上自“-3”后面的内容即是宗地属性信息，而在CAD中利用LISP对于“-3”后面的扩展属性是可以进行批量赋予和修改的。

CASS中属性存储是采用表的形式存储的，比如宗二、宗地属性的存储一、软件介绍三、属性的存储原则山西省地质测绘院崔剑凌对LISP中扩展属性的操作在宗地属性录入时的应用图1图2图350Copyright©博看网 . All Rights Reserved.首先根据外业调查情况，在CAD底图上圈定宗地界址线，并将调查得到的权利人姓名、宗地编号以及地类类型在底图上按属性对应层标注：地基本属性：(SOUTH (1000 . 300000) (1000 . 530428001005JC00005) (1000 . 白有春) (1000 . 072))SOUTH代表是基本南方属性，下面由四个元素组成：(1000 . 300000)表示南方属性宗地的代码；(1000 . 530428001005JC00005)表示宗地号；(1000 . 白有春)表示宗地权利人；(1000 . 072)表示宗地土地利用类型。

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种类型都可以互相转换，把它们分类的目的是尽量采用函数的通常表达形式，以便于使用。

绘制时，参照曲线的手工绘制方法，需要给出曲线上的多个点，然后将它们连接起来。

若给出的点间隔很小，直接用折线段相连就可很好模拟该曲线，如果间隔较大，可以用样条曲线连接，使之比较光滑。

假设我们计算出足够多的点，简单用折线连接即可，为使该曲线成为一个整体，可用多义线的方式连接。

关键的问题是，如何计算出曲线上点的坐标。

由于曲线的函数表达式各种各样，不可能用统一的式子来表示。

可以考虑从外部输入表达式，然后针对该表达式进行计算，给出相应结果，就能够解决点坐标的计算问题。

标注坐标的lisp程序

标注坐标的lisp程序1、新建一个TXT文本文件，并将下面代码复制进文本内，如下图：2、将该文本文件保存并修改文件名为bzzb.lsp，这里的扩展名一定要改成lsp哦！然后就如下图这样3、在任何版本的AUTOCAD软件内命令行内输入“appload”命令，然后选择该文件进行加载程序，如下图4、程序加载好后，就可以在命令行内输入“bz”命令进行对图中文字注记进行分层显示了。

(defun c:bz();标注坐标(setvar "cmdecho" 0)(command "osnap" "app,end,center")(setq zbd (getpoint "\n请点击要标注坐标的点："))(command "osnap" "off")(setq zbd2 (getpoint "\n请点击伸出的第二个点："))(command "line" zbd zbd2 "")(setq zbd2x (car zbd2))(setq zbd2y (cadr zbd2))(setq zbdx (car zbd))(setq zbdy (cadr zbd))(if (>= zbd2x zbdx)(progn(command "line" zbd2 (list (+ zbd2x 30) zbd2y) "")(command "text" "s" "Standard" "j" "bl" (list (+ zbd2x 1.2) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))(command "text" "s" "Standard" "j" "tl" (list (+ zbd2x 1.2) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3))))(progn(command "line" zbd2 (list (- zbd2x 30) zbd2y) "")(command "text" "s" "Standard" "j" "bl" (list (- zbd2x 28) (+ zbd2y 1)) "2" "0" (strcat "X = " (rtos zbdy 2 3)))(command "text" "s" "Standard" "j" "tl" (list (- zbd2x 28) (- zbd2y 1)) "2" "0" (strcat "Y = " (rtos zbdx 2 3))))))。

城镇勘测定界中运用Visual LISP语言快速制作宗地图

城镇勘测定界中运用Visual LISP语言快速制作宗地图
冯瑞莲;毛卫民;曹树军;朱建军;宋义军
【期刊名称】《科技信息（学术版）》
【年(卷),期】2007(000)015
【摘要】本文介绍了用Visual LISP语言编程在AutoCAD软件环境下快速制作宗地图,自动注记距离、面积、点号,并改线型、缩比例尺,充分运用子程序,减小文件字节,方便操作,提高效率.
【总页数】4页(P441-443,445)
【作者】冯瑞莲;毛卫民;曹树军;朱建军;宋义军
【作者单位】潍坊市勘察测绘研究院;潍坊市勘察测绘研究院;潍坊市勘察测绘研究院;潍坊市勘察测绘研究院;潍坊市勘察测绘研究院
【正文语种】中文
【中图分类】TP3
【相关文献】
1.城镇勘测定界中运用Visual LISP语言快速制作宗地图 [J], 冯瑞莲;毛卫民;曹树军;朱建军;宋义军
2.利用VisualLisp语言实现CAD中轴线任意点的中边桩计算 [J], 张炜;陈俊样;刘新华
3.Visual LISP语言在自动剖面绘制中的应用 [J], 张亚东;姚文杰
4.基于VisualLISP语言快速提取CAD管线信息SWMM建模方法探索 [J], 宁存
鑫;汤钟;李翠萍;耿冰;成志轩
5.Visual Lisp语言在市政工程设计中的运用 [J], 王淮生;黄康
因版权原因，仅展示原文概要，查看原文内容请购买。

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<cm>:")) (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))(if (setq bg_jz (getreal "\n输入基准点标高<100.0>：")) () (setq bg_jz 100.0))(setq pt_jz (getpoint "\n指定基准点："))(setq zb_jz (cadr pt_jz))(d_fh pt_jz bg_jz) ;绘制基准点(while (setq pt_nt (getpoint "\n指定下一点："))(progn(setq zb_nt (cadr pt_nt))(setq bg_nt (+ bg_jz (/ (- zb_nt zb_jz) i_bg)))(d_fh pt_nt bg_nt);绘制标准点))(setvar "dimzin" xs_d)(setvar "dimzin" dim));;测试子程序(defun c:css(/ pt bg)(setq pt (getpoint "\n````"))(setq bg 100.0)(setq jd 2)(setq i_sc 1)(d_fh));;标注标高(defun d_fh(pt bg / pt1)(setvar "osmode" 0)(command "line" (polar pt 0 (* 3.0 i_sc)) (polar pt 0 (* 7.0 i_sc)) "")(command "line" (polar pt 0 (* 5.0 i_sc)) (polar (polar pt 0 (* 5.0 i_sc)) (/ pi 3) (* 3.0 i_sc)) "") (command "line" (polar pt 0 (* 5.0 i_sc)) (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) "")(command "line" (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) (polar (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) 0 (* 12.0 i_sc)) "")(setq pt1 (polar (polar (polar pt 0 (* 5.0 i_sc)) (* 2 (/ pi 3)) (* 3.0 i_sc)) 0 (* 6.0 i_sc))) (command "_.text" "j" "m" (polar pt1 (/ pi 2) (* 1.8 i_sc)) (* 2.5 i_sc) "0" (rtos bg 2 jd)) (setvar "osmode" os))(defun chk_style();检查字型(setq chksty(tblsearch "style" "standa"))(if (null chksty)(progn(command "_style" "standa" "fsdb" "0" "0.7" "0" "n" "n" "n")))(setq chklay(tblsearch "layer" "文本"))(if (null chklay)(command "_layer" "m" "文本" "c" "3" "文本" ""))(setvar "clayer" "文本")(setvar "textstyle" "standa"))(princ "\n--自动写标高程序--hez87")(prin1)。

VB及Lisp在地形图整饰中的应用

二次开发的目的。
域的高程变换因子以进行高程修测（这虽然精度不高，在可研阶段是可以满足要求的）但。
２问题的分析
在上述问题中，些困难导致我们不能利用以一
前的做法：通常我院自行测量的地形图有原始资料
（ｒｏｇ文件）的备份，以无论是转换高程系统还是所
（江苏省电力设计院，江苏南京２１０）１１２
摘
要出于设计需要，时需要对已有地形图进行整饰，中涉及到对大幅面的地形图的高程系统的转换以及有其
●
高程修测，常规的做法已经不能快捷、方便地解决类似问题，本文从ＶＢ和ｌｐ两个方面着手寻求解决这些问题的ｉｓ
的地形图资料，需要做的是将其坐标系统和高程系统转换成设计需要的系统，时还需要对以前的地有
形图进行实测并修正（测）修。这就需要进行不同系统之间的转换，面系统之间的转换利用坐标联平系测量就可以完成，高程转换则是转换高程系而统；修测就是在现场测量的基础上获取图上多个区
点数以万计，利用这种方法已为不宜。因此需要再
在我院的电厂设计或者是变电所设计中，先首
对ＡｕｏＡ进行二次开发，高程注记进行批量ｔＣＤ将修改。ＡｕｏＡ的二次开发工具很多，ｔＣＤＶＢ和Ａｕ — ｔＬｓ言是比较常用而且容易掌握的，面将分ｏｉｐ语下

LISP使用说明

1.TXGX-修正单行文字、多行文字或块属性的小数位。

2.(defun rtos2(number mode n/st gst sn ln cn dn)函数：RTOS函数的增强版，将指定的数字字符串转换为指定小数位的数字字符串；st为要处理的字符串，n为要保留的小数位数。

3.2PLI--显示二维多段线上各顶点的坐标值。

4.3PLI--显示三维多段线上各顶点的三维坐标值。

5.AAPL--该程序主要用于绘制横断面图时计算填挖方面积。

6.(defun aa4p(x1y1x2y2x3y3x4y4/)函数：给定四点计四点确定两直线之间的填挖方面积。

7.PLTR--将二维多段线顶点按相反顺序排列.8.BBG-标注标高9.SY2-拾取一个标高文本和一个点来设置坐标系.10.MBG-制作标高块BG.11.MBX-制作标高块BX.12.MBXY-制作标高块BXY13.GX-更新坐标标注.14.M2T-多行文本转换为单行文本。

15.SY-拾取已标注好的标高块来设置坐标系.16.BBX－标宽度17.BXY—标坐标18.SXY—根据标注好的坐标块设置坐标值。

19.RDTX2--拾取单行文本,多行文本的文本值。

20.GMT--规范化多行文字(command"-style""chbz""isocp.shx,hhztxt.shx""0""0.7""0""N""N")21.GMT2--增强版的规范化文字22.BR1---指定一点将所穿越的实体截断23.BBR----指定两点将所穿越的实体截断.24.BZWB----根据标注文字位置坐标，文字方向及标注文本字符串来进行文本标注25.DMTR----将横断面图中的断面线转换为平面图中的三维点线。

26.EZ—将指定点标高设置为当前标高。

1、下载文档前请自行甄别文档内容的完整性，平台不提供额外的编辑、内容补充、找答案等附加服务。
2、"仅部分预览"的文档,不可在线预览部分如存在完整性等问题,可反馈申请退款(可完整预览的文档不适用该条件!)。
3、如文档侵犯您的权益，请联系客服反馈,我们会尽快为您处理(人工客服工作时间：9:00-18:30)。

（ｉｆ（ｎｏｔｑｄｚｈ）
（ｓｅｔｑｑｄｚｈ０））（ｓｅｔｑｏｂｊｚｘ（ｖｌａｘ — ｅｎａｍｅ－＞ｖｌａ — ｏｂｊｅｃｔｚｈｘ））（ｓｅｔｑｏｂｊｚｄ（ｖｌａｘ・ｅｎａｍｅ一＞ｖｌａ — ｏｂｊｅｃｔｚｄｘ））
是简化的桩号（例如Ｋ０＋２２０要标注完整的Ｋ０＋２００，而不是纬地里简化的＋２００），这样也便于在实际征地放样中快速的找到所需的位置。而这个要求是纬地无能为力的。
（ｓｅｔｑｑｄｚｈ（ｇｅｔｒｅａｌ ” ＼ｎ输入路线起点桩号＜Ｏ＞： ” ））
２本程序的由来和构思
基于纬地的弊端和业主的要求，我们考虑能不能使用ＬＩＳＰ扩展程序一次性解决以上的问题，能不能使生成好的标注不需要进行再次的加工（譬如：更改字体，更改图层，更新标注内容等等），这就是本程序的由来。那么，有了编制这个程序的想法，就
ｄａｓｈｅｄＨＨ、、ｔｃｏｍｍａｎｄｓｔｙｌｅ｜ｚｄｂｚｒｏｍａｎｓＨ “ 『ｏ．７１ “ １５ｆ、
那就涉及成千上万的点位需要重新标注，再使用纬地自身的标注
方法显然不太现实。
（ｓｅｔｑｓｈｕｍ（ｉｆｘ（ｖｌａｘ－ｃｕｒｖｅ・ｇｅｔＥｎｄＰａｒａｍｏｂｊｚｄ）））（ｓｅｔｑＮＸＳ（ｖｌａｘ－ｃｕｒｖｅ・ｇｅｔＳｔａｒｔＰｏｉｎｔｏｂｊｚｘ））（ｓｅｔｑｎｑｄ（ｖｌａｘ－ｃｕｒｖｅ — ｇｅｔＳｔａｒｔＰｏｉｎｔｏｂｊｚｄ））（ｓｅｔｑＪＩＳＨＵ０）（ｒｅｐｅａｔｓｂｕｍ
第４ｌ卷第２ｌ期２０１５年７月
山西建筑
ＳＨＡＮＸＩＡＲＣＨＩＴＥＣＴＵＲＥ
Ｖｏ１．４ｌＮｏ．２１
Ｊｕ１．２０１５
・２５５・
・
计算机技术及应用
・
文章编号：１００９．６８２５（２０１５）２１ — ０２５５ — ０３
需要好好构思这个程序的组织结构使其能准确无误的实现目标
要求。最终定下的实现方法为：１）把生成的道路中线连成一个整
体的多段线。２）使用一个主程序，提供用户选择道路中线，要标注的征地线和输入路线起点桩号的接口。３）为了应付特殊情况，
（ｓｅｔｑｚｈｘ（ｃａｌ＂（ｅｎｔｓｅｌ ” ＼ｎ选择路线中线： ” ）））
（ｓｅｔｑｚｄｘ（ｃａｒ（ｅｎｔｓｅｌ ” 、ｎ选择要标注的征地线： ” ）））
而且，现在业主一般要求每个点位要标注完整的桩号，而不
（ｓｅｔｖａｒ” ｄｉｍｚｉｎ＂０）
修改更改后点的位置坐标，在纬地中通常先使用工具一＞点到曲
线的命令求出该点的桩号和距离，然后手动更改原来的标注值。当只有极少数点需重新标注时，这种方法也不算太过浪费时间。
杂征地图标注的方法，以满足现在征地图出图工作精益求精的要求。关键词：ＬＩＳＰ语言，征地图，程序，模式中图分类号：ＴＰ３１９文献标识码：Ａ
（ｃｏｍｍａｎｄ” ｕｎｄｏ ”” ｂｅ ” ）
１使用纬地本身的标注方法的弊端
在使用纬地生成征地线的时候，随征地线同时生成的征地线点位标注仅能反映当前征地线的点位坐标，那么当征地线修改的时候，这个标注已经不能反映更改后的征地线的实际位置了。要
（ｓｅｔｑｏｓｍｏｄｅ（ｇｅｔｖａｒ ” ｏｓｍｏｄｅ ” ））（ｓｅｔｑｄｉｍｚｉｎ（ｇｅｔｖａｒ ” ｄｉｍｚｉｎ ” ））
但是，现在的征地图通常需要从项目起点到项目终点全线微调，
（ｓｅｔｖａｒｏｓｍｏｄｅＯ）（ｖｌ — ｌｏａｄ — ｃｏｍ）（ｉｆ（ｎｏｔ（ｔｂｌｓｅａｒｃｈｑｔｙｐｅ ” Ｍａｓｈｅｄ ” ））（ｃｏｍｍａｎｄ” －ｌｉｎｅｔｙｐｅ＂ｑｏａｄ ” ”
复杂征地图标注使用ＬＩＳＰ语言实现的方法
刘存桂摘唐 Nhomakorabea勇
２３００８８）
（安徽省交通规划设计研究总院股份有限公司，安徽合肥
要：分析了使用纬地本身的征地图标注方法的弊端，阐述了ＬＩＳＰ程序的由来和构思，主要研究了使用ＬＩＳＰ扩展程序实现复