| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: LISP Anfänger (102 mal gelesen)
|
milizeus
Mitglied
Layout - Zeichner bei Anlagenplanung
   Beiträge: 27
Registriert: 29.11.2001 ACAD2002-DEU, etv1-9, WIN2k
|
erstellt am: 28. Feb. 2002 16:58  <-- editieren / zitieren -->   Unities abgeben:          
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
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: 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 |
| | Konstrukteur für Anlagenbau / Rohrleitungsbau (m/w/d) | | Menschen und Technologien zu verbinden, den Perfect Match für unsere Kunden zu gestalten, immer die richtigen Expert:innen für die jeweilige Herausforderung zu finden - das ist unser Anspruch bei FERCHAU und dafür suchen wir dich: als ambitionierte:n Mitarbeitende:n für einen unserer Kunden. Wir realisieren spannende Projekte für namhafte Kunden in allen Technologiebereichen und für alle Branchen und übernehmen Verantwortung für komplexe Entwicklungsprojekte.... | | Anzeige ansehen | Konstruktion, Visualisierung |
|
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4185
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 01. Mrz. 2002 07:17 <-- editieren / zitieren --> Unities abgeben: Nur für milizeus
|
Foren auf CAD.de (alle Foren)
| 
