[LISP函数]：增加啟動圖片函數

LUCAS

1. 
   
2. ;|
   
3. 雖然副檔名列示在下面表格中，AutoCAD 會從檔案內容來決定檔案格式，而不是從副檔名。
   
4. 支援的影像檔格式
   
5. 類型        說明與版本                                   副檔名
   
6. BMP        Windows 與 OS/2 點陣圖格式                        .bmp、.dib、.rle
   
7. CALS-I        Mil-R-Raster I                                   .gp4、.mil、.rst、. cg4、.cal
   
8. FLIC        FLIC Autodesk Animator Animation           .flc、.fli
   
9. GeoSPOT        GeoSPOT (BIL 檔案必須與 HDR
   
10.         以及相關資料的 PAL 檔位在同一個目錄中）           .bil
    
11. IG4        Image Systems Group 4                           .ig4
    
12. IGS        Image Systems Grayscale                           .igs
    
13. JFIF 或 JPEG        Joint Photographics Expert Group   .jpg 或 .jpeg
    
14. PCX        Picture PC Paintbrush Picture                   .pcx
    
15. PICT        Picture Macintosh Picture                   .pct
    
16. PNG        Portable Network Graphic                   .png
    
17. RLC        Run-Length Compressed                      .rlc
    
18. TARGA        True Vision Raster-Based Data Format       .tga
    
19. TIFF        Tagged Image File Format                   .tif 或 .tiff
    
20. |;
    
21. 
    
22. ;;(IMAGE "KILLER.JPG" 30412 0.8 2000)
    
23. ;;(IMAGE IMAGENAME FILESIZE SCALE TIME)
    
24. ;;IMAGENAME:圖片路徑&名稱
    
25. ;;FILESIZE(檢查圖片檔案大小):--主要是防止更換圖片
    
26. ;;FILESIZE=NIL(不檢查)
    
27. ;;SCALE:顯示比例
    
28. ;;TIME:DELAY
    

复制代码

li_seagull

楼主,能不能给一份源码,万分感谢!
www_sea@163.com

LUCAS

;;簡單的像下列,當然提供的函數較完成
(defun C:TT ()
  (command "_.UNDO" "_GROUP")
  (command "_.IMAGE" "A" "KILLER.JPG" "" "" "" 0)
  (command "_.DELAY" 2000)
  (command "_.UNDO" "_END")
  (command "_.UNDO" 1)
  (princ)
)

它山之石

　　请教龙斑主，俺如何只让CAD在启动时显示一个图片（仅一次），而不是每打开一个文件都显示图片。

eachy

检查有几个窗口

LUCAS

最初由 它山之石 发布
[B]　　请教龙斑主，俺如何只让CAD在启动时显示一个图片（仅一次），而不是每打开一个文件都显示图片。 [/B]

做個標記判斷一下即可

它山之石

其实这个问题可以扩展到如何让某个程序只加载并运行一次。并非仅指显示图片。俺的几个思路：
1、通过ACAD.LSP可以只加载一次的特点来实现。但这样会对用户自己的ACAD.LSP文件有影响。
2、通过判断现在是有几个图形窗口来实现。就是eachy斑主讲得。但俺不知如何判断。
3、通过另外的办法来判断。就是LUCAS斑主讲得。不知斑主能给个具体的例子吗？
俺曾经想这样做，但没有达到效果。
[php]
(defun c:test ()
  (if (not (member 'IMAGE (vl-list-loaded-vlx)))
    (progn
      (vl-load-all "IMAGE.VLX")
      (IMAGE "KILLER.JPG" 30412 0.8 2000)
    )
    (alert "123")
  )
)
[/php]

LUCAS

(defun C:TEST ()
  (if (= FLAG_IMAGE NIL)
    (progn
      (setq FLAG_IMAGE t)
      (vl-propagate 'FLAG_IMAGE)
      (load "IMAGE.VLX")
      (IMAGE "KILLER.JPG" 30412 0.8 2000)
    )
    (alert "123")
  )
)

eachy

2. 
   
3. ;;加载函数并运行后
   
4. (vl-bb-set 'My_loaded 't)
   
5. ;;运行之前
   
6. (if (vl-bb-ref 'My_loaded)
   
7.   ...
   
8. 
   
9. ;;如果是启动加载
   
10. (if (< (vla-get-count (vla-get-documents (vlax-get-acad-object))) 2)
    
11.   ...
    

<br /> ;;加载函数并运行后<br /> (vl-bb-set 'My_loaded 't)<br /> ;;运行之前<br /> (if (vl-bb-ref 'My_loaded)<br />   ...<br /> <br /> ;;如果是启动加载<br /> (if (< (vla-get-count (vla-get-documents (vlax-get-acad-object))) 2)<br />   ...<br />