Qin 的博客

注册测绘师、高级工程师 blog.cehuis.com

AutoLISP-快速更正等高线高程

密瓦IX标县道工程共11公里余。目前获得前期带状地形图为多幅拼接,DWG格式。图中等高线属性标高与等高线值不相符合,经检查,每幅图中在出图时将所有等高线作了升高或降低处理。但在同一幅图内,差值是常数。前几日在处理第一段时手工操作,费时费力,且容易出错。在生成曲面时才发现有极个别很小的等高线未更正,...

2019-07-31 16:06:29

阅读数 78

评论数 0

AutoLisp编程笔记——选择集方法集锦

(setq ss (ssget '((0 . "insert")))) ;提交交互选择 (setq ss (ssget "X" '((0 . "insert") (8 . "GCD")))) ;加"X&quo...

2019-07-13 08:24:47

阅读数 26

评论数 0

AutoLisp编程笔记

1、选择实体并提取指定数据如坐标 在下列代码块中: (defun C:CASS2POINT () ; (setq ss (ssget "X" '((0 . "insert") (8 . "GCD")))) (setq ss (ssg...

2019-07-13 08:17:55

阅读数 59

评论数 0

AutoCAD中删除封闭多义线区域外(内)的点

在AutoCAD中用多义线绘制一封闭区域,用以下扩展命令将对应的地形数据文件(.dat)中该区域外(稍加修改可变为区域内)的点删除。后续将改进为只对图面点进行处理。 (defun C:zzQydx (/ ptName ptSign ptE ptN ptH ptCount filename1 f...

2019-06-10 17:15:26

阅读数 146

评论数 0

AutoCAD实体添加和读取扩展信息的AutoLISP函数

这是以前编写断面绘图程序时写的两个函数,一是给AutoCAD实体(可见对象)添加扩展信息的代码,另一个是从实体读取扩展信息的代码。本意是用此程序绘出的断面线在绘图时将该横断面的参数以扩展信息添加到多义线上,后续处理时可判断断面线是否是程序所绘并从断面线上提取断面线所在横断面的参数,如断面基准点坐标...

2019-06-10 17:05:02

阅读数 107

评论数 0

AutoLISP笔记——常用代码片断

1、字符串按指定分隔符分隔 ;;;功能:字符串按指定分隔符分隔 ;;;(split "1,,255280.791,3743764.732,2786.206" ",") ;;;返回:("1" "" "255...

2019-06-06 14:43:40

阅读数 67

评论数 0

判断点是否在多边形区域内的AutoLISP程序

本代码根据网上某网友代码稍作修改,版权归原作者所有^_^! (defun pt_inorout (regionObj pt / pt_list e1 pt n i j va va_count) (setq pt_list (mapcar 'cdr (vl-remove-if ...

2019-06-05 17:19:46

阅读数 89

评论数 0

工程测量内业中提取横断面线折点坐标数据并写入文件

在工程测量内业处理中,有时需将横断面线数据提取出来,横断面线关键点是以“偏轴距,高程”二维形式提取,使用时选择一条横断面线(多义线),指定横断面的基准点(通常是一个特别的交叉点及其在横断面中的坐标,一般选择断面轴线与某一已高程的点),程序将把断面线(多义线)的折点坐标逐点计算出对应于横断面的平面坐...

2019-06-05 17:14:03

阅读数 129

评论数 1

点抽稀AutoLISP程序

(defun C:dcx (/ ptE ptN ptH ptName ptSign tmpSign rIndex rIndex2) (setq ptSign nil ptE nil ptN nil ptName nil tmpSign nil rIndex nil rIndex2 ...

2019-06-05 17:03:50

阅读数 70

评论数 0

AutoLisp——选择对象函数ssget用法

语法: (ssget [sel-method] [pt1 [pt2]] [pt-list] [filter-list]) ssget 的参数均为可选参数,需要注意的是可选参数之间的组合条件。 以下语法表示中 尖括号代表必选,[parameter] 方括号代表可选。 一、选择集的窗口参数 [s...

2019-06-03 16:06:59

阅读数 486

评论数 0

AutoCAD Civil 3D中将CASS地形图中地形点转换成CAD点实体

使用AutoCAD Civil 3D打开CASS生成的地形图,由于CASS地形图中的地形点是以块形式存在的,虽然我们可以使用CAD的图元对象中的块进行曲面定义,但这样做的结果就是虽有曲面但没有对应的地形点。我们需要将块状地形点转换成CAD的点对象,再在AutoCAD Civil 3D里根据CAD点...

2019-06-02 16:36:46

阅读数 246

评论数 0

Auto Lisp代码片断-读取CASS测量地形数据文件生成表

功能:读取CASS格式测量地形数据文件生成Lisp表用于后续处理。 (defun C:readDatFile (/ ptName ptSign ptE ptN ptH) (setq fi "F:\\lisp\\datfile.dat") (setq f (open fi...

2019-06-02 14:34:38

阅读数 45

评论数 0

Auto\Visual LISP代码片断

Auto\Visual LISP代码片断-创建对象创建直线对象创建多义线对象生成指定宽度的多义线创建文本对象创建点实体创建居中文本创建图层创建图层创建文本样式创建文本样式(注释性) 创建直线对象 ;用法:(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名) (defun EntM...

2019-06-02 11:15:47

阅读数 52

评论数 0

Visual Lisp代码片断:生成文本对象

;用法:(EntMakeText 点X 点Y 文本内容 文本高度 颜色 层名) (defun EntMakeText (px py str tHeight styleName layerName / pt) (setq pt (list px py)) (entmakeX (lis...

2018-05-20 17:20:09

阅读数 141

评论数 0

Visual Lisp代码片断:生成直线对象

;用法:(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名) (defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2) (setq p1 (list xa ya) p2 (list xb yb)) (...

2018-05-20 17:18:03

阅读数 105

评论数 0

提示
确定要删除当前文章?
取消 删除