mokson 发表于 2018-5-13 09:00:02

帮我看看这个 image.vlx 如何使用？

我在一个网盘里下载了一个 image.vlx 文件，是在CAD里显示图片的插件，开发者也没有太多的使用说明。
我加载后不知道如何使用，连命令是什么也无从得知。
帮我看看，谢谢。


mokson 发表于 2018-5-13 09:25:42

本帖最后由 mokson 于 2018-5-13 09:27 编辑

是image good 这个命令吗，但它与CAD本身的image命令重复呀，不知道怎么搞？


669423907 发表于 2018-5-13 14:10:29

;查看VLX，FAS命令 Gu_xl 150817 http://bbs.mjtd.com/thread-169086-4-1.html
(defun c:ckml(/ l fn)
(setq l (mapcar 'eval (atoms-family 0)))
(if (setq fn (getfiled "" "" "*" 4))
    (progn
      (load fn)
      (mapcar
      'print
      (vl-remove-if-not
          '(lambda (x) (= "C:" (substr x 1 2)))
          (mapcar
            'VL-PRINC-TO-STRING
            (vl-remove-if
            '(lambda (x) (member (eval x) l))
            (atoms-family 0)
            )
          )
      )
      )
    )
)
(princ)
)

mokson 发表于 2018-5-13 14:26:35

还是没有查出来 image.vlx 使用的是什么命令。

yxp 发表于 2018-5-13 14:56:19

;;查询 vlx/LSP 的加载命令
(defun c:findCMD( / ff old new)
(setq ff (getfiled "请选择加载文件" "" "vlx;lsp;fas" 0))
(if (and ff (setq ff (findfile ff))) (progn
        (setq old (atoms-family 1))
        (load ff)
        (setq new (atoms-family 1))
        (foreach x old (setq new (vl-remove x new)))
        (princ ff)
        (princ " 文件加载命令：")
        (foreach x (vl-remove-if-not '(lambda(x)(wcmatch x "C:*")) new)(princ "\n")(princ x))
)(princ "\n加载文件没找到！")
)(princ)
)

mokson 发表于 2018-5-14 08:23:38

将上面的代码另存为 lsp 文件，加载运行后选择这个 image.vlx ,好像都没有显示执行它的命令。
大家帮我看看它到底是如何使用的？最好来个详细的教程，感谢了。

yxp 发表于 2018-5-14 12:03:13

本帖最后由 yxp 于 2018-5-14 12:12 编辑

mokson 发表于 2018-5-14 08:23
将上面的代码另存为 lsp 文件，加载运行后选择这个 image.vlx ,好像都没有显示执行它的命令。
大家帮我看 ...
教程来了：

1新开一个 CAD，不要加载 image.vlx ，先加载 findCMD.lsp
2命令行里运行 findCMD ，从对话框里选择 image.vlx 加载

如果成功，程序会输出该 vlx 里的命令，如果没有输出，那可能 vlx 里真的没有 C: 命令
因为不确定该 vlx 是否使用独立名称空间，所以无法用 vl-vlx-loaded-p 来判断是否加载

ketxu 发表于 2018-5-14 14:56:00

它是一个定义的函数，而不是命令。
你只需要像这样调用arg：
（图像图像名称文件大小缩放时间）
请参阅Image readme.txt文件中的示例。
它显示延迟时间的图像
页: [1]
查看完整版本: 帮我看看这个 image.vlx 如何使用？