测绘南方Cass，CAD删除居民地(JMD)房屋内高程点 (GCD)

(vl-load-com)
(alert "SW温馨提示，代码命令为：SCGC")
(defun LC:WH-vxs1 (e / i v lst)(setq i -1)(while(setq v (vlax-curve-getpointatparam e (setq i (1+ i))))(setq lst (cons v lst)))(LC:lst-dist-filter (reverse lst) 0.0)
)
(defun LC:lst-dist-filter (lst d / p1 p2 p3 nlst )(while lst(setq p1 (car lst)lst (cdr lst)nlst (cons p1 nlst)p2 (mapcar '- p1 (list d d))p3 (mapcar '+ p1 (list d d))lst (vl-remove-if '(lambda(x)(and (vl-every '>= p3 x p2)(<= (distance x p1) d)))                             lst)))nlst
)
(defun xyp-9Pt (ename site / MinPT MaxPT p1 p9 p5 p3 p7 p2 p4 p6 p8)(defun mid (p1 p2)(mapcar '(lambda (x) (* x 0.5)) (mapcar '+ p1 p2)))(setq ename (cond ((= (type ename) 'ENAME) (vlax-ename->vla-object ename))((= (type ename) 'VLA-OBJECT) ename)))(vla-getboundingbox ename 'MinPT 'MaxPT)(setq p1 (vlax-safearray->list MinPT)p9 (vlax-safearray->list MaxPT)p5 (mid p1 p9)p3 (if (< (car p9) (car p1))(list (car p1) (cadr p9) (caddr p1))(list (car p9) (cadr p1) (caddr p1)))p7 (if (< (car p9) (car p1))(list (car p9) (cadr p1) (caddr p9))(list (car p1) (cadr p9) (caddr p9)))p2 (mid p1 p3)p4 (mid p1 p7)p6 (mid p3 p9)p8 (mid p7 p9))(nth (- site 1) (list p1 p2 p3 p4 p5 p6 p7 p8 p9))
)
(defun c:SCGC (/ TEXTHEIGH JMDLST EN0 EN1 LAY SS UK I FWXEN PT PTS S1 EN11 STR1 S2 EN22 STR2 STR XBM TXTBM XDATA XDATA1 XDATA2)(setq en0 (car (entsel "\n 请点选一个范围线：")))(setq en1 (car (entsel "\n 请点选一个高程点文字："))) (setq ss (ssget (list (cons 0 "LWPOLYLINE") (cons 8 (cdr (assoc 8 (entget en0)))) (cons -4 "<or") (cons 70 1) (cons 70 129) (cons -4 "or>"))))(setq i -1)(while (setq fwxen (ssname ss (setq i (1+ i))))       (vla-zoomwindow (vlax-get-acad-object) (vlax-3D-point (polar (xyp-9Pt fwxen 1) pi 10)) (vlax-3D-point (polar (xyp-9Pt fwxen 9) 0 10)))      (setq pts nil)(setq pts (LC:WH-vxs1 fwxen) pts (append pts (list (car pts))))(setq s1 (ssget "CP" pts (list (cons 0 (cdr (assoc 0 (entget en1))))  (cons 8 (cdr (assoc 8 (entget en1)))))))(if s1(command "erase" s1 "")))(princ)
)

测绘南方Cass，CAD删除居民地(JMD)房屋内高程点 (GCD)相关推荐

cass参考手册_什么？你还不会测绘?南方CASS教程+视频讲解+插件汇总，快来学！...
自南方CASS软件推出以来,市场占有率遥遥领先,已经成为业内应用最广.使用最方便快捷的软件品牌,也是用户量最大.升级最快.服务最好的主流成图和土石方计算软件系统.但对于想学好测绘的朋友来说,如何快速上 ...
CAD二次开发--如何获取图面“组”对象及其内部实体（以南方CASS居民地-房屋为例）
今天遇到的开发需求中有个小项就是将图面标准房屋实体及其结构.楼层等信息识别并筛选出来.乍一看没难度啊!可初次尝试发现却无法获取.仔细一看原来南方cass将居民地的房屋及其附属统一用组进行规范了,这样的 ...
对测绘软件南方CASS的使用感想
作为一名大三测绘学生,在平常的日常实习与学习中,有接触到一种软件叫做南方Cass,它是结合了autocad和全站仪的点位展开等方法, 南方CASS特点: 1.操作简单,功能丰富: 2.特殊地物批量处理 ...
cad文字提取到excel_干货！南方CASS设计土石方方格网点上提取高程方法
想把CASS土方方格网上的设计高程批量导出(主要是横坡不是固定的坡比,且面积很大). 网上的插件难找,要不就是另装一个软件,但是只为了导一次数据,装软件太麻烦了. 其实,我们可以换一个思路.设计高程标 ...
CaSS中lisp命令不可用_小白想要自学南方cass?又苦于不会修改比例尺，这里有一份小白快速上手的测绘神器...
小白想要自学南方cass?又苦于不会修改比例尺,这里有一份小白快速上手的测绘神器自CASS软件推出以来,市场占有率遥遥领先,已经成为业内应用最广.使用最方便快捷的软件品牌.也是用户量最大.升级最快. ...
60度斜坡怎么计算_【测绘】南方CASS土方计算方法—方格网法
01 概述在我们的日常工作中,遇到大量的土方修正算的相关咨询,为什么CASS的方格网土方修正算,方格设定为10米和20米,修正算结果有很大差异呢?从软件计算原理.数据质量等方面进行分析,读了这篇文章 ...
cass地籍参数设置命令_想成为一名厉害的测绘员？南方Cass教程+插件+课件不可少！...
想成为一名厉害的测绘员?南方Cass教程+插件+课件不可少! 南方Cass绝对是测绘人的工作神器,强大的测绘功能,精准的计算无一不受广大测绘人的好评.自推出上线以来已经占据了我国绝大部分的测绘市场,但 ...
cass读取dat文件_南方CASS教程+视频讲解+插件汇总，小白快速上手的测绘神器
南方CASS教程+视频讲解+插件汇总,小白快速上手的测绘神器自CASS软件推出以来,市场占有率遥遥领先,已经成为业内应用最广.使用最方便快捷的软件品牌.也是用户量最大.升级最快.服务最好的主流成图和 ...
双击CAD图标后进入南方Cass界面的解决方法
安装完AutoCAD后装南方Cass,双击桌面上CAD图标默认的是加载南方Cass系统环境的,这样可以方便很多,所以下面来告诉大家CAD怎么双击进入Cass界面步骤一: 右键单击桌面上的" ...

测绘南方Cass，CAD删除居民地(JMD)房屋内高程点 (GCD)

测绘南方Cass，CAD删除居民地(JMD)房屋内高程点 (GCD)相关推荐

最新文章

热门文章