找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1515|回复: 5

[已解决] [已解决]:关于mslide在lisp中的调用问题。

[复制链接]
发表于 2007-10-8 12:29:23 | 显示全部楼层 |阅读模式

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

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

×
写了一段lisp,目的是方便制作幻灯片文件,程序如下。

  1.   [FONT=courier new]
  2. (defun c:test ()
  3.   (setvar "cmdecho" 0)
  4.   (setq        name           (getvar "dwgname")
  5.         name_num   (strlen name)
  6.         name_num_n (- name_num 3)
  7.         name_n1           (substr name 1 name_num_n)
  8.         name_n           (strcat name_n1 "sld")
  9.   )
  10.   (setvar "filedia" 0)
  11.   (command "mslide" name_n)
  12.   (setvar "filedia" 1)
  13.   (prin1)
  14. )
  15.   [/FONT]

使用后发现问题,情况是:有时候会生成幻灯片,有时候却不会(在不同的DWG中)。
总结了一下,发现,如果在调用程序前,手动输入mslide,并生成幻灯片,则在这个DWG中,使用上面的程序均正常。如果不手动输入mslide,并执行一次,则有时候会生成幻灯片,有时候却不会(在不同的DWG中)
请问如何解决?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-10-12 16:55:15 | 显示全部楼层
(defun c:test ()
  (setvar "cmdecho" 0)
  (setq        name           (getvar "dwgname")
        name_num   (strlen name)
        name_num_n (- name_num 3)
        name_n1           (substr name 1 name_num_n)
        ;name_n           (strcat name_n1 "sld")
  )
  (setvar "filedia" 0)
  (command "mslide" name_n1)
  (setvar "filedia" 1)
  (prin1)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 208个

财富等级: 日进斗金

发表于 2007-10-12 21:59:14 | 显示全部楼层
;name_n (strcat name_n1 "sld")
和这个有什么关系??
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-10-15 22:59:39 | 显示全部楼层
最初由 LUCAS 发布
[B](defun c:test ()
  (setvar "cmdecho" 0)
  (setq        name           (getvar "dwgname")
        name_num   (strlen name)
        name_num_n (- name_num 3)
        name_n1           (substr name 1 name_num_n)
        ;name_n           (strcat name_n1... [/B]


按您的方法,问题依然存在,当地因为发现不加上name_n (strcat name_n1 "sld"),有时候新生成的幻灯片变成没有扩展名了(不是每次都会),所以就加上了,刚才试了删去name_n (strcat name_n1 "sld"),还是有时候会生成幻灯片,有时候不会生成。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

 楼主| 发表于 2007-10-17 13:16:20 | 显示全部楼层
一直错误认为系统自动会把当前DWG路径作为准备生成的SLD的默认路径,问题终于解决了.谢谢您.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-6 07:58 , Processed in 0.190220 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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