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

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

我在一个网盘里下载了一个 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文件中的示例。
它显示延迟时间的图像

账号		自动登录	找回密码
密码			注册

[提问] 帮我看看这个 image.vlx 如何使用？

本帖子中包含更多资源