|
AutoLisp : Fehler beim Blockeinfügen abfangen
Manuel Sauter am 01.03.2004 um 09:16 Uhr (0)
Hallo Thomas, danke für den Tip. Jetzt funktioniert es. Ich mußte aber vorher der zu überprüfenden Variable den vollständigen Blocknamen zuweisen. ;;;Auswahl der Einfügeansicht (initget G A S ) (setq cPrompt (strcat Auswahl Grundriss/Ansicht/Schnitt cLage : ) cLage (cond ((getkword cPrompt)) (T cLage)) ) (cond ((= cLage G ) (setq b cEKname)) ((= cLage S ) (setq b (strcat cEKname S ))) ((= cLage A ) (setq b (strcat cEKname A ))) ) ;;;Überprüfen ob der Block vorhanden ist (setq fn (strc ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Fehler beim Blockeinfügen abfangen
Manuel Sauter am 27.02.2004 um 14:43 Uhr (0)
Hallo Zusammen, hier meine Routine zum Blockeinfügen: ;;;Auswahl der Einfügeansicht (initget G A S ) (setq cPrompt (strcat Auswahl Grundriss/Ansicht/Schnitt cLage : ) cLage (cond ((getkword cPrompt)) (T cLage)) ) (cond ((= cLage G ) (setq b cEKname)) ((= cLage S ) (setq b (strcat cEKname S ))) ((= cLage A ) (setq b (strcat cEKname A ))) ) ;Wenn der Block schon vorhanden ist, soll dieser benützt werden (setq INS-EXIST (tblsearch BLOCK b)) (if INS-EXIST (setq eEL b)) ;Einfügen des Bloc ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
