• 好莱坞环球影城“功夫熊猫”主题剧院开放 2019-09-23
  • TapTap恢复下载服务 整改三个月带来内忧外患 2019-09-23
  • 经营者要想“我心换你心”,就要未雨绸缪,让不诚信的诱惑少一点,如此才能在市场中生存下来。反过来说,承担不起亏损就关门歇业,是否也是一种不诚信呢? 2019-09-14
  • 上海市陆家嘴:打造社区多元治理“共同体” 2019-09-14
  • 2017最具体育活力城市排行榜 2019-09-14
  • 李克勤献唱央视“世界杯主题歌” 2018国语专辑筹备中李克勤 世界杯 2019-09-08
  • 回复@看着就想笑:难道公有制社会主义就不能生存发展吗?事实上公有制会生存发展的更好! 2019-09-03
  • 陵川县全力推进乡村振兴战略 2019-09-01
  • 周国平:男女之爱已经很强烈了,但亲子之爱更强烈 2019-09-01
  • 出租广州市荔湾区芳村大道东169号 2019-08-29
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-08-21
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-08-20
  • 你这纯粹是胡说八道!农民的宅基地,需要交钱才能使用吗?你敢推行这样的政策吗?你也只敢推行对工人的住宅地,要交钱才能使用!这样合理吗?那些交不起房钱的人,难道应该 2019-08-13
  • 西部网(陕西新闻网)硬科技频道 2019-08-13
  • 新华时评:成果不易,更需诚意与信任呵护 2019-08-09
  • 平码六中六多少倍:autoCAD文字导出Excel文件的小插件

    平码三中山论坛 www.mslzq.tw 经常有网友问我有没有将CAD文字输出到WORD或EXCEL的插件,我这里有一个非常简单的LSP程序,可以选取图中文字,直接存成EXCEL文件。
    程序代码如下:
    (defun c:Q2()
    (setq ffn (getfiled “写出文件” “” “xls” 1))
    (princ “\n选取文字…”)
    (setq ss (ssget))
    (setq ff (open ffn “w”))
    (setq i 0)
    (repeat (sslength ss)
    (setq ssn (ssname ss i))
    (setq ssdata (entget ssn))
    (setq sstyp (cdr (assoc 0 ssdata)))
    (if (or (= sstyp “TEXT”) (= sstyp “MTEXT”))
    (progn
    (setq txt (cdr (assoc 1 ssdata)))
    (princ txt ff)
    (princ “\n” ff)
    )
    )
    (setq i (1+ i))    
    )
    (close ff)
    (princ (strcat “\n写出文件: ” ffn))
    (prin1)
    )
    使用方法如下:
    1、打开记事本,将上述代码复制粘贴到记事本中,然后另存为q2.lsp(文件名可以随意,但扩展名必须是LSP)。
    2、在CAD中输入AP,加载保存的LISP文件。

    3、输入Q2命令,就可以只选取文字并保存成EXCEL文件了。

    此插件可以在AUTOCAD、浩辰CAD等类似CAD中加载。

    为您推荐

    发表评论

    联系我们

    联系我们

    在线咨询: QQ交谈

    地址:中国·贵州·贵阳 友情链接QQ:1034559333 本站QQ群:123733639
    关注微信
    微信扫一扫关注我们

    微信扫一扫关注我们

    关注微博
    返回顶部

    关于本站 || 版权声明 || 免责条款 || 隐私条款 || 平码三中山论坛 || ||

    Copyright??2018 平码三中山论坛 All Rights Reserved·黔ICP备15000265号-2

  • 好莱坞环球影城“功夫熊猫”主题剧院开放 2019-09-23
  • TapTap恢复下载服务 整改三个月带来内忧外患 2019-09-23
  • 经营者要想“我心换你心”,就要未雨绸缪,让不诚信的诱惑少一点,如此才能在市场中生存下来。反过来说,承担不起亏损就关门歇业,是否也是一种不诚信呢? 2019-09-14
  • 上海市陆家嘴:打造社区多元治理“共同体” 2019-09-14
  • 2017最具体育活力城市排行榜 2019-09-14
  • 李克勤献唱央视“世界杯主题歌” 2018国语专辑筹备中李克勤 世界杯 2019-09-08
  • 回复@看着就想笑:难道公有制社会主义就不能生存发展吗?事实上公有制会生存发展的更好! 2019-09-03
  • 陵川县全力推进乡村振兴战略 2019-09-01
  • 周国平:男女之爱已经很强烈了,但亲子之爱更强烈 2019-09-01
  • 出租广州市荔湾区芳村大道东169号 2019-08-29
  • (原创)取消“份子钱”是出租车改革必须迈出的一步 2019-08-21
  • Facebook公关掌门离职 是应对隐私丑闻干将 2019-08-20
  • 你这纯粹是胡说八道!农民的宅基地,需要交钱才能使用吗?你敢推行这样的政策吗?你也只敢推行对工人的住宅地,要交钱才能使用!这样合理吗?那些交不起房钱的人,难道应该 2019-08-13
  • 西部网(陕西新闻网)硬科技频道 2019-08-13
  • 新华时评:成果不易,更需诚意与信任呵护 2019-08-09
  • 福建时时被抓 网赌赢钱技巧 养老时时计划软件 今晚体彩31选7必中3个预测 竞彩足球比赛结果查询 山东时时彩11选5走势图 吉林时时彩开奖号码查询结果 天津时时五星走势园 一,肖一码′期期准 广东彩票资讯网