在excel表中的xyz数据怎么展到cad图中????如果展到图上该怎么标注?????

在excel表中的xyz数据怎么展到cad图中????如果展到图上该怎么标注?????,第1张

可以兆搜档用 软件 加载脚本如下 zd11.lsp 文件:(defun c:kszd()

(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种数据格碰袜式可以选择,以满足不同客户的要求。演示如下:


欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/yw/12296540.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2023-05-24
下一篇 2023-05-24

发表评论

登录后才能评论

评论列表(0条)

保存