(setq ff (open (getfiled "请选择要展点的数据文件" "" "txt" 2) "r")
fhb nil t0 (getvar "cdate")
cm (getvar "cmdecho") os (getvar "osmode")
tcm1 "族乱高程注记" tcm2 "点记"
)
(setvar "cmdecho" 0)(setvar "osmode" 0)
(if (= (tblsearch "layer" tcm1) nil) (command "layer" "n" tcm1 ""))
(if (= (tblsearch "layer" tcm2) nil) (command "layer" "n" tcm2 ""))
(while (setq zb (read-line ff))
(while (vl-string-search "," zb) (setq zb (vl-string-subst " " "," zb)))
(setq zb (read (strcat "(" zb ")"))
zb (list (list (nth 2 zb) (nth 1 zb)) (vl-princ-to-string (last zb)))注记高程
zb (list (list (nth 2 zb) (nth 1 zb)) (vl-princ-to-string (car zb)))提示:注记点号请用该行
fhb (append fhb (list zb))
)
)
(setq t1 (getvar "cdate"))
(close ff)
(setq zb (vl-sort fhb '(lambda (e1 e2) (<(car (car e1)) (car (car e2)))))
x0 (car (car (car zb))) x1 (car (car (last zb)))
zb (vl-sort fhb '(lambda (e1 e2) (<(cadr (car e1)) (cadr (car e2)))))
y0 (cadr (car (car zb))) y1 (cadr (car (last zb)))
)
(command "zoom" "w" (list x0 y0) (list x1 y1))
(setq t2 (getvar "cdate"))
(foreach zb fhb
(setq zfc (last zb)
pt (mapcar '漏做+ (car zb) '(1.5 -1.25))这行改为如下
pt (car zb)
)
(entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText")
'(62 . 1) '(40 . 2.5) '(50 . 0.0)
(cons 8 tcm1) (cons 1 zfc) (cons 10 pt)这行改为如下
(cons 8 tcm1) (cons 1 zfc) (cons 10 (mapcar '+ pt '(1.5 -1.25))) )
)
(entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(100 . "AcDbPoint")
'(62 . 2)
(cons 8 tcm2) (cons 10 pt)
)
)
)
(setq t3 (getvar "cdate")
dt1 (* 1000000 (- t1 t0))
dt2 (* 1000000 (- t3 t2))
)
(princ (strcat "读入数据共耗时:" (rtos dt1 2 3)
"秒 展点共耗时" (rtos dt2 2 3) "秒"
"展点数:" (itoa (length fhb))
"个 每展一点耗:"
(rtos (/ dt2 (length fhb)) 2 10) "秒"
)
)
(setvar "cmdecho" cm)(setvar "osmode" os)(princ)
)结束在CAD 中 点工具 --加载应用程序---zd11.lsp 文件--加载提示成功后 退出在命令行 输入 KSZD 回车 提示 加载 TXT文本文件格式要求 逗号间隔1列为 1 2 3 。。。序号2列为X 坐标 3列为 y坐标4列为 文字 不得有其他内容,文字点无高程,序号从1 2 3 开始
具体如下:1“开始”菜单--所有程序--cass成图系统--南方cass7.1成图系统,打开cass7.1软件。
2进入cass7.1系统后,“绘图处理”菜单--“展野外测点点号”。
3.在d出的对话框中,选择dgx.dat文件,打开即可。
4.展出的是野外测点的点号,内业成桥行雀图一般根据野外测点点号进行连线成图。
5.野外地形地貌线连接好后,希望查看高程,但又不压盖点号,这时就需要切换展点注记命令了。
注意观察:南方cass默认的成图图层是0层,而展野外测点点号是展在ZDH图层。
6.绘图处理”菜单--“切换展点注记”。
7.在“切换展点注记”对话框中根据需要进行选择,然后单击确定按钮。
8.图中注记已经被切换为高程点注记,以前的测带贺点点号不见了。
仔敏早细观察切换展点注记都是在ZDH图层进行的。
专门有这方面的程序:将横断面测量坐标转换为平距和高差程序,此程序特点是外业测量横断面点时可以任意测量,只要不漏断面点就行了,无需严格考虑每个断面点的测量顺序,以减少外业测量的麻烦。外业测量完成后,将测量的断面点坐标用展点程序(ZD)展绘到cad图中,再用tqdm和dmpj程序即可快速转换出每个横断面的平距和高差数据格式,常用于一些软件用平距和高差数据斗备来绘制横断面图。分别介绍如下:
1、展点号程序(ZD),适用各种数据格式进行cad展点。演示如下:
2、用“图内按顺序提取每个断面坐标程序(TQDM)”,按顺序依次提取每个横断面坐标数据。增加对已处理的断面点改变颜色,以区分哪些处理哪些没处理。演示如下:
3、笑销激将TQDM提取的断面坐标数据转换成平距和高差程序(DMPJ),有6种数据格碰袜式可以选择,以满足不同客户的要求。演示如下:
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)