|
Lisp : Protect your Lisp
cadplayer am 06.07.2013 um 19:13 Uhr (0)
Oder hier etwas gekürzt. Du legst eine license.fas - mit der Licenseabfrage an, dann eine Schlüssel.fas, wo dein eigens angelegter key drinsteht und dann rufst du die zwei compilierten Daten in deinem Code auf.Was meint ihr zu dem BeispielCode:; DIE DATEI FÜR DIE LIZENS ABFRAGE; License.fas ( (lambda (date computerName RegistryPIN) (if (and (= date "20130707") (= date "20120707") ) (if (= "XXX" computerName) (if (= RegistryPIN "123456789") "ADSDJNKLULKAIIIDNKLKQQ1239899" (princ "PIN i ...
|
| In das Form Lisp wechseln |
 |
AutoCAD ObjectARX und .NET : Suche Block in Zeichnung bzw Support-list
cadplayer am 04.06.2015 um 08:12 Uhr (15)
Mal kurz nachgefragt, wenn ich prüfen möchte, ob ein Block mit bspw. Namen "CHECK" in der Zeichnung vorhanden ist, gibt es einmal das Problem, dass nur der Blockname mit Grossbuchstaben gefunden werden kann und zum zweiten, sollte der Block nicht in der aktuellen Zeichnung sein, soll in den Supportfiles gesucht werden. In LISP ist das sehr einfach zu erledigen, wie sieht es jedoch mit C#.NET ausCode:using (Transaction myT = db.TransactionManager.StartTransaction()) { //Get the block definition ...
|
| In das Form AutoCAD ObjectARX und .NET wechseln |
|
Lisp : Funktionen mit TAST belegung
cadplayer am 06.12.2012 um 08:15 Uhr (0)
Zu der Frage, nicht immer ist alles sinnvoll, was einem einfällt. Jedoch bin ich angeregt immer mein Arbeitsset zu hinterfragen und evtl. zu verbessern. Die Idee jetzt einen Befehl nur durch drücken einer Taste auszuführen rührt von den Kurzcommandos der alias her. Da ich ein Fan von kürzeln bin, möchte ich die Sache noch erweitern: Ich habe eine Vorlage erzeugt, die die Tastatur darstellt und im Hintergrund Buttons installiert, die beim anklicken mit der Maus die Eingabe eines Befehls simmulieren sollen. ...
|
| In das Form Lisp wechseln |
|
Lisp : Protect your Lisp
cadplayer am 06.07.2013 um 14:32 Uhr (0)
Hi Peter, es sollte ein simples Beispiel sein, du kannst aber mit getenv wesentlich mehr abfragen, siehe hier Ich habe das Rad mal ein wenig weiter gesponnen. Was hälst du davon?Code:;| den RegistryVerweis solltest du mit einem exe.Aufruf schreiben damit nur du weist wo die Abfrage steht. Zu Testzwecken kannst du mal diese Zeile eingeben (vl-registry-write "HKEY_CURRENT_USERTest" "" "123456789")|;(defun license (date computerName RegistryPIN) (if (= date "20130707") (if (= "XXX" computerName) (if (= ...
|
| In das Form Lisp wechseln |
DumpObjects.zip |
AutoCAD ObjectARX und .NET : Kompilieren in Version 2012 bis 2015
cadplayer am 09.01.2015 um 18:52 Uhr (1)
Generell meine Frage: Beim Kompilieren in C# kommt es immer darauf an die richtigen Biblioteken in den jeweiligen Versionen anzugeben.Jetzt kann ich mir allerdings nur schwer vorstellen, dass der Profi dazu das geschriebene Projekt auf die einzelnen Versionen anpasst. Sprich händisch Acdbmgd, Acmgd und die entspr. Debug-Acadversion, bspw. C:Program FilesAutodeskAutoCAD Civil 3D 2012acad.exe angibt.Gibt es da einen einfacheren Weg ?Ich bin da ja ein wenig von LISP verwöhnt, da geht´s auf anhieb. Als zweites ...
|
| In das Form AutoCAD ObjectARX und .NET wechseln |
|
AutoCAD ObjectARX und .NET : Xref Suchpfad umstellen
cadplayer am 09.05.2018 um 13:25 Uhr (15)
Ich mache die überlegung eine kleine Anwendung zu schreiben, die Dateisuchpfade umstellt von den gewählten Zeichnungen mit beinhalteten xreferenzen.Mit Lisp hatte ich mal kurz getestet und festgestellt, dass es mitweilen sehr viel Zeit in Anspruch nimmmt.Code:(vl-load-com) (setq xr (vla-Get-Blocks (vla-Get-ActiveDocument (vlax-Get-Acad-Object)))) (vlax-for n xr (if (= (vla-Get-IsXref n) :vlax-True) (progn (if (findfile (vla-Get-Path n)) (progn (protocol (strcat (vla-Get-Path n) "" (vla-Get-Name n) ": ...
|
| In das Form AutoCAD ObjectARX und .NET 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 : dynamische Anzeige am Fadenkreuz
cadplayer am 14.03.2012 um 14:07 Uhr (0)
Hi!Ich möchte gern Höhen von einem Bezugstext aus setzen. Mich würde interessieren, ob es in Lisp eine Möglichkeit gibt: bevor der neue Text gesetzt wird, anzuzeigen welchen berechneten Wert der Text ergibt.Mir also gleich am Fadenkreuz angezeigt wird, welche neue Höhe kommt nach Position des Fadenkreuzes.Code:(defun c:znh () (setq obj (entget (car (entsel "
Wähle Textobjekt ! "))) p1 (cdr (assoc 10 obj)) ha (atof (cdr (assoc 1 obj))) pro (getreal "
Prozent ! ") ) (while (setq p2 (getpoint "
Zielpunkt ...
|
| In das Form Lisp wechseln |
knr.dwg.txt |
Lisp : Dynamischen Block via Lisp steuern
cadplayer am 12.06.2013 um 11:31 Uhr (0)
Mein Visualkenntnisse steigen zwar allmählich, aber stehe ich hier vor einer neuen Tür.Code:;; From: "Tony Tanzillo" ;; Newsgroups: autodesk.autocad.customization;; Sent: Friday, May 13, 2005 6:37 AM;; Subject: Re: DynamicBlock method;; Get a single dynamic block property object by name(defun dyGet (DynBlockRef Name) (vl-some (function (lambda (property) (if (eq (vlax-get-property property PropertyName) Name) property ) ) ) (vlax-safearray-list (vlax-variant-value ...
|
| In das Form Lisp wechseln |
|
Lisp : schriftfelder via lisp (ac2005)
cadplayer am 25.08.2009 um 10:57 Uhr (0)
ich versuch mir quasi in den Beschriftungsmöglichkeiten mit _field etwas zusammenzustricken, womit ich einfach eine Linie wähle und deren Eigenschaften beschrifte. Bsp Länge ausgeben funktioniert. Indem ich .length mit .layer ersetze kann ich auch den Layer assoziativ beschriften.@dorfy: super wäre, wenn das mit mehreren Linien geht. Allerdings müsste es den Text dann automatisch an die Linie setzen lassen (bsp Anfangspunkt). Ist das mit (getpoint "Select Point: ") denn möglich?(defun c:lnkfld () (setq a ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 13.02.2013 um 08:36 Uhr (0)
Bau dir doch erstenmal was einfacheres auf - Einen Quellblock wählen von dem du dir alle Eigenschaften, die du willst, ausliest und im Anschluss auf die anzupassenden Blöcke überträgst. Eine weitere überlegung wäre dann, dein tool mit einem DCL menu zu verbessern.Es ist ein ganzes Stück Arbeit, was du abverlangst, davon hast du schlussendlich wenig gewonnen.Hier mal ein Anfang....Code:(defun EigAuslesen (srcblk / ; QuellblockObjekt srcobj ; VLA Objekt;;; lst ; Ergebnis Eigenscha ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 18.02.2013 um 14:02 Uhr (0)
Ich hab das ganze jetzt mal mit einer GeradenschnittMethode umgesetzt. Es läuft noch nicht so wie es soll. Dennoch will ich es hier mal zum Testen reinstellen. Es ist auf den ersten Blick ein Wirrwar von Variablen - verbessungswürdig, desweiteren müsste eigentlich gesagt werden, wie das Attribut von seiner Ursprungsposition verschoben wurde.Vielleicht kennt einer einen besseren Weg das auszumerzen.Code:(defun _selectAtt (InsObj / ) (if (setq InsObj (entsel "Insert wählen: ")) (setq InsObj (entget (car Ins ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe bei lisp! Block Attrtibute rotation und position!
cadplayer am 19.02.2013 um 10:29 Uhr (0)
Danke Jörn, deine zwei Funktionen liefern mir einmal die Koordinatenunterschiede zw BlockPkt und AttribPkt und dann den Winkel.Ein bissel schwierig ist das nächste Problem auf das meine Frage galt, wenn die Blöcke gedreht sind können im (ich betone im Objekt UCS) die Koordinatenunterschiede und Winkel gleich sein. Also sollte die übertragung der AttribPosition auf die Zielblöcke gleich ausfallen. Tut es bei mir aber nicht.Ich weiss nur nicht wie ich das einbauen kann. Frage: Wie bekommt man die Koordinaten ...
|
| In das Form Lisp wechseln |
