Problem lisp in englischer Version, um mehrere Konturen wiederherzustellen

[athanatos]

Guten Morgen, alle!

Ich öffne dieses Thema, um nach Informationen über mehrere Netzwerk-Spule zu fragen, die erlauben sollte, die Konturen von mehr Retinals wiederherzustellen.

einer der vielen ist dies

;handy autocad-12 Luke bearbeiten 06/08/2009
; Autor: alex borodulin
;nyacad, inc. http://www.nyacad.com(defun c:has(/gp) (setq gp (ssget)))(Befehl "-hatchedit" gp "as" pause));convert Luke to associative
(defun c:hbo(/gp) (setq gp (ssget)))(Befehl "-hatchedit" gp "b" "p" "y"));
(defun c:hf(/gp) (setq gp (ssget)))(Befehl "-hatchedit" gp "o" "s" Pause "n"));hatch fix
(defun c:hs(/gp) (setq gp (ssget)))(Befehl "-hatchedit" gp "h"));hatch separate

oppure questo qui
http://forums.autodesk.com/t5/visua...olygons-each-in-the-layer/td-p/3275725/page/1das Problem dieser Codes ist, dass sie wahrscheinlich mit den englischen Versionen von autocad arbeiten.

Tatsächlich (im autocad 2013) wird der Befehl "-hatchedit" auf Italienisch "_hatchedit". Ich finde keine Übereinstimmung für die b p y Befehle.

Hat jemand eine Lösung, um Lisp vorzuschlagen oder zu arbeiten?

Danke noch mal für die Hilfe.

Grüße

 

[PlannerRoad]

Sie müssen den Underscore setzen, um sie "interpret auf Italienisch" zu machen.

[COLOR=#333333];handy autocad-12 Luke bearbeiten 06/08/2009[/COLOR]
[COLOR=#333333]; Autor: 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)))(Befehl "_-hatchedit" gp "_as" Pause));convert Luke to associative[/COLOR]
[COLOR=#333333](defun c:hbo(/gp) (setq gp (ssget)))(Befehl "_-hatchedit" gp "_b" "_p" "_y"));[/COLOR]
[COLOR=#333333](defun c:hf(/gp) (setq gp (ssget)))(Befehl "_-hatchedit" gp "_o" "_s" Pause "_n"));hatch fix[/COLOR]
[COLOR=#333333](defun c:hs(/gp) (setq gp (ssget)))(Befehl "_-hatchedit" gp "_h"));hatch separate[/COLOR]

 

[Cristallo]

b = Grenze (aus _b)
p = Polyline (Ich glaube, es ist identisch zwischen eng und ita)
y = ja (erhält eine Erklärung?)

in allen Fällen folgen Sie der Befehlszeile und sehen Sie die Befehlsoptionen auf Italienisch
oder alternativ, Sie haben einen Unterpunkt sowohl an den Kontrollen und Optionen und sehen, ob es geht

 

[athanatos]

Dank beiden für die Hilfe.

Ich versuchte, die Low-Dash-Lösung zu verwenden und es funktioniert tatsächlich.

Mein Problem ist jedoch mit der Tyration der Operation in vielen Netzwerken verbunden: Tatsächlich habe ich gerade aus qgis eine Reihe von Stichproben exportiert, die in der dxf-Datei nicht die Kontur haben. Deshalb muss ich dafür sorgen, die Kontur von Hunderten von Proben neu zu gestalten.

die vorherige lisp erlaubt es, es neu zu erstellen, aber durch manuelles Anklicken jeder Probe... Ich suche nach einer Lösung, weil Autocad es automatisch macht.

Diese Liste (aus dem zweiten Link) scheint zu meinem Fall zu tun (richtigen Sie mich, wenn ich falsch bin)

;;;recreate-hatch-boundaries.lsp geschrieben von murray clack, november 19, 2010
;;; diese Routine wird Grenzen um mehrere ausgewählte Lukenmuster neu definieren und macht die Muster assoziativ
(Prompt "\nhatch-recreate-boundaries.lsp geladen, geben Sie 'hatch_recreate_boundaries' um auszuführen)
(defun c:hatch_recreate_boundaries (/ oldce sset cnt obj)
(setq oldce (getvar "cmdecho")
(Setvar "cmdecho" 0)
(princ "\nselect Lukenobjekte: ")
(setq sset (ssget))
(setq cnt -1)
(while (setq obj (ssname sset (setq cnt (1+ cnt)))))
(Befehl "_-hatchedit" obj "_b" "_p" "_y")
(Befehl "_change" cnt "p" "la" "defpoints" "")
)

(Setvar "cmdecho" altce)
(princ)
)

Das Einsetzen der einzigen vor dem Schlüpfen und die drei Buchstaben (die italienischen Korrespondenten sind r, für die Erholung, p, für Polylinea, s, für si) funktioniert nicht automatisch (es gibt keine Iteration).

Irgendeine Idee?

Grüße und Dank wieder für die Höflichkeit.

 

[athanatos]

Guten Morgen.
Ich bin selbstverantwortlich.

Ich las die Liste und erkannte, dass der Code die Rand-Polyline wiederhergestellt und dann Schichten geändert (in Defpoints, mit der _change Instanz). Ich habe die Codezeile für dieses Ereignis gelöscht und der Code funktionierte perfekt!

hier ist daher die Liste funktioniert (produziert auf autocad 2013)

;;;recreate-hatch-boundaries.lsp geschrieben von murray clack, november 19, 2010
;;;modificato dall'utente athanatos nel forum cad3d, luglio 21, 2016
;;; diese Routine wird Grenzen um mehrere ausgewählte Lukenmuster neu definieren und macht die Muster assoziativ
(Prompt "\nhatch-recreate-boundaries.lsp caricato, scrivere 'hrb' per eseguire)
(defun c:hatch_recreate_boundaries (/ oldce sset cnt obj)
(setq oldce (getvar "cmdecho")
(Setvar "cmdecho" 0)
(princ "\nselect Lukenobjekte: ")
(setq sset (ssget))
(setq cnt -1)
(while (setq obj (ssname sset (setq cnt (1+ cnt)))))
(Befehl "_-hatchedit" obj "_b" "_p" "_y")
)

(Setvar "cmdecho" altce)
(princ)
)

Versuchen Sie es nur sicher zu sein. Danke noch einmal für die Hilfe,

Grüße und gute Arbeit