[测试]：关于XDRX_API的BUG,请到此贴下发表

eachy · 发表于 2002-5-1 11:53:25

以下函数在Windows 2000 Pro中出现异常。

xdrx_system_getideserial
功能：获得硬盘物理序列号
调用格式：(xdrx_system_getideserial)
返回值：字符串

复制代码

XDSoft · 发表于 2002-5-1 11:56:20

最初由 eachy 发布
[B]以下函数在Windows 2000 Pro中出现异常。

xdrx_system_getideserial

功能：获得硬盘物理序列号

调用格式：(xdrx_system_getideserial)

返回值：字符串
复制代码
[/B]

对，这个函数只能98下能用。

YueFeng · 发表于 2002-5-8 02:16:46

XDRX_API中字符替换函数XDRX_STRING_REPLACE的返回值，怎么是没有找到匹配项返回值为Nil，这真有点出乎我的意料，按我的想法应是返回原字符串呀。DOSLIB中提供的类似函数的返回值为原字符串。(DOS_STRREPLACE)

eachy · 发表于 2002-6-20 12:54:16

怪事情，昨天还运行顺利，今天忽然第一次出错，第二次导致CAD异常退出(AutoCAD2002英文+汉化)，R14下CAD窗口自动消失。出错代码为红色，其他的Sbrk程序运行良好。

;;命令：dwgblack
;;将图中所有实体（包括块，嵌套块，尺寸中的无名块）都变白色
;;出图的时候解决有的白线变灰的问题。
;;
;;本程序出自XDsoft,修改的最初目的只是为处理电子版地形图,
;;将所有实体改为同一图层,同一颜色,字体也统一一种(未完成),
;;经过修改更通用些,也适应专门的要求
;;
;;通用组码修改 cnum0 组码 cnum 组码值
;;
(defun #chg_color (e cnum0 cnum / tf e blkna)
(xdrx_setenttodb e)
(setq tf (xdrx_getentdxf 0))
(cond
((or
(= tf "INSERT")
(= tf "DIMENSION")
)
(setq blkna (xdrx_getentdxf 2))
(setq blkna (tblsearch "block" blkna))
(setq e (cdr (assoc -2 blkna)))
(while e
(xdrx_setenttodb e)
(setq tf (xdrx_getentdxf 0))
(if (or
(= tf "INSERT")
(= tf "DIMENSION")
)
(progn
(#chg_color e cnum0 cnum)
)
(progn
(xdrx_setenttodb e)
(xdrx_modent cnum0 cnum)
)
)
(setq e (entnext e))
)
)
(t
(xdrx_modent cnum0 cnum)
)
)
)
;;地形图处理步骤二
(defun c:dwgblack (/ ss key num num0 n e)
(xdrx_begin)
(prompt "\n请选取要变色的实体<全选>:")
(if (not (setq ss (ssget)))
(setq ss (ssget "x"))
)
(initget "1 2")
(setq key (getstring "\n[1 改颜色/2 改层]<1>: "))
(if (or (= key "1")
(= key "")
)
(progn
(setq num (acad_colordlg 7))
(setq num0 62)
)
(progn
(setq num (getstring "\n图层名称: "))
(setq num0 8)
)
)
(setq n 0)
(xdrx_setsstodb ss 0)
(xdrx_pbarbegin "已经完成:" (sslength ss))
(while [COLOR=#A52A2A](setq e (xdrx_getentdata 0))[/color]
(xdrx_pbarsetpos n)
(setq n (1+ n))
(#chg_color e num0 num)
(entupd e)
)
(xdrx_pbarend)
(xdrx_end)
(princ)
)

;;命令：dwgblack 
;;将图中所有实体（包括块，嵌套块，尺寸中的无名块）都变白色 
;;出图的时候解决有的白线变灰的问题。 
;; 
;;本程序出自XDsoft,修改的最初目的只是为处理电子版地形图, 
;;将所有实体改为同一图层,同一颜色,字体也统一一种(未完成), 
;;经过修改更通用些,也适应专门的要求 
;; 
;;通用组码修改  cnum0  组码   cnum  组码值 
;; 
(defun #chg_color (e cnum0 cnum / tf e blkna) 
  (xdrx_setenttodb e) 
  (setq tf (xdrx_getentdxf 0)) 
  (cond 
    ((or 
       (= tf "INSERT") 
       (= tf "DIMENSION") 
     ) 
     (setq blkna (xdrx_getentdxf 2)) 
     (setq blkna (tblsearch "block" blkna)) 
     (setq e (cdr (assoc -2 blkna))) 
     (while e 
       (xdrx_setenttodb e) 
       (setq tf (xdrx_getentdxf 0)) 
       (if (or 
             (= tf "INSERT") 
             (= tf "DIMENSION") 
           ) 
         (progn 
           (#chg_color e cnum0 cnum) 
         ) 
         (progn 
           (xdrx_setenttodb e) 
           (xdrx_modent cnum0 cnum) 
         ) 
       ) 
       (setq e (entnext e)) 
     ) 
    ) 
    (t 
     (xdrx_modent cnum0 cnum) 
    ) 
  ) 
) 
;;地形图处理步骤二 
(defun c:dwgblack (/ ss key num num0 n e) 
  (xdrx_begin) 
  (prompt "\n请选取要变色的实体<全选>:") 
  (if (not (setq ss (ssget))) 
    (setq ss (ssget "x")) 
  ) 
  (initget "1 2") 
  (setq key (getstring "\n[1 改颜色/2 改层]<1>: ")) 
  (if (or (= key "1") 
          (= key "") 
      ) 
    (progn 
      (setq num (acad_colordlg 7)) 
      (setq num0 62) 
    ) 
    (progn 
      (setq num (getstring "\n图层名称: ")) 
      (setq num0 8) 
    ) 
  ) 
  (setq n 0) 
  (xdrx_setsstodb ss 0) 
  (xdrx_pbarbegin "已经完成:" (sslength ss)) 
  (while [COLOR=#A52A2A](setq e (xdrx_getentdata 0))[/color] 
    (xdrx_pbarsetpos n) 
    (setq n (1+ n)) 
    (#chg_color e num0 num) 
    (entupd e) 
  ) 
  (xdrx_pbarend) 
  (xdrx_end) 
  (princ) 
)

eachy · 发表于 2002-6-20 12:56:28

第一次提示：

eachy · 发表于 2002-6-20 12:57:42

第二次运行提示：

XDSoft · 发表于 2002-6-20 18:01:22

最初由 eachy 发布
[B]第一次提示： [/B]

今天你安装了什么软件了吗？

换个其他二次开发的软件下，试试，是不是每次都这样？

autotools · 发表于 2002-7-2 22:18:49

用了xdrx_api14.arx后当前层老会变为0层？？

XDSoft · 发表于 2002-7-2 22:25:58

最初由 autotools 发布
[B]用了xdrx_api14.arx后当前层老会变为0层？？ [/B]

最新的API已经更新了，这个问题已经解决了。

API 14现在是最后一个版本了，以后API将唯一支持2002＋

LIJUN4858 · 发表于 2002-7-3 14:07:33

出现这个问题应核查一下

mf7000 · 发表于 2002-7-29 12:36:28

我以加载XDRX_API14
用你编的命令：solid2pl
;功能：用xdrx_api函数xdrx_solid_vertex得到
;3dsolid实体顶点，并用3dpolyline模拟这个3dsolid
出现问题。。。。
Command: solid2pl
拾取个3dsolid实体<退出>: error: null function
(XDRX_SOLID_VERTEX E)
(SETQ PTL (XDRX_SOLID_VERTEX E))
无效的函数 XDRX_API14里不包括XDRX_SOLID_VERTEX这个函数吗？:8

eachy · 发表于 2002-8-4 20:29:00

晓东，目前的XDRX_Dragss类函数不能接受回车输入。

hzx · 发表于 2002-9-17 07:57:37

xdrx_gettch 说明如下：
功能：返回天正建筑安装路径+"子目录名"，如 (gettch "SYS\\"), 返回 "C:\\TCH\\SYS\\"。
调用格式：(xdrx_gettch [子目录名] [规则])

说明：1.若给参数[规则]，则忽略前面的[子目录名]。
2.参数[规则]：0，1，返回天正建筑安装路径(最后一定带\\)。
2：返回天正建筑安装路径＋"SYS\\"。
3：返回天正建筑安装路径＋"LISP\\"。
4：返回天正建筑安装路径＋"DDBL\\"。
5：返回天正建筑安装路径＋"DDBLM\\"。

返回值：成功返回路径，失败返回NIL.

但是我发现返回值有误，比如：
(gettch "SYS\\") 只返回"\SYS\\" 应返回"C:\\TCH\\SYS\\"
(gettch) 只返回"" 应返回"C:\\TCH\\"
(gettch 2) 只返回"\SYS\\" 应返回"C:\\TCH\\SYS\\"
(gettch 3) 只返回"\SYS\\" 应返回"C:\\TCH\\LISP\\"

等等

luln · 发表于 2002-10-23 21:56:42

我安装了晓东工具箱以后出现提示：D:\Program Files\XDSoft\SYS\xdrx_api15.arx 无法找到所需的动态链接库或其他文件。
; 错误: ARXLOAD 失败
（我把晓东工具箱安装在D:\Program Files\XDSoft下）请问这是怎么回事？如何解决？是不是晓东工具箱不适用于autocad2000？

XDSoft · 发表于 2002-10-23 22:06:13

最初由 luln 发布
[B]我安装了晓东工具箱以后出现提示：D:\Program Files\XDSoft\SYS\xdrx_api15.arx 无法找到所需的动态链接库或其他文件。
; 错误: ARXLOAD 失败
（我把晓东工具箱安装在D:\Program Files\XDSoft下）请问这是怎么回事... [/B]

你下载下面连接文件，解开压缩拷贝到ACAD2000的安装目录下，即把里面的两个DLL文件放到ACAD安装目录。然后加载试试。

点此下载brep.zip

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