软件租赁
免费试用
当前版块:问答社区 > CASS

(网上分享)在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


全部评论

等级:LV23
积分:4964
卟阣熱迀喕 2018-07-18 00:18
这么厉害,编程解决
回复 0
等级:LV30
积分:20513
新手96393 2018-07-18 05:25
好问题,己学习
回复 0
等级:LV30
积分:14857
rjxiao 2018-07-18 08:10
学习了
回复 0
等级:LV6
积分:1330
新手710293 2018-07-18 10:09
学习了
回复 0
等级:LV21
积分:591
man 2018-07-18 12:29
回复 0
等级:LV30
积分:29778
开心每一天 2018-07-19 07:57
谢谢各位同行的关注!
回复 0
等级:LV30
积分:49784
手新 2018-07-19 11:04
谢谢大神分享   学习了
回复 0
等级:LV30
积分:15254
6878 2018-07-19 11:13
挺复杂的,学习了
回复 0
等级:LV30
积分:49784
手新 2018-07-19 12:01
lisp是个好东西
回复 0
等级:LV16
积分:1041
咸鱼蛋 2018-07-19 12:49
好东西啊,大师
回复 0
悬赏回复规则
1、悬赏期为24小时,从发布时间起算;
2、悬赏期内提问者如设置评论为“精选评论”,视为悬赏结束,该精选评论人将获得本题全部悬赏积分;
3、悬赏期内如提问者未设置“精选评论”,则前5位评论者平分悬赏积分(如仅有一位评论,该评论者获得50%悬赏积分);
4、悬赏积分会自动发放到生态圈账户中,请留意站内信通知。
知道了

距离打开宝箱还剩7

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