当前位置:你问我答 >  详情

(网上分享)在CASS中,如何把纯数字的文字注记导出生成数据文件?

Windows7
CAD2014
CASS10.1

在CASS中,如何把纯数字的文字注记导出生成数据文件?数据文件如下图:

可以通过自定义的lsp文件来实现。
1. 打开CASS软件,在命令行中键入“VLISP”命令,打开“lsp交互式开发环境”,点击“新建”按钮。

2. 复制粘贴以下的代码
(defun c:tqsz()
(setq drawm0 (getvar "userr1"))
(if (= drawm0 0)
(setq drawm0 (getreal "\n 绘图比例尺1: <500>:"))
)
(if (= drawm0 nil) (setq drawm0 500.0))
(setvar "userr1" drawm0)
(setq drawscl (/ drawm0 1000))
(setq wy (* drawscl 1.5))
(setq wx (* drawscl 1))
(princ"\n 请选择要提取的数字:")
(setq ss (ssget '((0 . "TEXT") (1 . "~*[~`--9]*"))))
(princ "\n")
(setq ffn (getfiled "写出文件" "" "dat" 1))
(setq ff (open ffn "w"))
(setq i 0)
(repeat (sslength ss)
(setq ssn (ssname ss i))
(setq ssdata (entget ssn))
(setq endata (cdr (assoc 10 ssdata)))
(setq z (cdr (assoc 1 ssdata)))
(setq y (- (car endata) wy))
(setq x (+ (cadr endata) wx))
(setq i (1+ i))
(setq text (strcat (rtos i 2 0) ",," (rtos y 2 3) "," (rtos x 2 3) "," z))
(write-line text ff) 
)
(close ff)
(princ (strcat "\n文件保存位置==>: " ffn))
(princ "\n本次总共提取了 ") (princ i) (princ " 个高程点")
(prin1)
)
(princ "\n====键入 tqsz 运行本插件")
3. 点击“保存”按钮,命名为“纯数字生成高程点数据(tqsz).lsp”
4. 打开CASS软件,在命令行中键入“APPLOAD”,打开“加载/卸载应用程序”对话框。选择“纯数字生成高程点数据(tqsz).lsp”,并点击“加载”按钮。

5. 消息框提示加载成功。


. 点击“关闭”按钮,关闭当前对话框。
7. 在CASS命令行中,键入“tqsz”命令,根据命令行提示选择文字对象,回车确认,指定保存路径。
8. 命令行打印出生成成功的提示信息。
from clipboard

9. 打开生成的dat文件,查看结果。
from clipboard


全部评论

等级:LV30
积分:290
四叶草 2018-07-16 08:26
学习了
回复 0
等级:LV30
积分:13364
新手191037 2018-07-16 10:15
学习了,谢谢
回复 0
等级:LV24
积分:4
123木头人 2018-07-16 10:35
好贴
回复 0
等级:LV6
积分:90
新手710293 2018-07-16 11:01
学习了,谢谢
回复 0
等级:LV12
积分:10
新手71844 2018-07-16 12:53
好帖
回复 0
等级:LV23
积分:2
116100 2018-07-16 16:49
学习了
回复 0
等级:LV23
积分:70
微笑 2018-07-16 16:57
好贴
回复 0
等级:LV26
积分:10
冰火客人 2018-07-16 17:38
己学
回复 0
等级:LV5
积分:50
小午夜 2018-07-16 18:26
这么优秀,拜师
回复 0
等级:LV30
积分:66019
新手582184 2018-07-16 19:40
好贴
回复 0

提交
悬赏回复规则
1、悬赏期为24小时,从发布时间起算;
2、悬赏期内提问者如设置评论为“精选评论”,视为悬赏结束,该精选评论人将获得本题全部悬赏积分;
3、悬赏期内如提问者未设置“精选评论”,则前5位评论者平分悬赏积分(如仅有一位评论,该评论者获得50%悬赏积分);
4、悬赏积分会自动发放到生态圈账户中,请留意站内信通知。
知道了

距离打开宝箱还剩7

是否花费200积分补签?
确认
取消