找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1041|回复: 6

[每日一码] 生成幻灯片SLD

[复制链接]

已领礼包: 19个

财富等级: 恭喜发财

发表于 2017-6-3 10:30:45 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
  1. (defun C:DWG2SLD (/ ACADOBJ DOC DWG_DIR DWG_LST NAME SDI)
  2.   (defun CJW-FILE-GET (MSG / WINSHELL SHFOLDER PATH CATCHIT)
  3.     (setq WINSHELL (vlax-create-object "Shell.Application"))
  4.     (setq
  5.       SHFOLDER (vlax-invoke-method WINSHELL 'BROWSEFORFOLDER 0 MSG 1)
  6.     )
  7.     (setq
  8.       CATCHIT (vl-catch-all-apply
  9.                 '(lambda ()
  10.                    (setq SHFOLDER (vlax-get-property SHFOLDER 'SELF))
  11.                    (setq PATH (vlax-get-property SHFOLDER 'PATH))
  12.                  )
  13.               )
  14.     )
  15.     (if        (vl-catch-all-error-p CATCHIT)
  16.       NIL
  17.       PATH
  18.     )
  19.   )
  20.   (setvar "CMDECHO" 0)
  21.   (if (and (setq DWG_DIR (CJW-FILE-GET "to select the DWG file folder?"))
  22.            (setq DWG_LST (vl-directory-files DWG_DIR "*.DWG" 1))
  23.       )
  24.     (progn
  25.       (foreach DWG DWG_LST
  26.         (if (setq SS (ssget "x"))
  27.           (command "._ERASE" SS "")
  28.         )
  29.         (setq DWG (strcat DWG_DIR "\\" DWG))
  30.         (setq SLD (strcat DWG_DIR "\\" (vl-filename-base DWG) ".sld"))
  31.         (command ".-INSERT" DWG "_NON" '(0. 0. 0.) "1" "1" "0")
  32.         (command "._ZOOM" "_E")
  33.         (command "._MSLIDE" SLD)
  34.         (print SLD)
  35.       )
  36.     )
  37.   )
  38.   (princ)
  39. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 604个

财富等级: 财运亨通

发表于 2017-6-3 18:06:24 | 显示全部楼层
(command "._ZOOM" "_E")改为SS外框大小好一些呢?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 1 反对 0

使用道具 举报

已领礼包: 3911个

财富等级: 富可敌国

发表于 2017-6-3 10:51:17 | 显示全部楼层
正想学习学习,谢谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6202个

财富等级: 富甲天下

发表于 2017-6-3 12:25:54 | 显示全部楼层
正准备做几个幻灯片,谢谢分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 6056个

财富等级: 富甲天下

发表于 2017-6-4 02:08:46 | 显示全部楼层
谢谢分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 3884个

财富等级: 富可敌国

发表于 2017-6-4 18:07:34 | 显示全部楼层
顶,表示支持下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 13个

财富等级: 恭喜发财

发表于 2017-9-12 12:24:09 | 显示全部楼层
,非常支持!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-12 09:13 , Processed in 0.174896 second(s), 42 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表