lisp控制word插入图片问题

sheoh

如题，主要是函数不会用，lisp接VBA用法还不会，VBA更是没怎么看过。代码如下：

1. (defun c:tt()
   
2.   (vl-load-com)
   
3.   (if (null MW-accept) (jinn-get-word-Lib))
   
4.   (jinn-get-word-object)
   
5.   (setq range (MW-get-range lastpgobj))   
   
6.   (MW-addpicture "c:\\1.jpg"  range)
   
7.   (MW-put-bold range 0)
   
8.   (setq filename "c:\\wordtest1.doc")
   
9.   (vlax-invoke-method docobj "Saveas" filename nil nil nil nil nil nil)
   
10.   )
    
11. 
    
12. (defun jinn-get-word-Lib()
    
13.   (setq office:dir "C:\\Program Files\\Microsoft Office\\")
    
14.   (cond
    
15.     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord8.olb"))))
    
16.     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord9.olb"))))
    
17.     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord.olb"))))
    
18.     ((setq mwlib (findfile (strcat office:dir "office10\\" "MSWord.olb"))))
    
19.     ((setq mwlib (findfile (strcat office:dir "office12\\" "MSWord.olb"))))
    
20.     ((setq mwlib (findfile (strcat office:dir "office14\\" "MSWord.olb"))))
    
21.     (t (setq mwlib nil))
    
22.     )
    
23.   (if mwlib
    
24.     (vlax-import-type-library
    
25.       :tlb-filename mwlib
    
26.       :methods-prefix "MW-"
    
27.       :properties-prefix "MW-"
    
28.       :constants-prefix "MW-"
    
29.       )
    
30.     (alert "Word typelib 文件不存在")
    
31.    )
    
32. )
    
33. 
    
34. (defun jinn-get-word-object()
    
35.   (setq WordObj (vlax-create-object "Word.Application"))
    
36.   (vla-put-visible WordObj 1)
    
37.   (setq docs (vlax-get-property WordObj 'documents))
    
38.   (setq docobj (vlax-invoke-method docs 'Add))
    
39.   (setq pgobj (MW-get-paragraphs docobj))
    
40.   (setq lastpgobj (MW-get-last pgobj))  
    
41.   )
    

(defun c:tt()<br />   (vl-load-com)<br />   (if (null MW-accept) (jinn-get-word-Lib))<br />   (jinn-get-word-object)<br />   (setq range (MW-get-range lastpgobj))    <br />   (MW-addpicture "c:\\1.jpg"  range)<br />   (MW-put-bold range 0)<br />   (setq filename "c:\\wordtest1.doc")<br />   (vlax-invoke-method docobj "Saveas" filename nil nil nil nil nil nil)<br />   )<br /> <br /> (defun jinn-get-word-Lib()<br />   (setq office:dir "C:\\Program Files\\Microsoft Office\\")<br />   (cond<br />     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord8.olb"))))<br />     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord9.olb"))))<br />     ((setq mwlib (findfile (strcat office:dir "office\\" "MSWord.olb"))))<br />     ((setq mwlib (findfile (strcat office:dir "office10\\" "MSWord.olb"))))<br />     ((setq mwlib (findfile (strcat office:dir "office12\\" "MSWord.olb"))))<br />     ((setq mwlib (findfile (strcat office:dir "office14\\" "MSWord.olb"))))<br />     (t (setq mwlib nil))<br />     )<br />   (if mwlib<br />     (vlax-import-type-library<br />       :tlb-filename mwlib<br />       :methods-prefix "MW-"<br />       :properties-prefix "MW-"<br />       :constants-prefix "MW-"<br />       )<br />     (alert "Word typelib 文件不存在")<br />    )<br /> )<br /> <br /> (defun jinn-get-word-object()<br />   (setq WordObj (vlax-create-object "Word.Application"))<br />   (vla-put-visible WordObj 1)<br />   (setq docs (vlax-get-property WordObj 'documents))<br />   (setq docobj (vlax-invoke-method docs 'Add))<br />   (setq pgobj (MW-get-paragraphs docobj))<br />   (setq lastpgobj (MW-get-last pgobj))  <br />   )<br />

以上代码是从书上抄袭来的，还算能看懂。
应该是  (MW-addpicture "c:\\1.jpg"  range)这一句出错了吧，运行时返回 错误: 参数类型错误: VLA-OBJECT "c:\\1.jpg"
请教大神们，这个函数怎么用呢。。。

caddog

1. 

   复制代码
   
   
2. (setq v-selection (mswp-get-Selection msw))
   
3. (setq v-insertPic (mswp-get-InlineShapes v-selection))
   
4. (setq inlineShapeObj (mswm-AddPicture  v-insertPic $fn-pic1 :vlax-false :vlax-true));_插入图片
   
5. (mswp-put-height inlineShapeObj 594.95);_图片高
   
6. (mswp-put-Width inlineShapeObj 841.6);_图片宽
   
7. ;;;以下设置图片的 版式
   
8. (setq inlineShapeObj (mswm-ConvertToShape inlineShapeObj))
   
9. (setq inlineShapeObj-format (mswp-get-WrapFormat inlineShapeObj))
   
10. (mswp-put-type inlineShapeObj-format 0)
    

</ol></div><em onclick="copycode($('code_Win'));">复制代码</em></div><br /> (setq v-selection (mswp-get-Selection msw))<br /> (setq v-insertPic (mswp-get-InlineShapes v-selection))<br /> (setq inlineShapeObj (mswm-AddPicture  v-insertPic $fn-pic1 :vlax-false :vlax-true));_插入图片<br /> (mswp-put-height inlineShapeObj 594.95);_图片高<br /> (mswp-put-Width inlineShapeObj 841.6);_图片宽<br /> ;;;以下设置图片的 版式<br /> (setq inlineShapeObj (mswm-ConvertToShape inlineShapeObj))<br /> (setq inlineShapeObj-format (mswp-get-WrapFormat inlineShapeObj))<br /> (mswp-put-type inlineShapeObj-format 0)<br />

283528149

http://bbs.mjtd.com/forum.php?mo ... &fromuid=238436

283528149

如何改变插入JPG的高度？

sheoh

VBA函数方法如下

sheoh

这。。。等了一天没人回答。。。是太简单了，不屑于吗。。。

xiaxiang

从书上抄袭来的,我怎么没有看过这本书？楼主，介绍一下嘛

sheoh

xiaxiang 发表于 2014-3-10 09:04
从书上抄袭来的,我怎么没有看过这本书？楼主，介绍一下嘛

AutoCAD完全应用指南啊。。。论坛里常出现的。。好像是翔虹什么的。。

sheoh

xiaxiang 发表于 2014-3-10 09:04
从书上抄袭来的,我怎么没有看过这本书？楼主，介绍一下嘛

我这个问题能帮我解答吗。。。[em0]

Gu_xl

sheoh 发表于 2014-3-10 09:07
我这个问题能帮我解答吗。。。

(vlax-invoke (vlax-get-property docobj 'InlineShapes) 'AddPicture "c:\\1.jpg" :vlax-false :vlax-false range)

sheoh

Gu_xl 发表于 2014-3-10 09:44
(vlax-invoke (vlax-get-property docobj 'InlineShapes) 'AddPicture "c:\\1.jpg" :vlax-false :vlax-fa ...

终于等到G版了！  多谢！我对G版的崇拜犹如滔滔江水连绵不断。。。

Gu_xl

sheoh 发表于 2014-3-10 09:47
终于等到G版了！  多谢！我对G版的崇拜犹如滔滔江水连绵不断。。。

函数如何使用，你二楼图片提供的VBA方法已经说明的非常清楚了，只是你要把它转换为Lisp的active写法而已！

sheoh

Gu_xl 发表于 2014-3-10 10:03
函数如何使用，你二楼图片提供的VBA方法已经说明的非常清楚了，只是你要把它转换为Lisp的active写法而已！ ...

是的，这个刚接触，还不太懂。。。。多谢指导。。。而且这方面的内容论坛里好像没怎么看到，是不是在其他的哪个版块。。。