仿CASS坐标展点

陈伟

命令：ZD



展点后是属性块，如图

现在两个文件配合着用，一个展点高程，一个展点编号；用图框比例这个文件调整属性块的及文字大小


注意：VLX程序XY坐标反着的，源码坐标正确。测绘数据文件后缀名自行改成DAT格式后再做测试

陈伟

cuidewei 发表于 2024-7-30 19:42
展点只能出来高程，没有点名

原帖地址：http://bbs.mjtd.com/forum.php?mo ... hlight=%D5%B9%B5%E3
根据原帖内容做了细微调整；包含属性块高程及点号，可设置比例及高程小数点位数，速度慢点；

yshf

能不能将它们二合一，展点后为一个属性块，高程点右侧上方、点号在点右侧下方，一次可以看清高程及点号

leedun

坐标展点高程为0，能不能修改一下

moshouhot

2. (DEFUN PARSE2 (STR DELIM / LST POS)
   
3.   (while (and (setq POS (VL-STRING-SEARCH DELIM STR)))
   
4.     (setq LST (APPEND LST (LIST (SUBSTR STR 1 POS))))
   
5.     (setq STR (SUBSTR STR (+ 2 POS)))
   
6.   )
   
7.   (if (> (STRLEN STR) 0)
   
8.                 (PROGN (APPEND LST (LIST STR)))
   
9.     (PROGN LST)
   
10.   )
    
11. )
    
12. 
    
13. 
    
14. ; 定义一个新函数get-last-three，用于获取列表中的最后三个元素
    
15. (defun get-last-three (lst / len)
    
16.   (setq len (length lst)) ; 获取列表的长度
    
17.   (if (<= len 3) ; 如果列表长度小于或等于3
    
18.     lst ; 直接返回列表
    
19.     (progn ; 否则执行以下步骤
    
20.       (repeat (- len 3) ; 重复执行，直到列表只剩下三个元素
    
21.         (setq lst (cdr lst)) ; 移除列表的第一个元素
    
22.       )
    
23.       lst ; 返回最后三个元素
    
24.     )
    
25.   )
    
26. )
    
27. 
    
28. 
    
29. (defun c:TT2 ()
    
30.         (setq S "Pt1,1,2,3,4,609036.512,2730628.308,1463.504")
    
31.         ; 使用get-last-three函数获取最后三个坐标值
    
32.         ;(setq P (get-last-three (PARSE2 S ",")))
    
33.        
    
34.        
    
35.         ; 使用PARSE2函数解析字符串S
    
36.         (setq P (PARSE2 S ","))
    
37.         (print P)
    
38.         ; 使用get-last-three函数获取最后三个坐标值
    
39.         (setq P (get-last-three P))
    
40.        
    
41. )

(DEFUN PARSE2 (STR DELIM / LST POS)<br />   (while (and (setq POS (VL-STRING-SEARCH DELIM STR)))<br />     (setq LST (APPEND LST (LIST (SUBSTR STR 1 POS))))<br />     (setq STR (SUBSTR STR (+ 2 POS)))<br />   )<br />   (if (> (STRLEN STR) 0)<br />                 (PROGN (APPEND LST (LIST STR)))<br />     (PROGN LST)<br />   )<br /> )<br /> <br /> <br /> ; 定义一个新函数get-last-three，用于获取列表中的最后三个元素<br /> (defun get-last-three (lst / len)<br />   (setq len (length lst)) ; 获取列表的长度<br />   (if (<= len 3) ; 如果列表长度小于或等于3<br />     lst ; 直接返回列表<br />     (progn ; 否则执行以下步骤<br />       (repeat (- len 3) ; 重复执行，直到列表只剩下三个元素<br />         (setq lst (cdr lst)) ; 移除列表的第一个元素<br />       )<br />       lst ; 返回最后三个元素<br />     )<br />   )<br /> )<br /> <br /> <br /> (defun c:TT2 ()<br />         (setq S "Pt1,1,2,3,4,609036.512,2730628.308,1463.504")<br />         ; 使用get-last-three函数获取最后三个坐标值<br />         ;(setq P (get-last-three (PARSE2 S ",")))<br />         <br />         <br />         ; 使用PARSE2函数解析字符串S<br />         (setq P (PARSE2 S ","))<br />         (print P)<br />         ; 使用get-last-three函数获取最后三个坐标值<br />         (setq P (get-last-three P))<br />         <br /> )

moshouhot

1. (defun slice-list (lst start end / len sliced result i)  ; 定义一个函数，用于切片列表
   
2.   (setq len (length lst)) ; 获取列表长度
   
3.   (setq sliced nil) ; 初始化切片列表
   
4.   (setq result nil) ; 初始化结果列表
   
5.   ; 处理负索引和 end 为 nil 的情况
   
6.   (if (< start 0)  ; 如果开始索引为负数，转换为正索引
   
7.     (setq start (+ len start))
   
8.   )
   
9. 
   
10.   (if (null end)  ; 如果结束索引为 nil，设置为列表长度
    
11.     (setq end len)
    
12.   )
    
13.   (if (< end 0)  ; 如果结束索引为负数，转换为正索引
    
14.     (setq end (+ len end))
    
15.   )
    
16.   (if (and (listp lst) (numberp start) (numberp end) (<= start end))  ; 检查参数类型和范围
    
17.     (progn  ; 如果参数有效，则进行切片操作
    
18.       (setq sliced lst) ; 复制原列表到切片列表
    
19.       (setq i 0) ; 初始化计数器
    
20.       (repeat start  ; 使用 repeat 和 cdr 模仿 nthcdr 功能
    
21.         (setq sliced (cdr sliced)) ; 逐步缩减切片列表以模拟 nthcdr
    
22.       )
    
23.       (setq i start) ; 设置 i 为开始索引
    
24.       (while (and sliced (> end i))  ; 遍历列表并构建切片
    
25.         (setq result (cons (car sliced) result)) ; 将当前元素添加到结果列表
    
26.         (setq sliced (cdr sliced)) ; 指向下一个元素
    
27.         (setq i (+ i 1)) ; 更新计数器
    
28.       )
    
29.       (reverse result) ; 反转结果列表以保持原始顺序
    
30.     )
    
31.     (alert "Invalid arguments for slicing.") ; 参数无效时的警告
    
32.   )
    
33. )
    
34. (defun c:ttt ()  ; 定义名为 "ttt" 的命令程序
    
35.   (setq mylist '(1 2 3 4 5 6 7 8 9)) ; 初始化一个列表
    
36.   ; 获取前三个元素
    
37.   (setq first-three (slice-list mylist 0 3))
    
38.   (princ first-three) ; 输出前三个元素
    
39.   ; 获取最后三个元素,支持负索引
    
40.   (setq last-three (slice-list mylist -3 nil))
    
41.   (princ last-three) ; 输出最后三个元素
    
42.   ; 获取中间三个元素,第2个元素 (索引为1) 到第5个元素 (索引为4)
    
43.   (setq middle-three (slice-list mylist 1 4))
    
44.   (princ middle-three) ; 输出中间三个元素
    
45. )

(defun slice-list (lst start end / len sliced result i)  ; 定义一个函数，用于切片列表<br />   (setq len (length lst)) ; 获取列表长度<br />   (setq sliced nil) ; 初始化切片列表<br />   (setq result nil) ; 初始化结果列表<br />   ; 处理负索引和 end 为 nil 的情况<br />   (if (< start 0)  ; 如果开始索引为负数，转换为正索引<br />     (setq start (+ len start))<br />   )<br /> <br />   (if (null end)  ; 如果结束索引为 nil，设置为列表长度<br />     (setq end len)<br />   )<br />   (if (< end 0)  ; 如果结束索引为负数，转换为正索引<br />     (setq end (+ len end))<br />   )<br />   (if (and (listp lst) (numberp start) (numberp end) (<= start end))  ; 检查参数类型和范围<br />     (progn  ; 如果参数有效，则进行切片操作<br />       (setq sliced lst) ; 复制原列表到切片列表<br />       (setq i 0) ; 初始化计数器<br />       (repeat start  ; 使用 repeat 和 cdr 模仿 nthcdr 功能<br />         (setq sliced (cdr sliced)) ; 逐步缩减切片列表以模拟 nthcdr<br />       )<br />       (setq i start) ; 设置 i 为开始索引<br />       (while (and sliced (> end i))  ; 遍历列表并构建切片<br />         (setq result (cons (car sliced) result)) ; 将当前元素添加到结果列表<br />         (setq sliced (cdr sliced)) ; 指向下一个元素<br />         (setq i (+ i 1)) ; 更新计数器<br />       )<br />       (reverse result) ; 反转结果列表以保持原始顺序<br />     )<br />     (alert "Invalid arguments for slicing.") ; 参数无效时的警告<br />   )<br /> )<br /> (defun c:ttt ()  ; 定义名为 "ttt" 的命令程序<br />   (setq mylist '(1 2 3 4 5 6 7 8 9)) ; 初始化一个列表<br />   ; 获取前三个元素<br />   (setq first-three (slice-list mylist 0 3)) <br />   (princ first-three) ; 输出前三个元素<br />   ; 获取最后三个元素,支持负索引<br />   (setq last-three (slice-list mylist -3 nil)) <br />   (princ last-three) ; 输出最后三个元素<br />   ; 获取中间三个元素,第2个元素 (索引为1) 到第5个元素 (索引为4)<br />   (setq middle-three (slice-list mylist 1 4)) <br />   (princ middle-three) ; 输出中间三个元素<br /> )

moshouhot

版权归原作者所有，增加了切片功能，可以轻松定位dat里面的xyz。

被风吹走的灰尘

显示完成，但是图纸上没有东西~~~

cuidewei

moshouhot 发表于 2024-5-20 23:46
版权归原作者所有，增加了切片功能，可以轻松定位dat里面的xyz。

展点只能出来高程，没有点名

cjf160204

试试这个。。。。。。。。。。。。。。。。。。