[分享]：【实用程序汇总】test000系列！

kfd216

楼主，真是太感谢你了，以后向你学习，我们大家都要向楼主学习啊，楼主，你发的好多东东我都需要，真是太感谢你了。希望我们都这样，共同提高，共同进步，再次表示感谢！！！

qiwtxue

AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷
c:\Image00003.jpg

xyp1964

最初由 qiwtxue 发布
[B]AutoCAD 菜单实用程序已加载。; 错误: 输入的列表有缺陷
c:\Image00003.jpg [/B]

不知是否2000以上版本？

lzws03

加载"xyp_lib"提示出错。如下：

；；；
正在打开 AutoCAD 2004 格式的文件。
正在重生成模型。

加载建模 DLL。

加载即插即用的 CAD 组件...
注册 CAD 组件命令: C:VDMaker ...
注册 CAD 组件命令: C:VDPack ...
注册 CAD 组件命令: C:VDConfig ...
发现即插即用的 CAD 组件: VDMaker.Dll, 已加载...
釉仄舳?橹械?CAD 组件...
命令:
命令:
AutoCAD Express Tools Copyright ?2002-2003 Autodesk, Inc.

CADAddOnTools Menu loaded.
AutoCAD 菜单实用程序已加载。; 错误: LOAD 失败: "xyp_lib"

WlTools制图工具 (第-2004.08.01版，正式版，有效期：2005.08.02) 已经安装
文字修改大师 Ctt(V9.2-2004.01.01)加载成功 上海冶金设计院 周海兵 coolzhb@163.com
命令:

；；；

是不是与以上哪个冲突呢？


还有就是用 menuload　命令加载 test000.mns/mnc 时也提示出错，如下：
；；；
命令:  MENULOAD
菜单加载成功。菜单组: test000


命令: ; 错误: LOAD 失败: "test000"

命令:
；；；

请问怎么解决？

还有就是在
http://www.xdcad.net/forum/showthread.php?s=&threadid=366405
http://www.xdcad.net/forum/showthread.php?s=&threadid=366407
这上下帖中我的意见反馈，请xyp1964版主抽空去看一下。

MJJ3468

TO: xyp1964长老,请帮帮忙.你提供的程序我下载了,挺好用.
其中,修改图块比例 : 一次同时修改图块XYZ三方向比例(est070),我用的较多,可惜不能框选,很烦.我自己在你的程序基础上做了修改,可是运行不了,我怎么都不知那里出错,请帮忙指导和修正.拜托了.各位大虾也可以帮忙.

;;;改图块比例 : 一次同时修改图块XYZ三方向比例 <ionic>
(defun c:test070 ()
  (cmdla0)
  (princ "\n请选择要修改比例的块:")
  (setq a (ssget))
  (setq i 0)
  (setq new41 (getreal "输入新比例= "))
  (while (<= (+ i 1) (sslength a))      
         (setq ent (entget (ssname a i)))
  (if (and (setq s1 (car ent))
           (= (dxf 0 (entget s1)) "INSERT")
      )
    (progn
      (setq old41 (dxf 41 (entget s1))          
      )
      (sub_upd s1 41 new41)
      (sub_upd s1 42 new41)
      (sub_upd s1 43 new41)
    )
  )
  (setq i(+ 1 i))
  )
  (cmdla1)
)

到底哪不对呢!??

xyp1964

最初由 MJJ3468 发布
[B]TO: xyp1964长老,请帮帮忙.你提供的程序我下载了,挺好用.
其中,修改图块比例 : 一次同时修改图块XYZ三方向比例(est070),我用的较多,可惜不能框选,很烦.我自己在你的程序基础上做了修改,可是运行不了,我怎么都不知那... [/B]

这样：
[php]
(defun c:test ()
  (cmdla0)
  (setq new41 (ureal 1 "" "\n新比例" new41))
  (princ "\n请选择要修改比例的块 : ")
  (setq        ss (ssget '((0 . "INSERT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (sub_upd s1 41 new41)
    (sub_upd s1 42 new41)
    (sub_upd s1 43 new41)
  )
  (cmdla1)
)
[/php]

MJJ3468

最初由 xyp1964 发布
[B][QUOTE]最初由 MJJ3468 发布
[B]TO: xyp1964长老,请帮帮忙.你提供的程序我下载了,挺好用.
其中,修改图块比例 : 一次同时修改图块XYZ三方向比例(est070),我用的较多,可惜不能框选,很烦.我自己在你的程序基础... [/B]

对带文字属性的块，文字不能一起变比例。楼主，还得改改呀。

≥◇≤

xyp1964

没考虑属性问题，修改后结果如下，再试：
[php]
;;;图块三轴等比例修改
(defun c:test111 ()
  (cmdla0)
  (setq new41 (ureal 1 "" "\n新比例" new41))
  (princ "\n请选择要修改比例的块 : ")
  (setq        ss (ssget '((0 . "INSERT")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq old (dxf 41 (entget s1))
          pt  (dxf 10 (entget s1))
    )
    (command "scale" s1 "" pt (/ new41 old 1.0))
    (sub_upd s1 41 new41)
    (sub_upd s1 42 new41)
    (sub_upd s1 43 new41)
  )
  (cmdla1)
)
[/php]

xyp1964

最初由 lzws03 发布
[B]加载"xyp_lib"提示出错。如下：

；；；
正在打开 AutoCAD 2004 格式的文件。
正在重生成模型。

加载建模 DLL。

加载即插即用的 CAD 组件...
注册 CAD 组件命令: C:VDMaker ...
注册 CAD 组件命令: C:VD... [/B]

前面这一堆提示与加载程序无关，应该是机器本身的问题！

MJJ3468

可以用了，不过斑竹的程序挺难琢磨的。哈哈
另外，谢谢斑竹给我加币啦。

alanhugh

以下是在2005中加载该程序的截图

alanhugh

命令行提示加载xyp_lib失败

alanhugh

加载菜单

alanhugh

加载菜单成功但同样提示xyp_lib加载失败

首先要下载1楼的通用程序：xyp_lib[/COLOR] By xyp1964[/COLOR]

alanhugh

菜单都出现了

Test系列菜单已经整合到自己的菜单内，不错！[/COLOR] By xyp1964[/COLOR]