|
Lisp : Dynamische Parameter in Blockdefinitionen ändern
CADwiesel am 04.07.2013 um 08:28 Uhr (0)
hast du dir mal das Beispiel von LeeMac angesehen, wo er das Dict ausliest?Das dürfte doch das sein, was du suchst?------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
AutoLisp : Befehlsablauf in Lisp
CADwiesel am 06.08.2004 um 21:05 Uhr (0)
zu 1 Starten tust du es so : (burst) falls nicht geladen, - erst laden (load burst ) aber dann wars das auch schon, da du keine Parameter uebergeben werden kannst. bleibt dir nur noch uebrig die burst lisp zu aendern. zu 2 - hm weiss nicht genau zu 3 z.B. so (setq as (ssget X ((0 . HATCH )))) (if as (repeat (sslength as)(explode(ssname as 0))(setq as(ssdel(ssname as 0))))) ------------------ Gruß CADwiesel Besucht uns im CHAT Urlaub bis 22.08.04
|
| In das Form AutoLisp wechseln |
|
AutoLisp : PC-Username in INI schreiben
CADwiesel am 03.02.2005 um 07:59 Uhr (0)
Die erklärung zur ini: Funktion kopiert einen String an eine bestimmte Stelle in eine Windows-typische Initialisierungs (*.ini) Datei. Die INI Datei muß folgende Form aufweisen: ... [section] entry=string entry2=string ... Kommentare in der INI werden durch ein Semikolon gekennzeichnet: ... ; Dies ist ein Kommentar ... Syntax (ms_setini section entry string filename) Parameter: section Die section in die der String kopiert werden soll. Wenn section nicht in der Datei existiert, wird sie erzeugt. entry ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Reihenfolge im Programmablauf nicht logisch!
CADwiesel am 12.08.2005 um 08:21 Uhr (0)
eine Klammer war außerdem zuvielmehr als 2 Punkte kann mann aber nicht bemaßen - da mußt du nochmal nacharbeiten.Du solltest sowiso den gesamten code überarbeiten und den Unterfunktionen entweder die benötigten Parameter übergeben, oder wenigstens die Rückgabe der Unterfunktionen in lokalen Variablen übergeben lassen.Code:(Defun c:bodim ( / oldCmde oldOs ma cen pt1 pt2 a1 a2 ad r d x pt3) (defun Bogma () (setq oldCmde (getvar "CMDECHO")) (setq oldOs (getvar "OSMODE")) (setvar "CMDECHO" 0) (setq ma (getvar ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Zahlen von CADWiesel
CADwiesel am 16.03.2005 um 16:50 Uhr (0)
(Defun C:ZAHLEN () (START) (setq STYLE_LIST (EARX:LIST-TAB STYLE ) STYLE_TAB (list) FF (getvar textstyle ) ) ;_ end of setq (if (or (null ff) (= ff )) (setq FF STANDARD ) ) ;_ end of if (prompt
Textstil wählen ) (princ STYLE_LIST) (prompt (strcat FF )) (if (not (member (setq textst (strcase (getstring T))) STYLE_LIST) ) ;_ end of not (setvar textstyle ff) (setvar textstyle textst) ) ;_ end ...
|
| In das Form AutoLisp wechseln |
