Grgogo 发表于 2022-6-24 00:26:18

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

;;; 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 发表于 2022-6-28 23:34:02

;;; 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 发表于 2022-6-24 10:45:43


;;; 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 14:11:47

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

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

Grgogo 发表于 2022-6-24 00:27:23

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

xj6019 发表于 2022-6-24 07:50:48

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

Grgogo 发表于 2022-6-24 10:41:23

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

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

追寻 发表于 2022-6-24 13:51:57

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

Grgogo 发表于 2022-6-24 14:10:39

麻烦帮忙看看，

Grgogo 发表于 2022-6-29 03:34:00

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

其实我发现，这个插件，不光是把块炸开了，还把图形给分解了。
页: [1] 2
查看完整版本: 大家看看这个超级炸块的乱码是什么意思，能不能翻译正确