请教下如何关闭晓东工具箱随cad启动

弘毅 · 发表于 2020-6-4 11:08:34

由于工具箱跟一个别的软件冲突，请教下如何关闭晓东工具箱随cad启动，以及如果不随cad启动的话如何手动启动

newer · 发表于 2020-6-4 14:13:24

不如说下是怎么冲突，解决掉这个

yuebirds · 发表于 2020-6-4 20:09:44

你可以把另一个软件卸载啊

kyky1002 · 发表于 2020-6-5 08:09:19

newer 发表于 2020-6-4 14:13
不如说下是怎么冲突，解决掉这个

晓东工具箱和cad自带的express tool冲突，我想使用express tool自带的文字自动编号，选择数字后命令行显示objects were not in the current space.希望改进下，其余没测试。已经在虚拟机试验过，确实是晓东工具箱引起的，没装晓东工具箱前，express tool是可以用的，装后用不了,测试环境：win10 64 位 1909版，cad2020

这个不知道解决了没，20200518版是没有解决

Lisphk · 发表于 2020-6-5 08:12:03

kyky1002 发表于 2020-6-5 08:09
晓东工具箱和cad自带的express tool冲突，我想使用express tool自带的文字自动编号，选择数字后命令行显 ...

EXPRESS 里面的文字自动编号是哪个命令? 在哪个菜单下面？
晓东工具箱和论坛有好多自动编号的吧

Lisphk · 发表于 2020-6-5 09:56:39

kyky1002 发表于 2020-6-5 08:09
晓东工具箱和cad自带的express tool冲突，我想使用express tool自带的文字自动编号，选择数字后命令行显 ...

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;bns_get_tcountmode_cmd - command line prompter for bns_get_tcountmode
;
(defun bns_get_tcountmode_cmd (/ a r)
(if (not #bns_tcount_mode)
(setq #bns_tcount_mode "Prefix")
) ;if
(if (not #bns_tcount_replace)
(setq #bns_tcount_replace "")
) ;if
(initget "Overwrite Prefix Suffix Find&replace")
(setq a
(getkword
(acet-str-format
"\nPlacement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] < %1>: "
#bns_tcount_mode
) ;acet-str-format
) ;getkword
) ;setq
(if (or (not a) (equal a "")) ;or
(setq a #bns_tcount_mode) ;setq then
) ;if
(setq #bns_tcount_mode a)
(if (equal a "Find&replace")
(progn (setq r "")
(while (equal r "")
(setq r (getstring T
(strcat "\nEnter search string <"
#bns_tcount_replace
">: "
)
)
) ;setq
(if (not (equal r ""))
(setq #bns_tcount_replace r) ;setq then
(setq r #bns_tcount_replace) ;setq else
) ;if
(if (equal r "")
(princ "*Invalid* Empty search string not allowed.")
) ;if
) ;while
) ;progn then
) ;if
#bns_tcount_mode
) ;defun bns_get_tcountmode_cmd
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;
(defun bns_tcount
(ss ss_sort start inc mode str / a na e1 e2 n lst b j)
(if (not (equal "Select-order" ss_sort))
(progn
(cond
((equal "X" ss_sort)
(setq ss (bns_esort ss
'((e1) (car (cdr (assoc 10 e1))))
;quoted function for x
)
) ;setq
) ;cond #1
((equal "Y" ss_sort)
(setq
ss (bns_esort ss
'((e1) (* -1.0 (cadr (cdr (assoc 10 e1)))))
;quoted function for y
)
) ;setq
) ;cond #2
((equal "Z" ss_sort)
(setq ss (bns_esort ss '((e1) (caddr (cdr (assoc 10 e1))))))
;setq
) ;cond #3
) ;cond close
) ;progn then
) ;if
(setq j 0)
(setq n 0) ;setq
(repeat (sslength ss)
(setq na (ssname ss n)
e1 (entget na)
e2 e1
) ;setq
(cond ((equal "TEXT" (cdr (assoc 0 e1)))
(setq a (itoa start))
(setq a (place_tcount
(cdr (assoc 1 e1)) ;the original
a ;the number
mode
str ;Search string to use if
) ;mode=Find&replace
) ;setq
(entmod (subst (cons 1 a) (assoc 1 e1) e1) ;subst
) ;entmod
) ;cond #1
((equal "MTEXT" (cdr (assoc 0 e1)))
;first build one big string from the 3 and 1 group codes
(setq a "")
(foreach x e1
(if (= (car x) 3)
(setq a (strcat a (cdr x)))
)
) ;foreach
;then split it apart using \\p (paragraph) as a delimiter
(setq a (strcat a (cdr (assoc 1 e1)))
lst (acet-str-to-list "\\P" a)
b ""
) ;setq
;then make the number additions and build one big string again.
(foreach x lst
(setq a (itoa start))
(setq a (place_tcount
x ;the original
a ;the number
mode
str ;Search string to use if
) ;mode=Find&replace
b (strcat b "\\P" a)
) ;setq
(setq start (+ start inc)) ;setq
) ;foreach
(setq start (- start inc)) ;setq
(setq b (substr b 3)
lst nil
) ;setq
;the rebuild the e-list without the 3 and 1 group codes.
(foreach x e1
(if (and (/= (car x) 3) (/= (car x) 1)) ;and
(setq lst (append lst (list x)))
)
) ;foreach
;split the new big string apart and place in the elist as 3 and 1 group codes.
(setq e1 lst)
(while (> (strlen b) 250)
(setq e1 (append e1 (list (cons 3 (substr b 1 250))))
;append
b (substr b 251)
) ;setq
) ;while
(setq e1 (append e1 (list (cons 1 b)))) ;setq
(entmod e1)
) ;cond #2
((equal "ATTDEF" (cdr (assoc 0 e1)))
(setq a (itoa start))
(setq a (place_tcount
(cdr (assoc 2 e1)) ;the original
a ;the number
mode
str ;Search string to use if
) ;mode=Find&replace
) ;setq
(setq a (acet-str-replace " " "" a))
;spaces are not allowed in attdefs so remove them
(entmod (subst (cons 2 a) (assoc 2 e1) e1) ;subst
) ;entmod
) ;cond #3
) ;cond close
(if (not (equal e2 (entget (cdr (assoc -1 e2)))))
(setq j (+ j 1))
)
(setq n (+ n 1)) ;setq
(setq start (+ start inc)) ;setq
) ;repeat
j
) ;defun bns_tcount
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; TCOUNT TEXT COUNT
(defun c:tcount (/ ss_sort ss start inc startinc flag flt n)
(acet-error-init
(list (list "cmdecho"
0
"highlight"
(getvar "highlight")
"limcheck"
0
) ;list
T
) ;list
) ;acet-error-init
(setq flt '((-4 . "<OR")
(0 . "TEXT")
(0 . "MTEXT")
(0 . "ATTDEF")
(-4 . "OR>")
)
) ;setq
(if (and (setq ss (ssget flt)) ;setq
;;; (setq ss (car (acet-ss-filter (list ss
;;; '(("LAYERUNLOCKED") ;Dis-allow locked layers, non-current-space
;;; ("CURRENTUCS") ;and dis-allow objects not in current ucs
;;; )
;;; T
;;; );list
;;; );acet-ss-filter
;;; );car
;;; );setq
) ;and
(progn
(if (not #bns_tcount_sort)
(setq #bns_tcount_sort "Select-order")
) ;if
(initget "X Y Select-order")
(setq ss_sort
(getkword
(acet-str-format
"\nSort selected objects by [X/Y/Select-order] <%1>: "
#bns_tcount_sort
) ;acet-str-format
) ;getkword
) ;setq
(if (or (not ss_sort) (equal ss_sort "")) ;or
(setq ss_sort #bns_tcount_sort) ;setq then
(setq #bns_tcount_sort ss_sort) ;setq else
) ;if
(if (not #bns_tcount_start)
(setq #bns_tcount_start 1)
) ;if
(if (not #bns_tcount_inc)
(setq #bns_tcount_inc 1)
) ;if
(while (not flag)
(setq flag T)
(setq startinc (strcat (itoa (fix #bns_tcount_start))
","
(itoa (fix #bns_tcount_inc))
) ;strcat
startinc (getstring
(acet-str-format
"\nSpecify starting number and increment (Start,increment) <%1>: "
startinc
) ;acet-str-format
) ;getstring
) ;setq
(if (equal startinc "")
(setq startinc (strcat (itoa (fix #bns_tcount_start))
","
(itoa (fix #bns_tcount_inc))
) ;strcat
) ;setq
) ;if
(setq startinc (acet-str-to-list "," startinc))
(if
(or
(not (car startinc))
(not (numberp (read (car startinc))))
(and (cadr startinc) (not (numberp (read (cadr startinc)))))
;and
) ;or
(progn (princ "\nInvalid input.") (setq flag nil))
;progn then
) ;if
(setq start (atoi (car startinc))) ;setq
(if (cadr startinc)
(setq inc (atoi (cadr startinc))) ;setq then
(setq inc 1) ;setq else
) ;if
(if start
(setq #bns_tcount_start start)
) ;if
(if (or (not inc) (equal inc 0)) ;or
(setq inc #bns_tcount_inc) ;setq then
) ;if
(if inc
(setq #bns_tcount_inc inc)
) ;if
) ;while
(bns_get_tcountmode_cmd)
(setq n (bns_tcount
ss ;the selection set
ss_sort ;the sort type
start ;the start number
inc ;the increment
#bns_tcount_mode ;placement mode =overwrite/prefix/suffix/find&replace
#bns_tcount_replace ;search string for Find&replace option.
)
) ;setq
(princ (acet-str-format "\n%1 objects modified." (itoa n)))
(if ss
(command "_.select" ss "")
) ;if
) ;progn then
) ;if
(acet-error-restore)
) ;defun c:tcount

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
                                        ;bns_get_tcountmode_cmd - command line prompter for bns_get_tcountmode 
                                        ; 
(defun bns_get_tcountmode_cmd (/ a r) 
  (if (not #bns_tcount_mode) 
    (setq #bns_tcount_mode "Prefix") 
  )                                        ;if 
  (if (not #bns_tcount_replace) 
    (setq #bns_tcount_replace "") 
  )                                        ;if 
  (initget "Overwrite Prefix Suffix Find&replace") 
  (setq        a 
         (getkword 
           (acet-str-format 
             "\nPlacement of numbers in text [Overwrite/Prefix/Suffix/Find&replace..] < %1>: " 
             #bns_tcount_mode 
           )                                ;acet-str-format 
         )                                ;getkword 
  )                                        ;setq 
  (if (or (not a) (equal a ""))                ;or 
    (setq a #bns_tcount_mode)                ;setq then 
  )                                        ;if 
  (setq #bns_tcount_mode a) 
  (if (equal a "Find&replace") 
    (progn (setq r "") 
           (while (equal r "") 
             (setq r (getstring        T 
                                (strcat        "\nEnter search string <" 
                                        #bns_tcount_replace 
                                        ">: " 
                                ) 
                     ) 
             )                                ;setq 
             (if (not (equal r "")) 
               (setq #bns_tcount_replace r) ;setq then 
               (setq r #bns_tcount_replace) ;setq else 
             )                                ;if 
             (if (equal r "") 
               (princ "*Invalid* Empty search string not allowed.") 
             )                                ;if 
           )                                ;while 
    )                                        ;progn then 
  )                                        ;if 
  #bns_tcount_mode 
)                                        ;defun bns_get_tcountmode_cmd 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
                                        ; 
(defun bns_tcount 
       (ss ss_sort start inc mode str / a na e1 e2 n lst b j) 
  (if (not (equal "Select-order" ss_sort)) 
    (progn 
      (cond 
        ((equal "X" ss_sort) 
         (setq ss (bns_esort ss 
                             '((e1) (car (cdr (assoc 10 e1)))) 
                                        ;quoted function for x 
                  ) 
         )                                ;setq 
        )                                ;cond #1 
        ((equal "Y" ss_sort) 
         (setq 
           ss (bns_esort ss 
                         '((e1) (* -1.0 (cadr (cdr (assoc 10 e1))))) 
                                        ;quoted function for y 
              ) 
         )                                ;setq 
        )                                ;cond #2 
        ((equal "Z" ss_sort) 
         (setq ss (bns_esort ss '((e1) (caddr (cdr (assoc 10 e1)))))) 
                                        ;setq 
        )                                ;cond #3 
      )                                        ;cond close 
    )                                        ;progn then 
  )                                        ;if 
  (setq j 0) 
  (setq n 0)                                ;setq 
  (repeat (sslength ss) 
    (setq na (ssname ss n) 
          e1 (entget na) 
          e2 e1 
    )                                        ;setq 
    (cond ((equal "TEXT" (cdr (assoc 0 e1))) 
           (setq a (itoa start)) 
           (setq a (place_tcount 
                     (cdr (assoc 1 e1))        ;the original 
                     a                        ;the number 
                     mode 
                     str                ;Search string to use if 
                   )                        ;mode=Find&replace 
           )                                ;setq 
           (entmod (subst (cons 1 a) (assoc 1 e1) e1) ;subst 
           )                                ;entmod 
          )                                ;cond #1 
          ((equal "MTEXT" (cdr (assoc 0 e1))) 
                                        ;first build one big string from the 3 and 1 group codes 
           (setq a "") 
           (foreach x e1 
             (if (= (car x) 3) 
               (setq a (strcat a (cdr x))) 
             ) 
           )                                ;foreach 
                                        ;then split it apart using \\p  (paragraph) as a delimiter 
           (setq a   (strcat a (cdr (assoc 1 e1))) 
                 lst (acet-str-to-list "\\P" a) 
                 b   "" 
           )                                ;setq 
                                        ;then make the number additions and build one big string again. 
           (foreach x lst 
             (setq a (itoa start)) 
             (setq a (place_tcount 
                       x                ;the original 
                       a                ;the number 
                       mode 
                       str                ;Search string to use if 
                     )                        ;mode=Find&replace 
                   b (strcat b "\\P" a) 
             )                                ;setq 
             (setq start (+ start inc))        ;setq 
           )                                ;foreach 
           (setq start (- start inc))        ;setq 
           (setq b   (substr b 3) 
                 lst nil 
           )                                ;setq 
                                        ;the rebuild the e-list without the 3 and 1 group codes. 
           (foreach x e1 
             (if (and (/= (car x) 3) (/= (car x) 1)) ;and 
               (setq lst (append lst (list x))) 
             ) 
           )                                ;foreach 
                                        ;split the new big string apart and place in the elist as 3 and 1 group codes. 
           (setq e1 lst) 
           (while (> (strlen b) 250) 
             (setq e1 (append e1 (list (cons 3 (substr b 1 250)))) 
                                        ;append 
                   b  (substr b 251) 
             )                                ;setq 
           )                                ;while 
           (setq e1 (append e1 (list (cons 1 b)))) ;setq 
           (entmod e1) 
          )                                ;cond #2 
          ((equal "ATTDEF" (cdr (assoc 0 e1))) 
           (setq a (itoa start)) 
           (setq a (place_tcount 
                     (cdr (assoc 2 e1))        ;the original 
                     a                        ;the number 
                     mode 
                     str                ;Search string to use if 
                   )                        ;mode=Find&replace 
           )                                ;setq 
           (setq a (acet-str-replace " " "" a)) 
                                        ;spaces are not allowed in attdefs so remove them 
           (entmod (subst (cons 2 a) (assoc 2 e1) e1) ;subst 
           )                                ;entmod 
          )                                ;cond #3 
    )                                        ;cond close 
    (if        (not (equal e2 (entget (cdr (assoc -1 e2))))) 
      (setq j (+ j 1)) 
    ) 
    (setq n (+ n 1))                        ;setq 
    (setq start (+ start inc))                ;setq 
  )                                        ;repeat 
  j 
)                                        ;defun bns_tcount 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; 
                                        ; TCOUNT  TEXT COUNT 
(defun c:tcount        (/ ss_sort ss start inc startinc flag flt n) 
  (acet-error-init 
    (list (list        "cmdecho" 
                0 
                "highlight" 
                (getvar "highlight") 
                "limcheck" 
                0 
          )                                ;list 
          T 
    )                                        ;list 
  )                                        ;acet-error-init 
  (setq        flt '((-4 . "<OR") 
              (0 . "TEXT") 
              (0 . "MTEXT") 
              (0 . "ATTDEF") 
              (-4 . "OR>") 
             ) 
  )                                        ;setq 
  (if (and (setq ss (ssget flt))        ;setq 
;;;         (setq ss (car (acet-ss-filter (list ss 
;;;                                             '(("LAYERUNLOCKED") ;Dis-allow locked layers, non-current-space 
;;;                                               ("CURRENTUCS")    ;and dis-allow objects not in current ucs 
;;;                                              ) 
;;;                                             T 
;;;                                       );list 
;;;                       );acet-ss-filter 
;;;                  );car 
;;;         );setq 
      )                                        ;and 
    (progn 
      (if (not #bns_tcount_sort) 
        (setq #bns_tcount_sort "Select-order") 
      )                                        ;if 
      (initget "X Y Select-order") 
      (setq ss_sort 
             (getkword 
               (acet-str-format 
                 "\nSort selected objects by [X/Y/Select-order] <%1>: " 
                 #bns_tcount_sort 
               )                        ;acet-str-format 
             )                                ;getkword 
      )                                        ;setq 
      (if (or (not ss_sort) (equal ss_sort "")) ;or 
        (setq ss_sort #bns_tcount_sort)        ;setq then 
        (setq #bns_tcount_sort ss_sort)        ;setq else 
      )                                        ;if 
      (if (not #bns_tcount_start) 
        (setq #bns_tcount_start 1) 
      )                                        ;if 
      (if (not #bns_tcount_inc) 
        (setq #bns_tcount_inc 1) 
      )                                        ;if 
      (while (not flag) 
        (setq flag T) 
        (setq startinc (strcat (itoa (fix #bns_tcount_start)) 
                               "," 
                               (itoa (fix #bns_tcount_inc)) 
                       )                ;strcat 
              startinc (getstring 
                         (acet-str-format 
                           "\nSpecify starting number and increment (Start,increment) <%1>: " 
                           startinc 
                         )                ;acet-str-format 
                       )                ;getstring 
        )                                ;setq 
        (if (equal startinc "") 
          (setq        startinc (strcat (itoa (fix #bns_tcount_start)) 
                                 "," 
                                 (itoa (fix #bns_tcount_inc)) 
                         )                ;strcat 
          )                                ;setq 
        )                                ;if 
        (setq startinc (acet-str-to-list "," startinc)) 
        (if 
          (or 
            (not (car startinc)) 
            (not (numberp (read (car startinc)))) 
            (and (cadr startinc) (not (numberp (read (cadr startinc))))) 
                                        ;and 
          )                                ;or 
           (progn (princ "\nInvalid input.") (setq flag nil)) 
                                        ;progn then 
        )                                ;if 
        (setq start (atoi (car startinc))) ;setq 
        (if (cadr startinc) 
          (setq inc (atoi (cadr startinc))) ;setq then 
          (setq inc 1)                        ;setq else 
        )                                ;if 
        (if start 
          (setq #bns_tcount_start start) 
        )                                ;if 
        (if (or (not inc) (equal inc 0)) ;or 
          (setq inc #bns_tcount_inc)        ;setq then 
        )                                ;if 
        (if inc 
          (setq #bns_tcount_inc inc) 
        )                                ;if 
      )                                        ;while 
      (bns_get_tcountmode_cmd) 
      (setq n (bns_tcount 
                ss                        ;the selection set 
                ss_sort                        ;the sort type 
                start                        ;the start number 
                inc                        ;the increment 
                #bns_tcount_mode        ;placement mode =overwrite/prefix/suffix/find&replace 
                #bns_tcount_replace        ;search string for Find&replace option. 
               ) 
      )                                        ;setq 
      (princ (acet-str-format "\n%1 objects modified." (itoa n))) 
      (if ss 
        (command "_.select" ss "") 
      )                                        ;if 
    )                                        ;progn then 
  )                                        ;if 
  (acet-error-restore) 
)                                        ;defun c:tcount

dmxcs · 发表于 2021-9-5 10:21:03

晓东工具箱和探索者的填充材料命令（JZHTCHCL）也冲突，提示是
调用(*push-error-using-command*)前无法从 *error* 调用(command)。
建议将(command)调用转换为(command-s)。

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

[软件应用] 请教下如何关闭晓东工具箱随cad启动