[求助]：求助：关于 Imageframe

danboo

我是生手，由于经常用“imageframe”命令切换是否显示插入的图片边框，觉得挺麻烦，因为要输入两次。
问题：
1.能不能自定义一个函数，如果imageframe为On，则将其改为Off,反之，如果Imageframe为Off，则将其改成On。
2.Imageframe为控制光栅图片边框显示的命令，ACAD里面有没有其对应的系统变量？如果没有，在Lisp语言里怎样查询Imageframe的开关状态？

cdhua001

看看这个是不是你说的东东：
（演示的这个按纽是《ET扩展工具》里面的命令）

danboo

就是它了，谢谢斑竹！可是能不能自己定义一个命令呢？自己定义个命令我觉得可能会好操作点的！

cdhua001

安装一个《ET扩展工具》就有了啊，没必要自定义。
《ET扩展工具》里面有很多好用的命令，是AutoCAD的必要补充。

要想提取这个命令单独使用，我就没有办法了。

danboo

我提取了Express里的代码分析，再自己修改了一下，现在完全可以很方便的实现我的理想目标了。现在要切换光栅图片边框显示，只需按一下“Q”再回车，比画直线还简单！

louistango

楼上的，说说具体的操作啊

danboo

[php]
(defun c:IFrameTrans ( / e status)
(acet-error-init
(list (list "cmdecho" 0);list
       T
);list
);acet-error-init
(setq e (dictsearch (namedobjdict) "ACAD_IMAGE_VARS"));setq
(setq i (cdr (assoc 70 e)))
(progn
(cond
   ((= i 1) (setq status "_off"))
   ((= i 0) (setq status "_on"))
)
)
(if status
         (progn
          (command "_.imageframe" status)
          (princ (acet-str-format "\nIMAGE frames are toggled %1."  (substr status 2)))
         );progn then
);if
(acet-error-restore)
);defun c:IFrameTrans
[/php]

将以上代码加入ACAD.lsp   ，在ACAD.PGP里面增加一行：Q，  *IFrameTrans

OK

山顶洞人

这个命令我也很常用，不过这个命令好像CAD里有现成的哦!

danboo

我也知道你说的那个东西，点一下，然后输入on or off . 不过我就是觉得输入麻烦，才选择新编那个程序的。

山顶洞人

晕
今天才发现，在我的机子上按那个“边框开关”执行的是：tframes(这样可以直接切换显示边框和不显示边框)，在另一台机子上执行却是imageframe（需要输入ON和OFF才能切换）
那台机子没装ET，但是tframes命令也可用，只要自定义一下按钮即可！