Hot News:

Mit Unterstützung durch:

  Foren auf CAD.de (alle Foren)
  Lisp
  Schraffur mit entmod verändern

Antwort erstellen  Neues Thema erstellen
CAD.de Login | Logout | Profil | Profil bearbeiten | Registrieren | Voreinstellungen | Hilfe | Suchen

Anzeige:

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen nächster neuer Beitrag | nächster älterer Beitrag
  
Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte
Autor Thema:  Schraffur mit entmod verändern (1562 mal gelesen)
Alfonso
Mitglied
Holztechniker


Sehen Sie sich das Profil von Alfonso an!   Senden Sie eine Private Message an Alfonso  Schreiben Sie einen Gästebucheintrag für Alfonso

Beiträge: 44
Registriert: 24.08.2005

HP Workstation Z400
Intel(R) Xeon(R) CPU W3550 @ 3.06GHz
16.0 GB RAM
Nvidea Quadro 4000
Windows 7 Proffessional 64bit
AutoCAD 2012
Inventor 2012
Navisworks Manage 2012

erstellt am: 16. Aug. 2007 12:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

bin gerade dabei das schraffieren mit einem Lisp zu vereinfachen. Wenn ich mit folgendem Code den Abstand bei einer Benutzerdefinierten Schraffur verändere, wird der neue Abstand in den Eigenschaften angezeigt. Die Schraffur selber verändert sich aber nicht. Woran kann das liegen?

(entmod (subst '(41 . 10) (assoc 41 (entget (entlast))) (entget (entlast))))


Gruß Alfonso

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

wronzky
Ehrenmitglied V.I.P. h.c.
CAD-Dienstleistungen für Architekten



Sehen Sie sich das Profil von wronzky an!   Senden Sie eine Private Message an wronzky  Schreiben Sie einen Gästebucheintrag für wronzky

Beiträge: 2154
Registriert: 02.05.2005

CAD:
AutoCAD 2.6 bis 2014
ADT 2005 - 2014
Arcibem
System:
Windows 2000, XP, NO VISTA
Internet-Startseite:
http://www.archi.de

erstellt am: 16. Aug. 2007 13:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

Hallo Alfonso,
da in der Schraffur auch die aktuellen Musterdaten mit abgespeichert werden, müsstest Du warscheinlich die entsprechenden Einträge (GC 45, 46, 49) auch noch "skalieren", damit das Muster geändert angezeigt wird. (Hab's noch nicht gebraucht, aber probiers mal aus).

Grüsse, Henning

------------------
VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure

  http://www.voxelman.de

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 16. Aug. 2007 13:14    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

Probiers mit
(and(setq HATCH(car(Entsel)))
    (setq HATCH(vlax-ename->vla-object HATCH))
    (=(strcase(vla-get-objectname HATCH))"ACDBHATCH")
    (not(vl-catch-all-error-p
          (vl-catch-all-apply
            'vla-put-PatternSpace
            (list HATCH 10.0)
          )
        )
    )
    (vla-evaluate HATCH)
)

oder  mit
(setq HATCH(entlast)))
(entmake (subst '(41 . 10) (assoc 41 (entget HATCH)) (entget HATCH)))
(entdel HATCH)

Die Schraffur muß ja neu aufgebaut werden .. (evaluate ..)

------------------
  - 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

joern bosse
Ehrenmitglied
Dipl.-Ing. Vermessung


Sehen Sie sich das Profil von joern bosse an!   Senden Sie eine Private Message an joern bosse  Schreiben Sie einen Gästebucheintrag für joern bosse

Beiträge: 1734
Registriert: 11.10.2004

Window 10
ACAD 2021
CIVIL 2021
BricsCAD V14-V22
Intel(R) Core(TM)i5-8250U CPU @ 1.60GHz 1.80 GHz
16.0GB RAM
NVIDIA GeForce GTX 1050<P>

erstellt am: 16. Aug. 2007 13:31    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

Hallo,
hier noch mal ein Test, in dem die Musterdaten GC 45, 46, 49 mit geändert werden:
Code:

(defun c:hatch_test (/ hatch skal_alt skal_neu)
  (setq hatch (car(entsel))
        skal_alt (cdr(assoc 41 (entget hatch)))
skal_neu (getreal "\nBitte neue Skalierung:"))
  (entmod
  (mapcar '(lambda(A)
    (cond ((member (car A)'(41))
    (cons (car A)skal_neu))
  ((member (car A)'(45 46 49))
    (cons (car A) (/(cdr A) (/ skal_alt skal_neu))))
  ('T A)))(entget hatch))))

VORSICHT:
Vor dem Gebrauch sollte folgendes bedacht werden: wenn ich die Skalierung einer Schraffur im Eigenschaftenfenster von ACAD2006 ändere ist eine "Sperre" vorhanden, so daß ich keine zu kleine Skalierung eingeben kann. Mit dieser Funktion ist das möglich, wenn der Wert zu klein ist, dann ist ACAD völlig überlastet => ALT+STRG+ENTF

------------------
viele Grüße

Jörn

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

Alfonso
Mitglied
Holztechniker


Sehen Sie sich das Profil von Alfonso an!   Senden Sie eine Private Message an Alfonso  Schreiben Sie einen Gästebucheintrag für Alfonso

Beiträge: 44
Registriert: 24.08.2005

HP Workstation Z400
Intel(R) Xeon(R) CPU W3550 @ 3.06GHz
16.0 GB RAM
Nvidea Quadro 4000
Windows 7 Proffessional 64bit
AutoCAD 2012
Inventor 2012
Navisworks Manage 2012

erstellt am: 20. Aug. 2007 12:11    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities

Hallo,

habe beide Versionen ausprobiert und es funktioniert. Vielen Dank!

Gruß Alfonso

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

Wolfgang S
Mitglied
CADaver


Sehen Sie sich das Profil von Wolfgang S an!   Senden Sie eine Private Message an Wolfgang S  Schreiben Sie einen Gästebucheintrag für Wolfgang S

Beiträge: 270
Registriert: 06.03.2006

AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 +
Win XP, Win XP64, Win 7/64

erstellt am: 23. Aug. 2007 11:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

Hab das Tool gerade ausprobiert, es ist wieder (mein altes) Problem:

Das Hatch wird im aktuellen UCS neu aufgebaut, die Richtungen der Schraffuren sind somit vorher und nachher nicht gleich.

kennt Ihr ´ne Lösung, dass jeder Hatch in dem UCS umdefiniert wurde, in dem er erstellt wurde?

bei den Eigenschaften fand ich jedenfalls keinen Hinweis auf ein UCS / OCS

lg
wolfgang

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 23. Aug. 2007 11:29    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

.. bei der ActiveXvariante ist das UCS egal .. da wird alles in WKS gemacht ...

------------------
  - 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

Wolfgang S
Mitglied
CADaver


Sehen Sie sich das Profil von Wolfgang S an!   Senden Sie eine Private Message an Wolfgang S  Schreiben Sie einen Gästebucheintrag für Wolfgang S

Beiträge: 270
Registriert: 06.03.2006

AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 +
Win XP, Win XP64, Win 7/64

erstellt am: 23. Aug. 2007 12:13    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

ja, ebendas ist mein Problem.

Ich habe ca. 2000 Hatches (als Beispiel)
welche vom User in 5 verschiedenen UCS erstellt wurden.
Wenn ich die Skalierung anpasse ist alles umgestellt auf Welt und das ist in dem Fall eine einfache aber falsche Lösung.

lg
Wolfgang

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 23. Aug. 2007 12:18    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

da stellt sich doch nichts auf Welt ich ändere doch bloß Patternspace ... evtl. mußt du da die Größe anpassen , aber koordinaten werden doch nicht verändert  

Patternspace kannst du dann nicht absolut setzen , sondern als Faktor * momentanen Patternspace der jeweiligen Schraffur
------------------
      - 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

Wolfgang S
Mitglied
CADaver


Sehen Sie sich das Profil von Wolfgang S an!   Senden Sie eine Private Message an Wolfgang S  Schreiben Sie einen Gästebucheintrag für Wolfgang S

Beiträge: 270
Registriert: 06.03.2006

AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 +
Win XP, Win XP64, Win 7/64

erstellt am: 23. Aug. 2007 13:19    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich


Zwischenablage01.jpg


Zwischenablage02.jpg

 
Code:
(and
  (setq HATCH(car(Entsel)))
 
    (setq HATCH(vlax-ename->vla-object HATCH))
 
    (=(strcase(vla-get-objectname HATCH))"ACDBHATCH")
    (not(vl-catch-all-error-p
          (vl-catch-all-apply
            'vla-put-PatternSpace
            (list HATCH 0.05)
          )
        )
    )
    (vla-evaluate HATCH)
)


hab ich so verwendet. (PatternSpace vorher war 0.01)

Erstellen des Hatches in einem beliebigen UCS (siehe Screenshot1)
Beim Ausführen des Befehls war ich in einem anderen UCS als beim Erstellen.
Und im 2. Screenshot sieht man, dass sich die Richtung des Hatches geändert hat.

das isses, dass ich meine
lg Wolfgang

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 23. Aug. 2007 13:46    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

...das passiert auch bei Änderung irgendeines Wertes per Eigenschaftsfenster, weil dann die Schraffur geupdatet wird, da das USC der Erstellung nicht mit in den Schraffurdaten gespeichert wird.
(setq HATCH(car(Entsel))) ->
((-1 . <Objektname: 79ad8588> ) (0 . "HATCH") (330 . <Objektname:
79af6cf8> ) (5 . "1C19") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"AM_0") (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "_USER")
(70 . 0) (71 . 0) ....(79 . 0) (98 . 1) (10 0.0 0.0 0.0))

Das hatten auch die Geniusprogrammierer als Mangel erkannt und bei ihren Schraffurerstellungsbefehlen dafür gesorgt, das das UCS in den XDATAS mitgespeichert wird.
z.B.
((-1 . <Objektname: 79ad82e8> ) (0 . "HATCH") (330 . <Objektname:
79af6cf8> ) (5 . "1BC5") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"AM_8") (100 . "AcDbHatch") (10 0.0 0.0 0.0) (210 0.0 0.0 1.0) (2 . "_U") (70 . 0) .........(10 -44.0378 15.9707 0.0) (-3 ("GENIUS_GENOBJ-N-HTC_13" (1002 . "{") (1000 . "OWNER") (1000
. "GEN") (1002 . "}")) ("GENIUS_GENODEF_13" (1002 . "{") (1000 . "HIER") (1070
. 0) (1002 . "}") (1002 . "{") (1000 . "MANEDIT") (1070 . 0) (1002 . "}") (1002
. "{") (1000 . "NOSEL") (1070 . 0) (1002 . "}") (1002 . "{") (1000 . "BEHIND")
(1070 . 0) (1002 . "}") (1002 . "{") (1000 . "OTHER") (1070 . 0) (1002 . "}")
(1002 . "{") (1000 . "REACTOR") (1002 . "}")) ("GENIUS_GENHATCH_13" (1002 .
"{") (1000 . "DATA") (1040 . 45.0) (1042 . 2.5) (1000 . "_U") (1070 . 0) (1011
-44.0378 15.9707 0.0) (1002 . "}") (1002 . "{") (1000 . "UCS") (1010 -16.2346
-29.2634 0.0) (1010 0.99208 -0.125608 0.0) (1010 0.125608 0.99208 0.0) (1002 .
"}"))))

und somit hab ich bei Mechanical und dem Befehl Poweredit dein Problem nicht.


------------------
      - 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

Wolfgang S
Mitglied
CADaver


Sehen Sie sich das Profil von Wolfgang S an!   Senden Sie eine Private Message an Wolfgang S  Schreiben Sie einen Gästebucheintrag für Wolfgang S

Beiträge: 270
Registriert: 06.03.2006

AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 +
Win XP, Win XP64, Win 7/64

erstellt am: 23. Aug. 2007 13:54    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

na das hört sich aber gar nicht gut an :°(
also gibts keine Lösung dafür außer das Erstellen der Hatches zu ändern und alle fremden Hatches neu zu bearbeiten...


Wolfgang

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

CADmium
Moderator
Maschinenbaukonstrukteur




Sehen Sie sich das Profil von CADmium an!   Senden Sie eine Private Message an CADmium  Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13508
Registriert: 30.11.2003

.

erstellt am: 23. Aug. 2007 14:00    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

.. oder du gehst einen ähnlichen Weg wie Genius damals .. mit nem eigenen (ergänztem) Hatch-Befehl, der die UCS-Daten mit drannpappt... und nem eigenen Hatchedit, das die UCSdaten wieder mit auswertet.


oder du bittest Adesk in einem der nächsten Releases, doch bitte diesen Aspekt zu beachten und das Schraffurobjekt entsprechend zu erweitern, denn das das geht,haben sie ja schon bewiesen ( wenn auch nur durch Übernahme der zugekauften Genuisfunktionalitäten)
------------------
       - 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

Wolfgang S
Mitglied
CADaver


Sehen Sie sich das Profil von Wolfgang S an!   Senden Sie eine Private Message an Wolfgang S  Schreiben Sie einen Gästebucheintrag für Wolfgang S

Beiträge: 270
Registriert: 06.03.2006

AC 2009, C3D 2009, AC 2010, C3D 2010, AC 2011, C3D 2011, RVT 2010, RVT 2011, ASD 2011 und alles darunter bis R14 +
Win XP, Win XP64, Win 7/64

erstellt am: 23. Aug. 2007 14:03    Editieren oder löschen Sie diesen Beitrag!  <-- editieren / zitieren -->   Antwort mit Zitat in Fett Antwort mit kursivem Zitat    Unities abgeben: 1 Unity (wenig hilfreich, aber dennoch)2 Unities3 Unities4 Unities5 Unities6 Unities7 Unities8 Unities9 Unities10 Unities Nur für Alfonso 10 Unities + Antwort hilfreich

Zitat:
oder du bittest Adesk in einem der nächsten Releases, doch bitte diesen Aspekt zu beachten und das Schraffurobjekt entsprechend zu erweitern.

ich glaub ich werd aus Protest garnix mehr Hatchen  )
vielleicht klappt das ja *lol*

Wolfgang

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

Anzeige.:

Anzeige: (Infos zum Werbeplatz >>)

Darstellung des Themas zum Ausdrucken. Bitte dann die Druckfunktion des Browsers verwenden. | Suche nach Beiträgen

nächster neuerer Beitrag | nächster älterer Beitrag
Antwort erstellen


Diesen Beitrag mit Lesezeichen versehen ... | Nach anderen Beiträgen suchen | CAD.de-Newsletter

Administrative Optionen: Beitrag schliessen | Archivieren/Bewegen | Beitrag melden!

Fragen und Anregungen: Kritik-Forum | Neues aus der Community: Community-Forum

(c)2023 CAD.de | Impressum | Datenschutz