[求助]：怎么用LISP重载，卸载光栅图象？

oyxx_1023

如题，能给一个详细的程序最好，谢谢了。

aidraft

(defun C:ImgR()
  (command "-image" "r" "*")
)
(defun C:ImgU()
  (command "-image" "u" "*")
)

oyxx_1023

谢谢二楼.
如果我想在执行命令之后选择一个或多个光栅图象,然后重载或者卸载选定的光栅图象.
这个函数该怎么写呢?也就是怎么样获得选定的光栅图象文件的名称和路径?

梦断江南

光栅图像路径查看器

oyxx_1023

谢谢大家。
那么怎样才能获得光栅图象的文件名呢？？
我的目的是想在选择光栅图象后直接RELOAD或UNLOAD该图象，所以主要就是要获得光栅图象的文件名，然后用二楼的方法重载或卸载图片。

梦断江南

用这个：
[php]
(defun c:imglst ()
  (mapcar '(lambda (x) (vl-filename-base (cadr x))) (c:ipath))
)
[/php]
实测:
_$

光栅图像路径查看器-------------------梦断江南.2004.8
         
取得路径列表方法: (setq lst (c:ipath))
当前光栅图像路径: C:\Drawing\TILE1-47.JPG
当前光栅图像路径: C:\Drawing\PAPER019.JPG
当前光栅图像路径: C:\Drawing\TILE1-46.JPG
("TILE1-47" "PAPER019" "TILE1-46")   <-<<--文件列表
_$

oyxx_1023

谢谢梦断江南。
问一下。(c:ipath)是个什么函数，有什么功能。多次看到它出现 。

还有，不能VLISP有什么办法能达到同样的功能吗，我想在R14里用这个程序。R14里头要加载卸载光栅图时每次都要先看它的属性知道它的名字，再去卸载什么的。2000以上的版本倒是方便一点。可以选中光栅图后，执行IM命令，直接点RELOAD或UNLOAD就行。

梦断江南

(c:ipath)就是４楼贴的程序啊！你上次怎么没看贴么？我以为你都试了呢
６楼的程序要调用４楼的程序。既然知道ｃａｄ２００ｘ方便，为什么还抱着ｒ１４不放？

oyxx_1023

我们专用程序不支持R14以上的版本啊。