[免币]：ACAD外挂程序智能管理器v7.0h(简繁英)（0613）

lxyljl

用u盘试了下：手动加载u盘里面的aut.vlx，可是原先的命令设置不能实现。打开其路径，显示的是我原先在电脑里aut的路径，偶出错在哪里啊？

hmh888888

手动加载u盘里面的aut.vlx
运行autg试试

另请教wkai大侠：

如何实现加载aut后，自动确定aut所在的路径（lisp编程可实现吗？）

lxyljl

最初由 hmh888888 发布
[B]手动加载u盘里面的aut.vlx
运行autg试试
[/B]

试过了，把路径设置在u盘aut目录下，可是不行啊。

bu55

直接放在2004CAD的安装文件夹下可以吗

lxyljl

用aut设置快捷命令和在pgp设置的效果不一样（6.0f的版本就出现的）。尝试设置bhatch和copybase看看。bhatch本应该谈出对话框选择填充图案的，可是用aut设置后变成了采用默认填充图案选择闭合面积填充；在选择了选择集后使用aut设置的copybase快捷命令，提示重新选择基点、再选择对象，如果是输入copybase的话，应该是直接选择基点就行，不必在选择对象的。为什么会这样呢？

zxcvbnm-cad

对话框太大无法在屏幕上显视.
如何修改

wkai

To hmh888888 :
下面程序可以获得所有硬盘和移动设备的一级子目录。
[php](Defun autg:get_hd (/ fso drv dis)
  (setq fso (vlax-create-object "Scripting.FileSystemObject"))
  (setq drv (vlax-get fso 'Drives))
  (vlax-for n drv
    (if        (and (/= "A:" (vlax-get n 'path)) (member (vlax-get n 'DriveType) '(1 2)))
      (progn
        (setq root (vl-catch-all-apply 'vlax-get (list n 'RootFolder)))
        (if (/= 'VL-CATCH-ALL-APPLY-ERROR (type root))
          (progn
            (setq root (vlax-get root 'SubFolders))
            (vlax-for m        root
              (setq dis (cons (vlax-get m 'path) dis))
            )
          )
        )
      )
    )
  )

  (vlax-release-object fso)
  dis
)[/php]

To lxyljl  :
AUT 的命令序列是通过 生成 scr 文件实现的。

To  zxcvbnm-cad :
错误是因为你在一个快单组里设置了太多的程序项，控制在12个以下吧。

hmh888888

不好意思，wkai大侠：
我的意思是，加载了d:/mylisp/mylisp.lsp
怎样根据这个加载程序自动获取路径 d:/mylisp

wkai

没有直接的方法，只能搜索。(或者使用doslib)

下面代码可以在所有硬盘或者移动设备的一级目录中查找"mylisp.lsp"文件
[php]
(setq finded nil)
(foreach n (autg:get_hd )
(if (setq path (findfile (strcat n "\\mylisp.lsp" )))
(setq finded path)
)
(print finded)
)
[/php]

hmh888888

非常感谢wkai大侠：
已经解决搜索路途问题

(strcat n "\mylisp.lsp" )应为
(strcat n "/mylisp.lsp" )

lxyljl

wkai斑竹, aut的命令序列实现方法不能想6.0e以前那样么？我家里的e没出现现在f这样的情况呀。

laolin

真好用啊，谢谢楼主！

userzhluserzhl

没有SET文件呀

wuxian123

最初由 zxcvbnm-cad 发布
[B]对话框太大无法在屏幕上显视.
如何修改 [/B]

我也碰到了这个情况，我是用7.0的程序加载了acad_apps4aut57这个包以后就变成这样了！

棉花糖

加载AUT.vlx以后让我提供*.set的路径~，
如何取得，请斑竹告知啊~