大家看看这个超级炸块的乱码是什么意思，能不能翻译正确

Grgogo

;;; Copyright (C) Patrick_35
;;; 超级嵌套块炸开
;;;=================================================================

(defun c:xxx(/ doc n s sel tot *errexp* decomposer)

  (defun *errexp* (msg)
    (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON"))
      (princ (strcat "\nErreur : " msg))
    )
    (vla-endundomark doc)
    (setq *error* s)
    (princ)
  )

  (defun decomposer(ent / ele new)
    (and (vlax-method-applicable-p ent 'explode)
         (not (vl-catch-all-error-p (setq new (vl-catch-all-apply 'vla-explode (list ent)))))
      (setq tot (1+ tot))
      (mapcar 'decomposer (vlax-safearray->list (vlax-variant-value new)))
      (vla-delete ent)
    )
  )

  (vl-load-com)
  (setq s *error*
        *error* *errexp*
        doc (vla-get-activedocument (vlax-get-acad-object))
        tot 0
  )
  (vla-startundomark doc)
  (and (ssget)
    (progn
      (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'decomposer)
      (vla-delete sel)
    )
  )
  (vla-endundomark doc)
  (setq *error* s)
  (princ (strcat "\n" (itoa tot) " objet(s) d閏ompos?s)"))
  (princ)
)

(setq nom_lisp "xxx")
(if (/= app nil)
  (if (= (strcase (substr app (1+ (- (strlen app) (strlen nom_lisp))) (strlen nom_lisp))) nom_lisp)
    (princ (strcat "..." nom_lisp " charg?"))
    (princ (strcat "\n" nom_lisp ".LSP Charg?....Tapez " nom_lisp " pour l'閤ecuter.")))
  (princ (strcat "\n" nom_lisp ".LSP Charg?.....Tapez " nom_lisp " pour l'閤ecuter.")))
(setq nom_lisp nil)
(princ)

hhh454

;;; Copyright (C) Patrick_35
;;; 超级嵌套块炸开
;;;=================================================================

(defun c:xxx(/ doc n s sel tot *errexp* decomposer)

  (defun *errexp* (msg)
    (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR

ABANDON"))
      (princ (strcat "\nErreur : " msg))
    )
    (vla-endundomark doc)
    (setq *error* s)
    (princ)
  )

  (defun decomposer(ent / ele new)
    (and (vlax-method-applicable-p ent 'explode)
         (not (vl-catch-all-error-p (setq new (vl-catch-all-apply 'vla-explode (list ent)))))
      (setq tot (1+ tot))
      (mapcar 'decomposer (vlax-safearray->list (vlax-variant-value new)))
      (vla-delete ent)
    )
  )

  (vl-load-com)
  (setq s *error*
        *error* *errexp*
        doc (vla-get-activedocument (vlax-get-acad-object))
        tot 0
  )
  (vla-startundomark doc)
  (and (ssget)
    (progn
      (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'decomposer)
      (vla-delete sel)
    )
  )
  (vla-endundomark doc)
  (setq *error* s)
  (princ (strcat "\n" (itoa tot) " 个(炸开)"))
  (princ)
)

试了下数量对不上，可能是其他意思

xj6019

;;; Copyright (C) Patrick_35
;;; 超级嵌套块炸开
;;;=================================================================

(defun c:xxx(/ doc n s sel tot *errexp* decomposer)

  (defun *errexp* (msg)
    (or (member (strcase msg) '("FUNCTION CANCELLED" ""QUIT / EXIT ABORT"" "FONCTION ANNULEE" "QUITTER / SORTIR ABANDON"))
      (princ (strcat "\nErreur : " msg))
    )
    (vla-endundomark doc)
    (setq *error* s)
    (princ)
  )

  (defun decomposer(ent / ele new)
    (and (vlax-method-applicable-p ent 'explode)
         (not (vl-catch-all-error-p (setq new (vl-catch-all-apply 'vla-explode (list ent)))))
      (setq tot (1+ tot))
      (mapcar 'decomposer (vlax-safearray->list (vlax-variant-value new)))
      (vla-delete ent)
    )
  )

  (vl-load-com)
  (setq s *error*
        *error* *errexp*
        doc (vla-get-activedocument (vlax-get-acad-object))
        tot 0
  )
  (vla-startundomark doc)
  (and (ssget)
    (progn
      (vlax-map-collection (setq sel (vla-get-activeselectionset doc)) 'decomposer)
      (vla-delete sel)
    )
  )
  (vla-endundomark doc)
  (setq *error* s)
  (princ (strcat "\n" (itoa tot) " objet(s) d閏ompos?s)"))
  (princ)
)

Grgogo

追寻 发表于 2022-6-24 13:51
你把原LSP发出来，可以帮你翻译乱码部分，已经粘贴到网页上的翻译不了，字形已经改变了

在楼下，帮忙看看，这个具体是起到了哪些作用，然后乱码删减一下，精简一下，因为使用完插件，命令行中会有乱码

Grgogo

大概翻译一下，这个插件是干嘛用的，有什么特别的

xj6019

乱码的部分删掉就行  没什么用

Grgogo

xj6019 发表于 2022-6-24 07:50
乱码的部分删掉就行  没什么用

我也不敢乱删。。。能帮忙删一下吗，精简一下

追寻

你把原LSP发出来，可以帮你翻译乱码部分，已经粘贴到网页上的翻译不了，字形已经改变了

Grgogo

麻烦帮忙看看，

Grgogo

hhh454 发表于 2022-6-28 23:34
;;; Copyright (C) Patrick_35
;;; 超级嵌套块炸开
;;;=============================================== ...

其实我发现，这个插件，不光是把块炸开了，还把图形给分解了。