晓东工具箱冲突

奔跑的辣椒

CAD2014+晓东工具箱+配筋助手2015  每次关闭CAD提示配筋助手ARX什么错误  是什么问题啊  求大佬帮忙解释一下

Lisphk

关闭时候，问题不大吧。没用过配筋助手，也是有ARX吗？

奔跑的辣椒

Lisphk 发表于 2018-8-9 20:19
关闭时候，问题不大吧。没用过配筋助手，也是有ARX吗？

问题的确不大  也没什么影响  就强迫症看着有点不舒服

dmxcs

跟tssd好像也冲突

newer

dmxcs 发表于 2021-1-7 20:37
跟tssd好像也冲突

有问题请截图上来，说下具体情况。

dmxcs

newer 发表于 2021-1-7 20:40
有问题请截图上来，说下具体情况。

老大您好！是这样的，装了晓东工具箱后，在用探索者某些功能时候出现如下提示：
“CAD 调用(*push-error-using-command*)前无法从 *error* 调用(command)。 建议将(command)调用转换为(command-s)。”
环境是win10 64位，cad2016+tssd2019。
卸了晓东以后可以正常使用探索者，再装上又出这个问题了，不知有无办法解决，或者可不可以临时关一下工具箱，要用了再打开？谢谢！

XDSoft

dmxcs 发表于 2021-1-8 19:03
老大您好！是这样的，装了晓东工具箱后，在用探索者某些功能时候出现如下提示：
“CAD 调用(*push-error ...

你把下面代码粘贴到命令行，回车

然后看看执行TSSD，是否还报错

1. (defun *error* (msg /)
   
2.   ;;(while (< 0 (getvar "cmdactive")) (command))
   
3.   (setvar "menuecho" 1)
   
4.   ;;----- Display error message if applicable _-------------------
   
5.   (cond
   
6.     ((not msg))                                ; no error, do nothing
   
7.     ((member (strcase msg t)                ; cancel
   
8.              '("console break" "function cancelled" "quit / exit abort")
   
9.      )
   
10.     )
    
11.     ((princ (strcat "\nApplication Error: "
    
12.                     (itoa (getvar "errno"))
    
13.                     " :- "
    
14.                     msg
    
15.             )
    
16.      )
    
17.      ;;----- Display backtrace if in debug mode ---------------------
    
18.      (if XD:Debug_on
    
19.        (vl-bt)
    
20.      )
    
21.     )
    
22.   )
    
23.   (setvar "errno" 0)
    
24.   (setvar "nomutt" 0)
    
25.   (if (and xdrx_end (= (type xdrx_end) 'EXRXSUBR))
    
26.     (progn                                ;(xdrx_drawing_viewres)
    
27.       (xdrx_statusbar_end)
    
28.       (redraw)
    
29.       (xdrx_init)
    
30.       (xdrx_end)
    
31.     )
    
32.   )
    
33.   (setvar "nomutt" 0)
    
34. )
    

(defun *error* (msg /)<br />   ;;(while (< 0 (getvar "cmdactive")) (command))<br />   (setvar "menuecho" 1)<br />   ;;----- Display error message if applicable _-------------------<br />   (cond<br />     ((not msg))                                ; no error, do nothing<br />     ((member (strcase msg t)                ; cancel<br />              '("console break" "function cancelled" "quit / exit abort")<br />      )<br />     )<br />     ((princ (strcat "\nApplication Error: "<br />                     (itoa (getvar "errno"))<br />                     " :- "<br />                     msg<br />             )<br />      )<br />      ;;----- Display backtrace if in debug mode ---------------------<br />      (if XD:Debug_on<br />        (vl-bt)<br />      )<br />     )<br />   )<br />   (setvar "errno" 0)<br />   (setvar "nomutt" 0)<br />   (if (and xdrx_end (= (type xdrx_end) 'EXRXSUBR))<br />     (progn                                ;(xdrx_drawing_viewres)<br />       (xdrx_statusbar_end)<br />       (redraw)<br />       (xdrx_init)<br />       (xdrx_end)<br />     )<br />   )<br />   (setvar "nomutt" 0)<br /> )<br />

dmxcs

XDSoft 发表于 2021-1-8 22:39
你把下面代码粘贴到命令行，回车

然后看看执行TSSD，是否还报错

终于能回复了。
cad假死了。。