仿CASS坐标展点
本帖最后由 陈伟 于 2024-7-19 09:34 编辑命令：ZD
展点后是属性块，如图
现在两个文件配合着用，一个展点高程，一个展点编号；用图框比例这个文件调整属性块的及文字大小
注意：VLX程序XY坐标反着的，源码坐标正确。测绘数据文件后缀名自行改成DAT格式后再做测试
本帖最后由 陈伟 于 2024-8-2 00:05 编辑
cuidewei 发表于 2024-7-30 19:42
展点只能出来高程，没有点名
原帖地址：http://bbs.mjtd.com/forum.php?mo ... hlight=%D5%B9%B5%E3
根据原帖内容做了细微调整；包含属性块高程及点号，可设置比例及高程小数点位数，速度慢点；
能不能将它们二合一，展点后为一个属性块，高程点右侧上方、点号在点右侧下方，一次可以看清高程及点号 坐标展点高程为0，能不能修改一下 (DEFUN PARSE2 (STR DELIM / LST POS)
(while (and (setq POS (VL-STRING-SEARCH DELIM STR)))
(setq LST (APPEND LST (LIST (SUBSTR STR 1 POS))))
(setq STR (SUBSTR STR (+ 2 POS)))
)
(if (> (STRLEN STR) 0)
(PROGN (APPEND LST (LIST STR)))
(PROGN LST)
)
)
; 定义一个新函数get-last-three，用于获取列表中的最后三个元素
(defun get-last-three (lst / len)
(setq len (length lst)) ; 获取列表的长度
(if (<= len 3) ; 如果列表长度小于或等于3
lst ; 直接返回列表
(progn ; 否则执行以下步骤
(repeat (- len 3) ; 重复执行，直到列表只剩下三个元素
(setq lst (cdr lst)) ; 移除列表的第一个元素
)
lst ; 返回最后三个元素
)
)
)
(defun c:TT2 ()
(setq S "Pt1,1,2,3,4,609036.512,2730628.308,1463.504")
; 使用get-last-three函数获取最后三个坐标值
;(setq P (get-last-three (PARSE2 S ",")))
; 使用PARSE2函数解析字符串S
(setq P (PARSE2 S ","))
(print P)
; 使用get-last-three函数获取最后三个坐标值
(setq P (get-last-three P))
) (defun slice-list (lst start end / len sliced result i); 定义一个函数，用于切片列表
(setq len (length lst)) ; 获取列表长度
(setq sliced nil) ; 初始化切片列表
(setq result nil) ; 初始化结果列表
; 处理负索引和 end 为 nil 的情况
(if (< start 0); 如果开始索引为负数，转换为正索引
(setq start (+ len start))
)
(if (null end); 如果结束索引为 nil，设置为列表长度
(setq end len)
)
(if (< end 0); 如果结束索引为负数，转换为正索引
(setq end (+ len end))
)
(if (and (listp lst) (numberp start) (numberp end) (<= start end)); 检查参数类型和范围
(progn; 如果参数有效，则进行切片操作
(setq sliced lst) ; 复制原列表到切片列表
(setq i 0) ; 初始化计数器
(repeat start; 使用 repeat 和 cdr 模仿 nthcdr 功能
(setq sliced (cdr sliced)) ; 逐步缩减切片列表以模拟 nthcdr
)
(setq i start) ; 设置 i 为开始索引
(while (and sliced (> end i)); 遍历列表并构建切片
(setq result (cons (car sliced) result)) ; 将当前元素添加到结果列表
(setq sliced (cdr sliced)) ; 指向下一个元素
(setq i (+ i 1)) ; 更新计数器
)
(reverse result) ; 反转结果列表以保持原始顺序
)
(alert "Invalid arguments for slicing.") ; 参数无效时的警告
)
)
(defun c:ttt (); 定义名为 "ttt" 的命令程序
(setq mylist '(1 2 3 4 5 6 7 8 9)) ; 初始化一个列表
; 获取前三个元素
(setq first-three (slice-list mylist 0 3))
(princ first-three) ; 输出前三个元素
; 获取最后三个元素,支持负索引
(setq last-three (slice-list mylist -3 nil))
(princ last-three) ; 输出最后三个元素
; 获取中间三个元素,第2个元素 (索引为1) 到第5个元素 (索引为4)
(setq middle-three (slice-list mylist 1 4))
(princ middle-three) ; 输出中间三个元素
) 版权归原作者所有，增加了切片功能，可以轻松定位dat里面的xyz。 显示完成，但是图纸上没有东西~~~ 本帖最后由 cuidewei 于 2024-7-30 19:44 编辑
moshouhot 发表于 2024-5-20 23:46
版权归原作者所有，增加了切片功能，可以轻松定位dat里面的xyz。
展点只能出来高程，没有点名 试试这个。。。。。。。。。。。。。。。。。。
页:
[1]