光栅图像

gogozb

2. (defun c:imageins()
   
3.   (vl-load-com)
   
4.   (setq acadobject(vlax-get-acad-object)
   
5.     acaddocument (vla-get-activedocument acadobject)
   
6.     mspace (vla-get-modelspace acaddocument)
   
7.   )
   
8.   (setq imagename "F:\\002遵义部-2022-9-20\\遵义5\\img20220921_0144.jpg")
   
9.   (setq insettionpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))
   
10.   (setq scalefactor 1.5)
    
11.   (setq rotationangle 0)
    
12.   ;在模型空间建立一个点阵式图像
    
13.   (if (null (findfile imagename))
    
14.     (progn
    
15.       (princ imagename)
    
16.       (princ "找不到\n")
    
17.       (vl-exit-with-value)
    
18.     )
    
19.     (setq rasterobj (vla-addraster mspace imagename (vlax-3d-point (getpoint "\n指定插入点: ")) scalefactor rotationangle))
    
20.   )
    
21.   (vla-zoomextents acadobject)
    
22.   (princ)
    
23. )

(defun c:imageins()<br />   (vl-load-com)<br />   (setq acadobject(vlax-get-acad-object)<br />     acaddocument (vla-get-activedocument acadobject)<br />     mspace (vla-get-modelspace acaddocument)<br />   )<br />   (setq imagename "F:\\002遵义部-2022-9-20\\遵义5\\img20220921_0144.jpg")<br />   (setq insettionpnt (vlax-make-safearray vlax-vbdouble '(0 . 2)))<br />   (setq scalefactor 1.5)<br />   (setq rotationangle 0)<br />   ;在模型空间建立一个点阵式图像<br />   (if (null (findfile imagename))<br />     (progn<br />       (princ imagename)<br />       (princ "找不到\n")<br />       (vl-exit-with-value)<br />     )<br />     (setq rasterobj (vla-addraster mspace imagename (vlax-3d-point (getpoint "\n指定插入点: ")) scalefactor rotationangle))<br />   )<br />   (vla-zoomextents acadobject)<br />   (princ)<br /> )

2. (command "imageattach" "F:\\002遵义部-2022-9-20\\遵义5\\img20220921_0141.jpg" getpoint "" "" 1.5)

(command "imageattach" "F:\\002遵义部-2022-9-20\\遵义5\\img20220921_0141.jpg" getpoint "" "" 1.5)

留个标记，日后解决。

gogozb

vladimirputin 发表于 2023-2-16 10:21
楼主，这个代码做什么用的，可以说明一下吗

想快速将扫描好的草图插入dwg文件中，按比例调整大小。量大时候效率很低想脚本来效率。