| |
![](https://ww3.cad.de/php/image.php?resolution=width:20050) | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
| |
![](https://ww3.cad.de/php/image.php?resolution=width:16281) | Teledoor setzt erfolgreich auf Configure-to-Order mit CIDEON Conify (CAD, Conify, ERP, PDM), ein Anwenderbericht |
Autor
|
Thema: LISP Anfänger (103 mal gelesen)
|
milizeus Mitglied Layout - Zeichner bei Anlagenplanung
![](/foren/ubb/star3.gif)
![Schreiben Sie einen Gästebucheintrag für milizeus](/foren/ubb/pmimages/gbu.gif) Beiträge: 27 Registriert: 29.11.2001 ACAD2002-DEU, etv1-9, WIN2k
|
erstellt am: 28. Feb. 2002 16:58 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif)
tach das funktioniert nicht ganz ehrlichgesagt hat sich nichts geändert er bleibt immer noch auf l-so-bem kleben (setq lyakt (getvar "clayer")) (setvar "clayer" "L-SO-BEM") (command "bemlinear") (while (not (= 0 (getvar "CMDACTIVE"))) (command pause) ) (setvar "clayer" lyakt) mfG milizeus
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
marc.scherer Ehrenmitglied V.I.P. h.c. CAD-Administrator
![](/foren/avatars/marc.scherer.gif)
![Schreiben Sie einen Gästebucheintrag für marc.scherer](/foren/ubb/pmimages/gbu.gif) Beiträge: 2494 Registriert: 02.11.2001 Windows 10 64bit AutoCAD Architecture 2018/2019 (deu/eng) AEC-Collection 2019 (Revit und Zeugs) Wenn sich's nicht vermeiden läßt: D-A-CH Erweiterung (mies implementierter Schrott)
|
erstellt am: 28. Feb. 2002 17:20 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für milizeus
Hi, try this: Code:
(setq lyakt (getvar "clayer") ;_ akt. Layer speichern ly-ziel "L-SO-BEM" ;_ Layername in Variable speichern search-layer (tblsearch "LAYER" ly-ziel) ;_ Flag ermitteln, existiert der Layer überhaupt? ) (if (= search-layer nil) ;_ er existiert nicht!! (command "_.-layer" "_m" ly-ziel "") ;_ also erzeug' ihn ) (setvar "clayer" ly-ziel) ;_ jetzt kannste ihn aktuelle setzen... (command "_dimlinear") ;_ englisch coden!!! (while (not (= 0 (getvar "CMDACTIVE"))) (command pause) ) (setvar "clayer" lyakt)
Ciao, Marc Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
Brischke Ehrenmitglied V.I.P. h.c. CAD on demand GmbH
![](/foren/avatars/Brischke.gif)
![Schreiben Sie einen Gästebucheintrag für Brischke](/foren/ubb/pmimages/gbu.gif) Beiträge: 4186 Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 01. Mrz. 2002 07:17 <-- editieren / zitieren --> Unities abgeben: ![1 Unity (wenig hilfreich, aber dennoch)](/foren/ubb/z1.gif) ![2 Unities](/foren/ubb/z2.gif) ![3 Unities](/foren/ubb/z3.gif) ![4 Unities](/foren/ubb/z4.gif) ![5 Unities](/foren/ubb/z5.gif) ![6 Unities](/foren/ubb/z6.gif) ![7 Unities](/foren/ubb/z7.gif) ![8 Unities](/foren/ubb/z8.gif) ![9 Unities](/foren/ubb/z9.gif) Nur für milizeus
|