| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: zerschiessen von allem....als lisp (397 mal gelesen)
|
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 12:18  <-- 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
Beiträge: 1111
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 
|
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:
|
AsSchu
Ehrenmitglied
Konstrukteur
Beiträge: 1632
Registriert: 27.06.2003 ACAD 2012
|
erstellt am: 08. Apr. 2005 13:05 <-- editieren / zitieren --> Unities abgeben: Nur für batman17
|
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:
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:
|
Peter Tropf
Mitglied
Konstrukteur
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 |
Foren auf CAD.de (alle Foren)
| 
