zerschiessen von allem....als lisp (Autodesk/Rund um AutoCAD)

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

Autodesk AutoCAD Plant 3D, ein Seminar am 17.03.2025

Events abonnieren

Autor

Thema: zerschiessen von allem....als lisp (400 mal gelesen)

batman17
Mitglied
staatl. gepr. holztechniker

Senden Sie eine Private Message an batman17

Schreiben Sie einen Gästebucheintrag für batman17

Beiträge: 81
Registriert: 12.10.2004

Intel Core i7 2.20GHz 8GB
NVIDIA Quadro 1000M
Win7, Building Design Suite 2013

erstellt am: 08. Apr. 2005 12:18

Editieren oder löschen Sie diesen Beitrag!

<-- editieren / zitieren -->

Unities abgeben:

hallo,

ich habe folgende zeilen in einem forum gefunden:
^C^C(while (setq elemli (ssget "_X" '((0 . "INSERT"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))))^C^C(while (setq elemli (ssget "_X" '((0 . "POLYLINE"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))))

habe die eben mal ausprobiert und mußß sagen sie funktioniert sehr schön...aber kann man diese noch etwas ausbauen, so das sie auch die schrift zerlegt!?
hat vor einiger zeit mal diesen fall das ich in der zeichnung alles neu schreiben mußte...

...ist interessant zu wissen das ne 8 aus 9 strichen besteht...

gruß alex

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

spider_dd
Mitglied

Senden Sie eine Private Message an spider_dd

Schreiben Sie einen Gästebucheintrag für spider_dd

Beiträge: 1144
Registriert: 27.11.2003

Win 10Pro
Intel(R) Core(TM) i7-7700
NVIDIA Quadro P1000
ACAD, Civil-3D 2018

erstellt am: 08. Apr. 2005 12:37

<-- editieren / zitieren -->

Unities abgeben:

Nur für batman17

Hallo Alex

ersetz mal "INSERT" oder "POLYLINE" mit "TEXT"

Gruß
spider

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

batman17
Mitglied
staatl. gepr. holztechniker

Beiträge: 81
Registriert: 12.10.2004

Intel Core i7 2.20GHz 8GB
NVIDIA Quadro 1000M
Win7, Building Design Suite 2013

erstellt am: 08. Apr. 2005 13:03

<-- editieren / zitieren -->

Unities abgeben:

hmhmhm...,

ne das wars nicht. er fragte jetz auch zwischen durch, was er zerschiessen soll. heißt ich mußte manuel ALLE eingeben...

noch eine tip?

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

AsSchu
Ehrenmitglied
Konstrukteur

Senden Sie eine Private Message an AsSchu

Schreiben Sie einen Gästebucheintrag für AsSchu

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 08. Apr. 2005 13:05

<-- editieren / zitieren -->

Unities abgeben:

Nur für batman17

Text zerschießen funzt mit

TXTEXP

aus den Expresstools

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

AsSchu
Ehrenmitglied
Konstrukteur

Beiträge: 1632
Registriert: 27.06.2003

ACAD 2012

erstellt am: 08. Apr. 2005 13:11

<-- editieren / zitieren -->

Unities abgeben:

Nur für batman17

etwa so:

^C^C(while (setq elemli (ssget "_X" '((0 . "INSERT"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))))^C^C(while (setq elemli (ssget "_X" '((0 . "POLYLINE"))))(repeat (sslength elemli)(command "_.explode" (ssname elemli 0))(setq elemli (ssdel (ssname elemli 0) elemli))))^C^Ctxtexp;alle;;

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

batman17
Mitglied
staatl. gepr. holztechniker

Beiträge: 81
Registriert: 12.10.2004

Intel Core i7 2.20GHz 8GB
NVIDIA Quadro 1000M
Win7, Building Design Suite 2013

erstellt am: 08. Apr. 2005 13:39

<-- editieren / zitieren -->

Unities abgeben:

fred.gif

supi,

das wäre meine nächste frage gewesen...

aber ich habs dann ausprobiert, die texte sehr dann sehr unansehnlich aus...also bleibts bei der ersten explodevariante mit ohne textzerkloppen!

anyway! so herzlichen dank für diese zeilen und allen ein schönes we!!

gruß alex

ps weiß einer von euch wie man neben den namen ein gif bekommt? mit einfügen gehts nicht!?

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

batman17
Mitglied
staatl. gepr. holztechniker

Beiträge: 81
Registriert: 12.10.2004

Intel Core i7 2.20GHz 8GB
NVIDIA Quadro 1000M
Win7, Building Design Suite 2013

erstellt am: 08. Apr. 2005 13:49

<-- editieren / zitieren -->

Unities abgeben:

NACHTRAG!

die kleinen zeilen lassen die blöcke heil! und rechtecke auch....

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

Peter Tropf
Mitglied
Konstrukteur

Senden Sie eine Private Message an Peter Tropf

Schreiben Sie einen Gästebucheintrag für Peter Tropf

Beiträge: 246
Registriert: 28.06.2003

erstellt am: 09. Apr. 2005 23:16

<-- editieren / zitieren -->

Unities abgeben:

Nur für batman17

Hallo,

eine andere Möglichkeit, alles zu "zerschießen", wäre:

Einen DXB-Plotter einrichten und die Zeichnung damit in eine DXB-Datei plotten. Wenn man diese mit DXBIN in eine leere Zeichnung einfügt, hat man nur noch zig-tausend Linien auf Layer 0.

------------------
Gruß Peter
(HERDT-Verlag)

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

Anzeige.:
X

Anzeige: (Infos zum Werbeplatz >>)