| |
| Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
| Request a special discount on NVIDIA RTX 5000 Ada Generation GPU !, eine Pressemitteilung
|
Autor
|
Thema: entmod (836 mal gelesen)
|
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 29. Sep. 2003 16:45 <-- editieren / zitieren --> Unities abgeben:
ok...ich versuchs mal hier ich generiere innerhalb einer lisp eine linie. diese linie möchte ich...aus welchen gründen auch immer im weiteren verlauf der lisp in ihrer länge ändern. das geht nicht...ansatz: (entmake (setq LINIE (list (cons 0 "LINE")(cons 8 "LAYER")(cos 10 xyz)(cons 11 xyz)))) ...... (entmod (subst (cons 11 xyz-neu)(assoc 11 LINIE) LINIE)) GEHT NICHT *HEUL* alles was mit entupd...regen oder ähnlichem zu tun hat habe ich schon probiert *schmoll*
------------------ .......good vibrations make the world go round Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
CADwiesel Moderator CAD4FM UG
Beiträge: 1989 Registriert: 05.09.2000 AutoCAD, Bricscad Wir machen das Mögliche unmöglich
|
erstellt am: 29. Sep. 2003 17:07 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
|
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 29. Sep. 2003 17:13 <-- editieren / zitieren --> Unities abgeben:
na das hätteste mir ja vorhin auch schon sagen können ;-) gracias .......geht aber nicht *heuuuuul*
------------------ .......good vibrations make the world go round [Diese Nachricht wurde von marvin101010 am 29. September 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 30. Sep. 2003 08:14 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
Hallo Marvin, probier's mal damit ;; Variable Daten zum Erstellen der Linie definieren (SETQ LAYER "0") (SETQ startpoint (LIST 0 0)) (SETQ endpoint (LIST 100 100))
;; Linie erstellen (ENTMAKE (list (cons 0 "LINE") (cons 8 LAYER) (cons 10 startpoint) (cons 11 endpoint) ) ) ;; Internen Objektnamen der Linie in Variable speichern (SETQ LINIE (ENTLAST)) ; Es folgen diverse Operationen, die Linie kann mit der Variable LINIE jederzeit wieder gefunden werden ;; Bearbeiten der Lininie (SETQ obj (ENTGET LINIE)) (SETQ curr_endpoint (ASSOC 11 obj)) ;; Aktueller Endpunkt der Linie (SETQ new_endpoint (CONS 11 (LIST 200 200))) ;; Neuer Endpunkt der Linie (SETQ obj (SUBST new_endpoint curr_endpoint obj)) ;; Austauschen der Endpunkte ; Mit dem Startpunkt der Linie genau gleich verfahren, nur den DXF-Code entsprechend ändern. (ENTMOD obj) ;; Aktualisieren der Linie ;; Ende Die Verschönerungsarbeiten überlasse ich jedem selbst
Ciao, WolfgangE [Diese Nachricht wurde von WolfgangE am 30. September 2003 editiert.] Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 30. Sep. 2003 08:59 <-- editieren / zitieren --> Unities abgeben:
|
WolfgangE Mitglied
Beiträge: 1006 Registriert: 29.01.2003 Compass2000 in (fast) allen Ausbaustufen: Jobserver, ACM, Replikator, DBQ-Programmierung. Programmierung, Wartung und Administration von MSSQL2000-Datenbanken. Grundlegende Kenntnisse in AutoLisp-Programmierung.
|
erstellt am: 30. Sep. 2003 11:14 <-- editieren / zitieren --> Unities abgeben: Nur für marvin101010
|
marvin101010 Mitglied ingenieur der architektur ohne diplom, bauzeichner ohne lehre, cad-admin ohne wissen :-)
Beiträge: 562 Registriert: 22.01.2003 Pentium 4 Windows XP Autocad 2002 Autocad 2002LT + Extender ADT 3.3 ArchiCAD
|
erstellt am: 30. Sep. 2003 13:50 <-- editieren / zitieren --> Unities abgeben:
|