|
AutoLisp : Probleme mit If-Funktion
marc.scherer am 29.01.2004 um 18:24 Uhr (0)
Hi Caxman, willkommen im Club ;-). Ich habe Deine Funktion mal ein wenig aufgepeppt: Code: ;| Dieses Programm erzeugt einen Ansichtspfeil mit dem Befehl Polylinie; mit Winkelfunktion berechnet Programmstart mit: APFEIL2 Verwendete Variablen: osn Einstellungen für Ofang sichern ORTH EINSTELLUNGEN FÜR ORTHO SICHERN P1 Startpunkt Ansichtspfeil P2 Endpunkt Ansichtspfeil (Pfeilspitze) br1_2 1/2 Pfeilbreite sk Skalierung für Ansichtspfeil wi Winkel Ansichtspfeil gra Argument für Winkelumrechnungsfumktion |; ; ...
| | In das Form AutoLisp wechseln |
|
AutoLisp : Layereinstellung funktioniert nicht sauber
marc.scherer am 10.05.2004 um 19:28 Uhr (0)
Uuund anbei noch mal n komplettes Ding... Code: (vl-load-com) ; Macht einen Layer aktuell (defun SET-LAYER (NAME / RETVAL) (vla-put-activelayer (CURRENT-DOCUMENT) (setq RETVAL (vla-item (DOCUMENT-LAYERS) NAME)) ) ;_ Ende von vla-put-ActiveLayer RETVAL ) ;_ Ende von defun ; gibt das Vla-Object zu einem ; Layernamen zurück (defun layer-object(name / result) (vlax-for layer(document-layers) (if (=(strcase name) (strcase(vla-get-name layer)) ) (setq result lay ...
| | In das Form AutoLisp wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |