|
AutoLisp : Neuen Layer frieren
Kramer24 am 19.09.2003 um 18:46 Uhr (0)
Hallo Lispler, habe eine Lisp gefunden, das - so wie ich es verstehe- einen neuen Layer in allen Ansichtsfenstern friert, so dass man diesen nur in den Af tauen muss, in denen man den Layer wirklich braucht. Das läuft aber bei mir nicht (AC,ADT2004). Vielleicht kriegt Ihr s hin...:confused; Lothar =====BEGIN CODE HERE======= ;Creates a layer that is frozen in existing vports ;From the gang at CADalog...thanks folks! ; ; (defun c:crelayfrz (/ ) (While (/= layname ) (setq layname (Getstring
New l ...
|
| In das Form AutoLisp wechseln |
 |
Lisp : Xaml help file mit url verknüpfen
cadplayer am 06.04.2017 um 08:56 Uhr (15)
Hallo!Meine Frage hat nicht unmittelbar etwas mit Lisp zu tun. Und zwar möchte ich meine cuix-menu datei so gestalten, dass ein vidoclip (gif oder url) am Button in tool- oder ribbonbar anzeigt wird. Ich hab mir in der Hilfe folgendes zusammengebasteltCode:ResourceDictionary xmlns="http://schemas.microsoft.com/winfx/2006/xaml/presentation" xmlns:x="http://schemas.microsoft.com/winfx/2006/xaml" xmlns:src="clr-namespace:Autodesk.Windows;assembly=AdWindows" src:RibbonToolTip x:Key="MYEH_CMD_0001" src:RibbonT ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte nach Inhalt in Layer verschieben
jupa am 08.03.2016 um 14:33 Uhr (1)
Zitat:Original erstellt von Meldin: habe den code von Cadmium entwas umgebaut....((= (cdr (assoc 0 Y)) "TEXT")(wcmatch (getpropertyvalue (cadr X) "TextString")MATCHSTR))((= (cdr (assoc 0 Y)) "MTEXT")(wcmatch (getpropertyvalue (cadr X) "Text") MATCHSTR)))...[OT, gehört eigentlich ins LISP-Brett]@Wolfgang; Textobjekte haben eine mit getpropertyvalue auszulesende Eigenschaft "TextString", so weit klar. Woher hast Du die Kenntnis, daß MTextobjekte hingegen die Eigenschaft "Text" besitzen? Wenn ich in der Hilfe ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text beim kopieren sichbar
mkl-cad am 14.11.2005 um 09:59 Uhr (0)
Hallo,das habe ich mir fast gedacht. Dazu verwenden wir foldendes Lisp:(defun c:e-nummer ( / wert a r o o2 l aa) (setq wert 1 r -1 a (ssget "x" ((0 . "Insert") (2 . "E-nr")))) (if (= a nil)()(progn (repeat (sslength a) (setq r (+ r 1)) (setq o (ssname a r)) (setq o2 (atoi (cdr (assoc 1(entget(entnext o)))))) (if (= o2 nil)(setq o2 "0")()) (if (or ( o2 wert)(= o2 wert))(setq wert (+ 1 o2))()) ))) (setq aa (tblsearch "layer" "E-stromkreisnr-ne")) (if (= aa nil) (command "layer" "neu" "E-stromkreis ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Polylinie > Eigenschaften übernehmen!
fuchsi am 25.07.2005 um 15:30 Uhr (0)
also, Dein Lisp Programm macht eigentlich nicht viel anderes als der Pinsel-Befehl in Auto Cad (allerdings rein beschränkt auf Polylinien) Übertragen der Eigenschaften LAYER,FARBE,BREITE und LINIENTYP von eiener Polylinie auf die andere. (Warum das Porgrammerle allerdings so kompliziert geschrieben worden ist, ist mir eine Rätsel, das würde ein simpler 5-Zeiler genauso machen, aber man kanns ja mit der Active-X Schnittstelle auch etwas übertreiben) Das was du da kopieren möchtest : ...(-3 ( LTNR_00042 ( ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Funktion zum Öffnen einer Lisp-Datei
Brischke am 22.11.2011 um 16:31 Uhr (0)
Zitat:Original erstellt von Barbara33:... Nun wird eine Funktion gesucht, die in dieser Datei stehen soll, die diese so öffnet (vielleicht mit Wordpad?), um darin händisch Änderungen oder Ergänzungen vornehmen zu können. ...Hallo Barbara,darf ich mal ganz blöd, nach dem Sinn dessen fragen?In meiner Zeit als CAD-Admin habe ich strengstens verboten, dass irgendjemand Änderungen in den Lisps vornimmt.Oder bist du in einem Büro beschäftigt, dass sich ausschließlich mit der Programmierung beschäftigt (wo das d ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Fehler in meiner MNU Datei
Waldemar am 08.03.2004 um 14:19 Uhr (0)
Hallo Forum, beim Dazuladen eigener Menüdatei über ein zus. Programm (Lisp) taucht nachfolgende Fehler meldung auf: Laden des Menüs mißlungen. Datei nicht gefunden: _menuload.(mnu/mns/mnc) . Das Menü wird allerdings korrekt hinter dem Acad Menü geladen. Habe es nachvollzogen, das es nicht am Ladeprogramm liegt. Anbei Teil daraus: (if (findfile acetmain.mnc ) (progn (princ
Lade Fremdprogramme: Express ) (command _menuload ACETMAIN ) (menucmd P13=+express.pop1 ) ;; wurde von p12 auf p1 ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Blockattribute drehen
Dorfy am 02.08.2011 um 13:42 Uhr (0)
ich versuch es mal(DEFUN c:rb ( / obj ele pkt wi ) (if ;if schleife auf( (setq obj (car (ENTSEL "Block wählen: "));bedingung( ele (entget obj);bedingung pkt (CDR (ASSOC 10 ele));bedingung );bedingung)(progn;fehlt hier sicherlich (COMMAND "_ucs" "_object" (CDR (ASSOC -1 ele)));koordinatensystem verschieben (SETQ wi ;neuen drehwinkel berechnen(+ ;du addierst (CDR(ASSOC 50 ele));die Drehung vom insert (GETANGLE ;mit einem Winkel aus Basispunkt und einer Eingabe(TRANS ;Transformieru ...
|
| In das Form Lisp wechseln |
|
Lisp : RText mit Field ersetzen
Gargarot am 10.06.2009 um 11:16 Uhr (0)
Hallo!Da DWG TrueView keine RTexte mit Dieselausdrücken (aus den Expresstools?) anzeigen kann, habe ich nun was zusammengebastelt welche diese RTexte mit feldern in einem MTExt ersetzt. Diese befinden sich auf unseren Titelblättern mit Verweis auf den Dateinamen. Funktionieren soll dies in ACAD 2007 + 2009.Ich hab dies zum Anlass genommen mich etwas in LISP einzuarbeiten und folgendes ist herausgekommen:;--------------------------------------------;HAC v1 10.06.2009(defun c:r2f ( / echo unit rtext ref base ...
|
| In das Form Lisp wechseln |
|
AutoLisp : VLX und upload
Brischke am 06.10.2004 um 14:28 Uhr (0)
Zitat: Original erstellt von AsSchu: @Brischke ich wollte das nicht automatisch laden lassen; sondern nur wenn der Button aktiviert wird ähmm sorry, aber genau das macht dieser Eintrag in einer mnl-Datei. Wenn ein Button gedrückt wird, dann prüft Acad, ob es für diesen Befehl eine autoload-Anweisung gibt und lädt, sofern noch nicht geschehen, die angegebene VLX/LSP-Datei. Einfacher gehts in meinen Augen nicht. Du brauchst nicht an irgendwelchen Orig-Acad-Dateien rumbasteln, auch wenn die dazu geda ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Hilfe beim Rauschschreiben !!!
Andreas Kraus am 01.08.2008 um 15:23 Uhr (0)
Hallo FiRePhoeniX, Zitat:Das problem an dem Code ist das er mir die kordinaten in ein einer Variable speichert.Ich breuchte aber für jeden Punkt eine.Warum brauchst du für jede Koordinate eine Variable ?Du weist doch bei einer Polylinie vorher gar nicht wieviele Stützpunkte die hat.Gewöhn dich bei LISP lieber an die Verarbeitung in Listen und an die Befehle "mapcar" und "foreach" sonst erzeugst du ein Programm zur Verwaltung von Variablen und nicht das was du eigentlich vorhast.Das nur als gut gemeinter Ti ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Befehl dinfo
cadffm am 27.04.2023 um 09:04 Uhr (1)
Super,dann geht es also um DINFO welches kein Mensch kennen konnte,ich aber bereits zufällig das richtige Tool bzw. dessen Ursprung gefunden und oben verlinkt hatte Klick1. Von der Programmierung her sollte das Programm problemlos in Bricscad laufen.2. Deine angehängt Datei ist nicht die richtige Datei, die läuft sicher auch nicht in AutoCAD. Hier ist die Frage: Hast du das extra für uns gemacht (uns könnte ja Langweilig sein), oder ist das bereits dein Problem - die falsche Datei?!Ziehe die Datei per ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Attributwert ändern!
marc.scherer am 10.05.2004 um 08:33 Uhr (0)
Hi Markus_cad, hier ein uraltes Lisp von mir, welches Dir helfen könnte: Code: ;;; Funktion tauscht Attributwerte aus. ;;; Zu übergeben ist eine cons List aus ;;; ("ATTBEZEICHNUNG" . "NEUER TEXTWERT") ;;; sowie der Elementname des Blocks, dessen Werte verändert werden sollen (defun ED-ATT (CHANGELST OBJNAME / ATTNAME BACK CHK OBJDATA TXTWRT) (setq ATTNAME (car CHANGELST) TXTWRT (cdr CHANGELST) OBJDATA (entget OBJNAME) ) ;_ end of setq (while (/= (cdr (assoc 0 OBJDATA)) "SEQEND") ...
|
| In das Form AutoLisp wechseln |
