| | |
 | Gut zu wissen: Hilfreiche Tipps und Tricks aus der Praxis prägnant, und auf den Punkt gebracht für Autodesk Produkte |
|
Autor
|
Thema: Lisp verändern (511 mal gelesen)
|
muhammar CADaffi
Mitglied
Hochbauzeichner
   Beiträge: 159
Registriert: 04.07.2003 OS: Windows 2k sp3
CAD: AutoCAD 2002
Applikation: Palladio X5
Plotter: HP DesignJet 1050C
|
erstellt am: 26. Mrz. 2004 13:53  <-- editieren / zitieren -->   Unities abgeben:          
Ich habe hier ein Lisp, welches eine Dämmungs- schraffur zeichnet. Nun wird diese Dämmung im Layer "019-3-ar-waermedaemmung" und mit Farbe Grün erstellt. Kann man das Lisp so verändern, das die dämmung Layer "A_Schraff" und Farbe von Layer gezeichnet wird??? Darf man überhaupt einfachso ein lisp verändern?
------------------
mfg Kaspar Allenbach  Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
cadPLAN
Mitglied
Dipl.Ing.(FH)
Beiträge: 196
Registriert: 11.04.2003 AutoCAD Map 3D,
Vermessungsappliaktion rmMap
DXF Konverter,
AutoCAD 2000 lt,
Win2000
|
erstellt am: 26. Mrz. 2004 14:01 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi 
Hallo Kaspar ja einfach LISP in einem Texteditor öffnen, mit Suchen den Namen des Layers eingeben und suchen lassen. Angezeigten Layername mit neuem erstetzen sieht dann so aus:
; Hauptprogramm
(defun C  AEMM (/ lname clay olderr)
(graphscr)
(init)
(command "Zurück" "M")
(command "Zurück" "B")
(setq clay (getvar "CLAYER"))
(setq olderr *error*
*error* clerr)
(setq lname "<dein_Layername>")
(layerein lname)
(WKSEIN)
(DAEMMZEI)
(command "Zurück" "E")
(REINIT)
(setq *error* olderr)
(princ)
------------------
 Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
muhammar CADaffi
Mitglied
Hochbauzeichner
Beiträge: 159
Registriert: 04.07.2003 OS: Windows 2k sp3
CAD: AutoCAD 2002
Applikation: Palladio X5
Plotter: HP DesignJet 1050C
|
erstellt am: 26. Mrz. 2004 14:01 <-- editieren / zitieren --> Unities abgeben:
|
cadPLAN
Mitglied
Dipl.Ing.(FH)
Beiträge: 196
Registriert: 11.04.2003 AutoCAD Map 3D,
Vermessungsappliaktion rmMap
DXF Konverter,
AutoCAD 2000 lt,
Win2000
|
erstellt am: 26. Mrz. 2004 14:05 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
|
bley
Mitglied
architekt
Beiträge: 42
Registriert: 12.11.2003 AutoCAD 2004
ArchTools
TM-Layermanager<P>WIN2000P im WIN2000-Netzwerk
|
erstellt am: 28. Apr. 2004 12:49 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
|
Brischke
Ehrenmitglied V.I.P. h.c.
CAD on demand GmbH
Beiträge: 4171
Registriert: 17.05.2001 AutoCAD 20XX, defun-tools
|
erstellt am: 28. Apr. 2004 12:55 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
Hallo A.Bley, füge einfach die Zeile (setvar "CECOLOR" "256") nach der Zeile (layerein lname) ein. also so soll es dann aussehen:
...
(layerein lname)
(setvar "CECOLOR" "256")
... Bei Fragen ... Grüße Holger ------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat! Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP |
bley
Mitglied
architekt
Beiträge: 42
Registriert: 12.11.2003 AutoCAD 2004
ArchTools
TM-Layermanager<P>WIN2000P im WIN2000-Netzwerk
|
erstellt am: 29. Apr. 2004 15:11 <-- editieren / zitieren --> Unities abgeben: Nur für muhammar CADaffi
|
Foren auf CAD.de (alle Foren)
| 
