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

板混少年

已于 2022-10-24 10:53:52 修改

阅读量2.1k

点赞数

分类专栏： CAD LISP 文章标签： 1024程序员节

于 2022-10-24 10:52:45 首次发布

本文链接：https://blog.csdn.net/jeackem/article/details/127487894

版权

本文介绍了在测绘工作中，如何使用南方Cass和CAD软件有效地删除居民地(JMD)房屋内的高程点(GCD)，提升测绘效率和数据准确性。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(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)