Problème lisp en version anglaise pour recréer plusieurs contours

[athanatos]

Bonjour à tous !

J'ouvre ce sujet pour demander des informations sur plusieurs lisp réseau qui devraient permettre de recréer les contours de plus de rétines.

l'un des nombreux est ceci

;handy autocad-12 hach éditer 06/08/2009
;auteur: alex borodulin
;nyacad, inc. http://www.nyacad.com(defun c:has(/ gp) (setq gp (ssget))(commande "-hachedit" gp "as" pause));convertir l'éclosion en association
(défun c:hbo(/ gp) (setq gp (ssget))(commande "-hachedit" gp "b" "p" "y")); ajouter la limite à l'éclosion
(defun c:hf(/ gp) (setq gp (ssget))(command "-hachedit" gp "o" "s" pause "n")); correction de l'hatch
(défun c:hs(/ gp) (setq gp (ssget))(command "-hachedit" gp "h"));

oppure questo reperibile qui
http://forums.autodesk.com/t5/visua...olygons-each-in-the-layer/td-p/3275725/page/1le problème de ces codes est qu'ils fonctionnent probablement avec les versions anglaises d'autocad.

En fait (dans autocad 2013) la commande "-hachedit" en italien devient "_hachedit". Je ne trouve pas de correspondance avec les commandes b p y.

Quelqu'un a-t-il une solution à proposer ou à utiliser ?

Merci encore pour l'aide.

salutations

 

[PlannerRoad]

vous devez mettre le soulignement pour les faire "interpréter en italien".

[COLOR=#333333];handy autocad-12 hach éditer 06/08/2009[/COLOR]
[COLOR=#333333];auteur: alex borodulin[/COLOR]
[COLOR=#333333];nyacad, inc. [/COLOR][URL="http://www.nyacad.com/"]http://www.nyacad.com[/URL]
[COLOR=#333333](defun c:has(/ gp) (setq gp (ssget))(commande "_-hachedit" gp "_as" pause));convertir l'éclosion en association[/COLOR]
[COLOR=#333333](defun c:hbo(/ gp) (setq gp (ssget))(command "_-hachedit" gp "_b" "_p" "_y")); ajouter la limite à l'écoutille[/COLOR]
[COLOR=#333333](defun c:hf(/ gp) (setq gp (ssget))(command "_-hatchedit" gp "_o" "_s" pause "_n")); correctif hatch[/COLOR]
[COLOR=#333333](defun c:hs(/ gp) (setq gp (ssget))(commande "_-hachedit" gp "_h"));hatch séparé[/COLOR]

 

[Cristallo]

b = limite (remplaceable à partir de _b)
p = polyligne (je crois qu'elle est identique entre l'eng et l'ita)
y = oui (servez une explication? )

dans tous les cas suivre la ligne de commande et afficher les options de commande en italien
ou alternativement, vous aurez un accent à la fois aux contrôles et aux options et voir si elle va

 

[athanatos]

Merci aux deux pour l'aide.

J'ai essayé d'utiliser la solution à bas tiret et ça fonctionne vraiment.

Mon problème est cependant lié à la tyration de l'opération sur de nombreux réseaux: En fait, je viens d'exporter de qgis une série d'échantillons qui dans le fichier dxf n'ont pas le contour. Je dois donc fournir pour recréer le contour de centaines d'échantillons.

le lisp précédent permet de le recréer mais en cliquant manuellement sur chaque échantillon... Je cherche une solution parce qu'autocad le fait automatiquement.

cette liste (du deuxième lien) semble faire à mon cas (corriger moi si je me trompe)

;;;recreate-hatch-boundaries.lsp écrit par muray clack, le 19 novembre 2010
;;; cette routine recréera des limites autour de plusieurs modèles d'éclosion sélectionnés et rend les modèles associatifs
(prompt "\nhatch-recreate-boundaries.lsp chargé, saisissez 'hatch_recreate_boundaries' à exécuter")
(défun c:hatch_recreate_boundaries (/ oldce sset cnt obj)
(setq oldce (getvar "cmdecho")
(setvar "cmdecho" 0)
(principaux objets d'écoutille
(setq sset (ssget))
(setq cnt -1)
(alors que (setq obj (ssname sset (setq cnt (1+ cnt))))
(commande "_-hachedit" obj "_b" "_p" "_y")
(commande "_changer" cnt "p" "la" "defpoints" "")
)

(setvar "cmdecho" vieille)
(principal)
)

mettre le seul en bas devant l'écoutille et les trois lettres (dont les correspondants italiens sont r, pour la récréation, p, pour la polylinea, s, pour si) ne fonctionnent pas automatiquement (il n'y a pas d'itération).

Une idée ?

salutations et merci encore pour la courtoisie.

 

[athanatos]

Bonjour.
Je réponds moi-même.

J'ai lu la liste et je me suis rendu compte que le code recréait la polyligne limite et changeait ensuite les calques (en la mettant dans des points, avec l'instance _change). Je viens de supprimer la ligne de code pour cet événement et le code a parfaitement fonctionné!

voici donc la liste de travail (prouvé sur autocad 2013)

;;;recreate-hatch-boundaries.lsp écrit par muray clack, le 19 novembre 2010
;;;modificato dall'utente athanatos nel forum cad3d, luglio 21, 2016
;;; cette routine recréera des limites autour de plusieurs modèles d'éclosion sélectionnés et rend les modèles associatifs
(prompte "\nhatch-recreate-boundaries.lsp caricato, scrivere 'hrb' par eseguire)
(défun c:hatch_recreate_boundaries (/ oldce sset cnt obj)
(setq oldce (getvar "cmdecho")
(setvar "cmdecho" 0)
(principaux objets d'écoutille
(setq sset (ssget))
(setq cnt -1)
(alors que (setq obj (ssname sset (setq cnt (1+ cnt))))
(commande "_-hachedit" obj "_b" "_p" "_y")
)

(setvar "cmdecho" vieille)
(principal)
)

Essaie juste d'être sûr. Merci encore pour l'aide,

salutations et bon travail