|
Lisp : Inhalt eines eingesetzten Kreises löschen
CADmium am 06.12.2006 um 10:33 Uhr (0)
auf die Schnelle:(defun MYCIRCLETRIM(CIRCLE / E1 P1 redraw_it ) (if(and(=(type CIRCLE)ENAME) (=(cdr(assoc 0 (entget CIRCLE)))"CIRCLE") ) (progn (acet-error-init (list (list "cmdecho" 0 "highlight" 0 "regenmode" 1 "osmode" 0 "ucsicon" 0 "offsetdist" 0 "attreq" 0 "plinewid" 0 "plinetype" 1 "gridmode" 0 "celtype" "CONTINUOUS" ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Set_by_layer.lsp
CADmium am 06.08.2004 um 09:32 Uhr (0)
Freut, mich, dass dir das Lisp gefällt und gute dienste leistet um den Linientyp nicht mehr zu verstellen äneder folgende Zeile: (defun UPDATE_OBJEKT ( OBJEKT / OBJEKTDATEN) (if (=(type OBJEKT) ENAME) ; Parameter o.k. ? (progn (setq OBJEKTDATEN (entget OBJEKT)) ; Objektdaten auslesen (if (assoc 8 OBJEKTDATEN) (progn (if (=(strcase(cdr(assoc 0 OBJEKT ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Reihe erzeugen mit linien
CADmium am 02.03.2007 um 09:55 Uhr (0)
die command-aufrufe mal in der Befehlszeile durchgespielt? ....dann hättest du gemerkt, das der Befehl Reihe keine Objektliste, sondern einen Auswahlsatz als Parameter möchte..ich hab deinen Code mal so interpretiert :(if(setq startxy (getpoint "
startxy:")) (progn (command "_line" (mapcar - startxy (2.5 0 0))(mapcar + startxy (2.5 0 0)) "") (setq liniehor (entlast)) (command "_line" (mapcar - startxy (0 2.5 0))(mapcar + startxy (0 2.5 0)) "") (setq liniever (entlast)) (setq KREUZ (ssadd liniehor)) ...
|
| In das Form Lisp wechseln |
|
Lisp : Vergleichsoperatoren
CADmium am 15.11.2007 um 12:17 Uhr (0)
"if" guckt bloß nach, ob der erste Parameter nicht "nil" ist, und evaluiert dann den 2 Parameter, ansonsten, wenn vorhanden, den 3. Parameter.Werd mal genauer, was du vorhast!!.. Bereich könnte sein(and(numberp A) ( 0 A 10)) .... wenn a numerisch und zwischen 0 und 10für Listen ist (member) ganz ok usw------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Liste
CADmium am 09.11.2009 um 22:10 Uhr (0)
naja.. den Ansatz finde ich nicht so doll, aber sei es drum :(progn(setq PARAMETER( "M" "Layer2" "FA" "1" "Layer2"))(command ".-Layer")(foreach PAR PARAMETER (command PAR))(while (/= 0 (getvar "CMDACTIVE"))(command)))oder (progn(setq PARAMETER( "M" "Layer4" "FA" "3" "Layer4"))(eval(append (list command) (list ".-Layer")PARAMETER))(while (/= 0 (getvar "CMDACTIVE"))(command)))------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lö ...
|
| In das Form Lisp wechseln |
|
AutoLisp : laden von vlx dateien mit parameter
CADmium am 03.11.2004 um 08:22 Uhr (0)
na dann: (if(= Parameter Parameterwert) (progn (load erste.vlx nil) (load zweite.vlx nil) ) ) .. kann z.B. so aussehen: (if (=(strcase(getvar Loginname )) MK24 ) (progn ... ) ) ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form AutoLisp wechseln |
|
Lisp : Programmaufruf mit Parameter
CADmium am 15.04.2008 um 11:28 Uhr (0)
wenn die Funktion (defun TESTUS( A B / C) lautet, kannst du sie mit (TESTUS A B) aufrufen ....Eine als Befehl definierte Funktion (defun C:TESTUS( A B / C) ..die du mittels TESTUS aufrufst akzeptiert dabei keine Parameter.Ansonsten sind deine Infos mehr als dünn , als dass man noch was rauslesen könnte... Die Dialogvorbelegungen kannst du im Quelltext belegen, es sei denn , der Programmierer hat dafür Parameter festgelegt ... das ist aus dem Bildchen aber nicht ersichtlich In deinem Profil steht "Infor ...
|
| In das Form Lisp wechseln |
|
Lisp : amtext3 in lisp
CADmium am 13.03.2008 um 21:06 Uhr (0)
(C:BEFEHL) -Funktionen kann man keine Parameter sind, damit sia als Autocadbefehle angemeldet werden können , ohne Übergabeparemeter programmiert. Die Parameter werden direkt im Programm abgefragt. Und da das Prog während der Ausführung modal ist, kommen nachgeordnete Kommmandozeileneingeban wie beim Commmandaufruf erst nach der kompletten Abarbeitung der Routine zum Zuge ... dqann meist als Fehlermeldungauslöser: "unbekannter Befehl" Guck dir einfach an , was der Befehl _text nachfolgend als Parameter hab ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Parameter _:S
CADmium am 06.05.2004 um 08:47 Uhr (0)
.. erlaubt nur eine Einzelauswahl ( ein Element ) ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
Lisp : dyn. Blöcke erzeugen
CADmium am 29.09.2008 um 16:41 Uhr (0)
zu 1) die Parameter liegen in den GC310 der Blockdef... irgendwo.. das ist IMHO nicht handelbar - ActivX zu 2) ein BSP:(tblsearch "LAYER" "0")((0 . "LAYER") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous"))Befehl: (entget(tblobjname "LAYER" "0"))((-1 . Objektname: 7efa3c80 ) (0 . "LAYER") (5 . "10") (102 . "{ACAD_XDICTIONARY") (360 . Objektname: 7efa5858 ) (102 . "}") (330 . Objektname: 7efa3c10 ) (100 . "AcDbSymbolTableRecord") (100 . "AcDbLayerTableRecord") (2 . "0") (70 . 0) (62 . 7) (6 . "Continuous") (2 ...
|
| In das Form Lisp wechseln |
|
Lisp : Fehlerinterpretation
CADmium am 14.06.2008 um 19:06 Uhr (0)
es wird von einer Funktion ein Zahlenwert als Parameter erwartet ... einfach mal debuggen .. um rauszubekommen, wo. Vielleicht ist es bei dir eine Variable, die noch keinen Wert hat.------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : auswahlsatz
CADmium am 30.06.2009 um 12:52 Uhr (0)
tja .. da mußt du erst eine Liste aller eingeschalteten Layer erstellen und diese Layernamen dann als Parameter für den GC 8 beim ssget mitgeben....------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Textbreite als vorgabe für bruchbreite
CADmium am 04.05.2005 um 11:14 Uhr (0)
na gib mal (textbox (entget(car(entsel)))) ein und klicke dann einen Text an du mußt einfach (entget OBJEKTID) als Parameter übergeben ------------------ - Thomas - Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben.
|
| In das Form AutoLisp wechseln |
