|
AutoLisp : farbe ändern die soundsovielte
CADwiesel am 21.07.2003 um 12:59 Uhr (0)
Du musst glaube ich den gc 62 erst nach dem Layer GC 8 einfügen musst also eine Neue Liste bilden. Teil1 bis einschließlich GC8 dann den GC 62 dann den Rest (reverse bis GC 8 ) und dann entmoden Sieh dir mal mein Einefarb an. ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Zeichenkette entfernen
CADwiesel am 28.07.2003 um 14:35 Uhr (0)
(substr trallala.gtr 1 (- (strlen trallala.gtr ) 4)) ------------------ Gruß CADwiesel bin auch im Urlaub: 29.07 - 27.08
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Lisp Problem...
CADwiesel am 01.09.2003 um 08:21 Uhr (0)
@sonnen4tel Willkommen im Forum. Du solltest dein Lisp Prog mal im Vlide-Editor Debuggen und mal die Variablen und Rückgaben überwachen. dan hast du den Fehler sicherlich schnell entdeckt. Da du ja auch schon lange im Geschäft bist, dürfte das eigentlich schnell erledigt sein. @Safa In der Autocadversion 2000 (R15) hat sich schon einiges gegenüber der R14 geändert. Ich wage mal einen Schuss ins Blaue dein Lisp arbeitet mit command Befehlen, die nicht an die 2000 angepasst wurden. bei einigen Befehlen mus ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Block modifizieren
CADwiesel am 02.09.2003 um 07:46 Uhr (0)
hier mal was von RoteSauce in Vlisp (defun ax eleteObjectFromBlock (ent / doc blk) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) ent (vlax-ename- vla-object ent) blk (vla-ObjectIdToObject doc (vla-get-OwnerID ent)) ) (vla-Delete ent) (vla-get-Count blk) ) (defun ax:AddObjectsToBlock (blk ss / doc blkref blkdef inspt refpt) (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)) blkref (vlax-ename- vla-object blk) blkdef (vla-Item (vla-get-Blocks doc) (vla-get-Name blkref)) in ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Neuling mit Anfängerfrage
CADwiesel am 02.09.2003 um 07:52 Uhr (0)
Hai Ich glaube das doch alles was du brauchst in der Datei steht. um ein Lisp zu starten musst du es aufrufen aber nicht mit command, sondern wie in der auskommentierten Zeile steht: ;;;die Zeile; (alert "Hallo") kann z.b. ersetzt werden um ein Programm aufzurufen (c:ProgName) ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsausgaben umleiten ??
CADwiesel am 10.09.2003 um 13:42 Uhr (0)
äh? was hast du vor? ich denke - egal was du machen willst - ist das ein Fall für nen command reaktor ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Befehlsausgaben umleiten ??
CADwiesel am 17.09.2003 um 11:11 Uhr (0)
warum? ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : BKS-Symbol
CADwiesel am 19.09.2003 um 11:28 Uhr (0)
(command _shademode _2 ) ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : BKS-Symbol
CADwiesel am 23.09.2003 um 07:52 Uhr (0)
wie - tut s nicht? was soll n das heissen? vielleicht hast du Acad R14? ------------------ Gruß CADwiesel
|
| In das Form AutoLisp wechseln |
|
AutoLisp : entmod
CADwiesel am 29.09.2003 um 17:07 Uhr (0)
das geht so auch nicht du musst dir nach dem Erzeugen erstmal die gesamte Elementliste besorgen (entlast) die kannst du dann substen ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Obejkte auf Layer legen
CADwiesel am 01.10.2003 um 13:51 Uhr (0)
Du könntest vor jede commandzeile folgendes schreiben (if (/= (setq tt(tblsearch LAYER NAME ))nil) (if (=(cdr (assoc 70 tt))0) (setvar clayer NAME ) ) ) Für Name eben den zu setzenden Layernamen reintun ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Script-fähige XREF-Pfad-Binden-Routine
CADwiesel am 05.10.2003 um 12:52 Uhr (0)
wasse isse damidde? (defun C:Find-xref (/ f EARX_BTAA enams xbpath) (setq EARX_BTAA (tblnext BLOCK T)) (while (/= EARX_BTAA nil) (setq f (cdr (assoc 70 EARX_BTAA)) ) ;_ ende von setq (if (= 4 (logand f 4)) (if (not (member (cdr (assoc -2 EARX_BTAA)) enams)) (setq enams (cons (cdr (assoc -2 EARX_BTAA)) enams) xbpath(cons (cdr (assoc 1 EARX_BTAA)) xbpath)) ) ;_ ende von if ) ;_ ende von if (setq EARX_BTAA (tblnext ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : dcl listenfeld
CADwiesel am 02.10.2003 um 14:41 Uhr (0)
bsp: dcl :text { label = ; key = a1 ; } dazu in lisp (set_tile a1 hir steht was ) ------------------ Gruß CADwiesel Besucht uns im CHAT
|
| In das Form AutoLisp wechseln |
