---

hallo leute,

gibt es eine möglichkeit, mit einem einzigen arbeitsschritt allen schraffuren in meiner zeichnung den schraffurursprung auf die jeweils assoziative umgrenzung zuzuweisen. das bei jeder einzelnen zu erledigen ist eine höllenarbeit.

lg, roland

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hallo roland

Es ist nicht das gelbe vom ei aber sollte funktionieren.

einfach den text in ein .lsp datei speichern DEINBEFEHL anpassen und ins autocad ziehen...

ich hoffe du hast eine deutsche version denn die kürzel des befehles weiss ich nicht auf englisch...

Code:

---

(defun c:DEINBEFEHL ( / fehler *error* save-cmdecho ss i)
  (defun *fehler* (s / )
    (princ "\nFehler! ")
    (princ s)
    (setvar "cmdecho" save-cmdecho)
  )
  (setq fehler *error* *error* *fehler*)
  (setq save-cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
 
  (setq ss (ssget '((0 . "HATCH"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (command "_hatchedit" ent "r" "o" "l" "j")
    (setq i (1+ i))
  )
 
  (setvar "cmdecho" save-cmdecho)
  (setq *error* fehler)
  (princ)
)

---

teste zuerst mal ob es das macht was du willst bevor du an die scharfe zeichnung gehst.

gruss steff

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

das hat jetzt leider gar nicht funktioniert. es wurden 2 schraffuren entfernt und der rest hat sich nit veränder 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

hmmm keine ahnung was du für schraffuren hast :s

könntest du mal die zeichnung oder zumindest den ausschnit der nicht geht reinstellen?
version 2006 habe gerade keinen zugriff auf eine höhere...

gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Steff179:
hallo roland

Es ist nicht das gelbe vom ei aber sollte funktionieren.

einfach den text in ein .lsp datei speichern DEINBEFEHL anpassen und ins autocad ziehen...

ich hoffe du hast eine deutsche version denn die kürzel des befehles weiss ich nicht auf englisch...

Code:

---

(defun c:DEINBEFEHL ( / fehler *error* save-cmdecho ss i)
  (defun *fehler* (s / )
    (princ "\nFehler! ")
    (princ s)
    (setvar "cmdecho" save-cmdecho)
  )
  (setq fehler *error* *error* *fehler*)
  (setq save-cmdecho (getvar "cmdecho"))
  (setvar "cmdecho" 0)
 
  (setq ss (ssget '((0 . "HATCH"))))
  (setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (command "_hatchedit" ent "r" "o" "l" "j")
    (setq i (1+ i))
  )
 
  (setvar "cmdecho" save-cmdecho)
  (setq *error* fehler)
  (princ)
)

---

teste zuerst mal ob es das macht was du willst bevor du an die scharfe zeichnung gehst.

gruss steff

---

mal ne Anmerkung:
1. filter bloß die Schraffuren des aktuellen Layouts
2. der Auswahlsatz kann auch mal leer sein,.. dann kracht dein Prog  ... bau doch einfach noch ein if mit ein .. der Test kostet kaum Rechnerzeit ...
3. würd ich den commandaufruf Errorcatchen .... dann läuft das Programm auf alle Fälle durch ( und versucht es auch bei nachfolgenden Schraffuren )

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von CADmium:
1. filter bloß die Schraffuren des aktuellen Layouts
2. der Auswahlsatz kann auch mal leer sein,.. dann kracht dein Prog  ... bau doch einfach noch ein if mit ein .. der Test kostet kaum Rechnerzeit ...
3. würd ich den commandaufruf Errorcatchen .... dann läuft das Programm auf alle Fälle durch ( und versucht es auch bei nachfolgenden Schraffuren )

---

das set prüfen ist kein problem...
nur Schraffuren des aktuellen layouts bringe ich irgendwie hin... hab mich noch nicht damitt befasst...
aber vom "commandaufruf Errorcatchen" habe ich keinen plan..

habe jetzt einige zeit gesucht wie ich das anstellen könnte, bin aber auf nichts gestossen was mir weiterhilft...

muss ich das mit vla-sendcommand und vl-catch.... machen?
oder sehe ich den wald vor lauter bäumen mal wider nicht?

wenn ja habe ich wider eine woche zu lesen, denn die vla- dinger kenne ich nicht wirklich...

gruss

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Steff179:
...
aber vom "commandaufruf Errorcatchen" habe ich keinen plan..

habe jetzt einige zeit gesucht wie ich das anstellen könnte, bin aber auf nichts gestossen was mir weiterhilft...

muss ich das mit vla-sendcommand und vl-catch.... machen?
oder sehe ich den wald vor lauter bäumen mal wider nicht?

---

Hi,
versuch mal
(vl-catch-all-apply '(lambda (command ".... )))
und schau dir die Hilfe dazu an, ausreichend Beispiele findest du im Lisp-Brett.
Und den Rest bekommst du sicher auch noch hin 

------------------
Mfg Heiko

Elefantenjagd in Afrika
"... LISP-Programmierer bauen einen Irrgarten aus Klammern und hoffen, dass sich der Elefant darin verirrt..."   (www.uni-leipzig.de/~rotheh/elefant.htm)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Danke für die info werde das morgen mal machen. muss jetzt aber weg...
schönen abend...

ps.: werde in diesem tread nicht mer weiter posten weil das ja schon ins lisp forum gehört. bei bedarf giebts dann halt einen neuen tread im richtigen forum.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP