GC 370 (Autodesk/Lisp) - Lösung vorhanden!

Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte

NVIDIA Run:ai RTX PRO Server Promotion, eine Pressemitteilung

Meldungen abonnieren

Autor

Thema: GC 370 (993 mal gelesen)

Martin Breternitz
Mitglied
Bauingenieur / Verkehrsplaner

Senden Sie eine Private Message an Martin Breternitz

Schreiben Sie einen Gästebucheintrag für Martin Breternitz

Beiträge: 8
Registriert: 01.11.2007

MS Win 7 Pro 64 bit SP 1
Dell OptiPlex 790
Intel i3 CPU 3.3GHz RAM 4GB
Nvidia GeForce 7100 GS
BricsCad 13

erstellt am: 19. Jan. 2015 16:23

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

Ich möchte via Lisp die Objektlinienstärke auf VonLayer setzen. Dazu muss der Gruppencode 370 aus der Objektdefinitionsliste gelöscht werden. Die Modifikation der Liste funktioniert auch, jedoch wird die Änderung nach entmod / entupd nicht übernommen. Was mache ich falsch?

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

cadffm
Moderator
良い精神

Senden Sie eine Private Message an cadffm

Schreiben Sie einen Gästebucheintrag für cadffm

Beiträge: 22689
Registriert: 03.06.2002

Alles

erstellt am: 19. Jan. 2015 16:54

<-- editieren / zitieren -->

Unities abgeben:

Nur für Martin Breternitz

Ersetze mit Subst den 370er gegen den gewünschten Wert - wird wohl-1 oder -2 sein, teste mal.
Also nicht entfernen sondern tauschen in der Entityliste,
vorher sicherstellen das auch einer vorhanden ist.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

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

CADmium
Moderator
Maschinenbaukonstrukteur

Senden Sie eine Private Message an CADmium

Schreiben Sie einen Gästebucheintrag für CADmium

Beiträge: 13533
Registriert: 30.11.2003

erstellt am: 20. Jan. 2015 07:35

<-- editieren / zitieren -->

Unities abgeben:

Nur für Martin Breternitz

(if(and(setq OBJ(car(entsel "\nOBJ wählen:")))
(setq OBJ(entget OBJ))
(setq OBJ(subst'(370 . -1)(assoc 370 OBJ)OBJ))
)
(entmod OBJ)
)

oder

(vl-load-com)
(and(setq OBJ(car(entsel "\nOBJ wählen:")))
(setq OBJ(vlax-ename->vla-object OBJ))
(vla-put-lineweight OBJ acLnWtByLayer)
)

------------------
Also ich finde Unities gut ... und andere sicher auch
---------------------------------------
- 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

Anzeige:	Infos zum Werbeplatz >>
A>V>C> Solid Subtract CAD APP für Messestände, Holzarbeiten, Allgemeine Werkzeuge Subtraction, intersection, and union of solids. With or without a gap. Preserving material and face coloring. Preserving source objects and the subtrahend.

Martin Breternitz
Mitglied
Bauingenieur / Verkehrsplaner

Beiträge: 8
Registriert: 01.11.2007

MS Win 7 Pro 64 bit SP 1
Dell OptiPlex 790
Intel i3 CPU 3.3GHz RAM 4GB
Nvidia GeForce 7100 GS
BricsCad 13

erstellt am: 20. Jan. 2015 08:35

<-- editieren / zitieren -->

Unities abgeben:

Ah, vielen herzlichen Dank! Es ist die -1. Danach wird der GC 370 automatisch wieder entfernt, deshalb wollte ich ihn löschen.

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)

A>V>C> Solid Subtract CAD APP für Messestände, Holzarbeiten, Allgemeine Werkzeuge