地信网论坛»论坛 › 『软件技术应用』 › CASS › 获取CAD中文字，输出到指定文本文件。

免费视频|新人指南|投诉删帖|广告合作|地信网APP下载

123下一页
返回列表 发新帖
查看: 10519|回复: 27
收起左侧

[软件] 获取CAD中文字，输出到指定文本文件。

    [复制链接]
zhb236623

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
543
QQ
发表于 2011-7-19 23:23 | 显示全部楼层 |阅读模式
  1. (defun c:gwz ()   ;;;mjtd.com


  4. (setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
  5. (setq ff (open ffn "w"))
  6. (close ff)
  7.   
  8.    (setq ss (ssget '((0 . "text"))))

  10.   ;;(setq ss (ssget '((0 . "text")(8 . "jzmj"))))

  12.   (setq        i  0)
  13.   
  14.    

  16.   (repeat (sslength ss)
  17.         (setq ssn (ssname ss i)
  18.               endata (entget ssn)
  19.               new_pp (cdr (assoc 1 endata))
  20.                )
  21.               (setq ff (open ffn "a"))
  22.               (princ new_pp ff)
  23.               (princ "\n" ff)
  24.                     (close ff)                             
  25.       (setq  i (1+ i))
  26.   )
  27. )
复制代码
回复

使用道具 举报

heart实名认证

883

主题

8万

铜板

632

好友

超级版主

论坛使者

Rank: 17Rank: 17Rank: 17Rank: 17Rank: 17

积分
28818

精华勋章宣传勋章爱心勋章优秀斑主地信元老灌水勋章荣誉会员勋章活跃勋章贡献勋章冰雪节勋章10周年纪念勋章

QQ
发表于 2011-7-20 14:17 | 显示全部楼层
研究研究
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

wmjdd实名认证

281

主题

1万

铜板

288

好友

钻石会员

好好学习！！

Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26Rank: 26

积分
8361

灌水勋章活跃勋章
发表于 2011-7-20 14:30 | 显示全部楼层

研究研究:zt:zt
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

cuyongping实名认证

6

主题

6552

铜板

9

好友

教授级高工

Rank: 12Rank: 12Rank: 12

积分
1360
发表于 2011-8-25 16:31 | 显示全部楼层
使用了一下！还可以！
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

zhuofeng41实名认证

62

主题

6万

铜板

46

好友

版主

Rank: 15Rank: 15Rank: 15Rank: 15Rank: 15

积分
10169

精华勋章宣传勋章爱心勋章组织勋章优秀斑主地信元老灌水勋章荣誉会员勋章活跃勋章官方团队地信专家组VIP勋章贡献勋章名人堂勋章成就学员勋章10周年纪念勋章
发表于 2011-8-25 19:03 | 显示全部楼层
源代码吗
是不是自己复制下来另存为插件文件就可以了呢
学习一下
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

zbweixkj

1

主题

5458

铜板

14

好友

高级工程师

生气的后果永远比生气的原因后果

Rank: 9Rank: 9Rank: 9

积分
663
发表于 2011-8-29 23:12 | 显示全部楼层
哦，还是个批量选择的文字的。
该会员没有填写今日想说内容.
回复 支持 反对

使用道具 举报

zhb236623

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
543
QQ
 楼主| 发表于 2011-9-1 21:57 | 显示全部楼层
zhuofeng41 发表于 2011-8-25 19:03
源代码吗
是不是自己复制下来另存为插件文件就可以了呢
学习一下

可以直接下载这个。。在CASS下APPLOAD加载，输入命令gwz即可使用。。。。。。。。。。

gwz.rar

368 Bytes, 下载次数: 117
回复 支持 反对

使用道具 举报

yuyjy实名认证

4

主题

792

铜板

11

好友

助理工程师

Rank: 5Rank: 5

积分
199
发表于 2011-9-17 09:58 | 显示全部楼层
哪位高手能不能在这程序上加个每个文本的当前坐标啊！能的话发个，谢了！
回复 支持 反对

使用道具 举报

lhd244

17

主题

3299

铜板

2

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
528
发表于 2011-9-19 17:20 | 显示全部楼层
FASDFDSFDSF
回复 支持 反对

使用道具 举报

zhb236623

7

主题

2016

铜板

30

好友

工程师

Rank: 7Rank: 7Rank: 7

积分
543
QQ
 楼主| 发表于 2011-9-20 22:19 | 显示全部楼层
yuyjy 发表于 2011-9-17 09:58
哪位高手能不能在这程序上加个每个文本的当前坐标啊！能的话发个，谢了！

这个可以有．．．．．．试用下效果．．．．．．．．．
  1. (defun c:gwzxy ()


  4. (setq ffn (getfiled "选取文件" "D:/temp/" "txt" 1))
  5. (setq ff (open ffn "w"))
  6. (close ff)
  7.   
  8.    (setq ss (ssget '((0 . "text"))))

  10.   ;;(setq ss (ssget '((0 . "text")(8 . "jzmj"))))

  12.   (setq        i  0)
  13.   
  14.    

  16.   (repeat (sslength ss)
  17.         (setq ssn (ssname ss i)
  18.               endata (entget ssn)
  19.               new_pp (cdr (assoc 1 endata))
  20.               new_xyz (cdr (assoc 11 endata))
  21.                )
  22.               (setq ff (open ffn "a"))
  23.               (princ new_xyz ff)
  24.               (princ " " ff)
  25.               (princ new_pp ff)
  26.               (princ "\n" ff)
  27.                     (close ff)                             
  28.       (setq  i (1+ i))
  29.   )
  30. )
复制代码
回复 支持 反对

使用道具 举报

下一页 »
123下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

在线客服
手机版新人指南 地信论坛 ( 湘ICP备14003170号-5 土流集团有限公司 版权所有 )

免责声明广告合作     邮箱：42368948@qq.com    湘公网安备 43010302000511号

公众号

地信网APP
快速回复 返回顶部 返回列表