Z2_ver2004.zip |
Rund um AutoCAD : Geometriewert nachträglich als Attributstext zu Blöcken.
BiAir am 12.11.2012 um 12:25 Uhr (0)
Hallo Gemeinde!Wir haben ein uraltes Programm zum erstellen von Vermessungsdaten (Punktwolken) für zb. Lagepläne.Nun habe ich viele mögliche Ausgabemöglichkeiten damit ich diese in einen Autocad Plan als DWG portieren kann.Dummerweise entpuppt sich die Konvertiertung als nicht so konfortabel! Egal mit welcher Einstellung.Das Ergebniss ist immer ein Symbol mit korrekten X,Y,Z Werten im Modellbereich und zugeteilter Punktnummer.Im Ursprung aber, ist auch die Punkthöhe im Plan gut sichtbar!Und da liegt der Ha ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Eingabe prüfen in Dialogfeld
Brischke am 24.01.2003 um 08:50 Uhr (0)
Zitat: Original erstellt von dschu: Hallo zusammen, kann mir jemand kurz helfen? Ich mochte in einem Dialogfeld einen einzugebenen Wert (irgend eine Zeichenkette) abfragen. Ähnlich wie : " (initget 1 "J N") (setq EIN (getkword " Eingabe J/N : " ))" Geht das ? Ich hab noch nicht viel mit Dialogfeldern zu tun... Danke für einen Tipp und schönen Tag an alle! dirk Hallo Dirk, du machst eigentlich wiedersprüchliche Aussagen. Die (initget ...) liefert ja nicht irgendeine Zeichenkette zurück. Wenn D ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Text kopieren und ändern
cad-intensiv am 29.09.2005 um 12:13 Uhr (0)
Zitat:Original erstellt von Dober Heinz:Hallo LisplerBin AnfängerHabe einen Text 111/9 will ihn kopieren und die neun um eine erhöhen.Nach abfrage bekomme ich das zurück "111/9" wie muss ich das umwandeln um den Text bearbeiten zu können bzw. die 9 auf 10 umwandeln.Hallo Heinz,das sollte doch in dem gerade von Dir absolvierten LISP Seminar in Wien behandelt worden sein, oder hat Herr Berger das versäumt? Wenn Du mir sagst, wo Du dabei noch Probleme hast, dann kann vielleicht auch ich Dir hier weiter helfe ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Volumenkörper auflösen
LarsM am 27.11.2004 um 11:16 Uhr (0)
@Tunnelbauer, mapcar Mit der Kombination Eurer Antworten habe ich es hinbekommen. Das Einzige Problem was ich noch habe, ist die Vielzahl von Körpern bzw. hochgezogenen Solids. Da muss ich noch ein bisschen forschen wie ich das über Filter hinbekomme oder mir ein Lisp schreiben- ich denke nicht, dass jemand so etwas schon fertig hat. Ziel der Übung wird sein alle Körper zu suchen, mit EXTRUDE zu bearbeiten, einmal EXPLODE, alle Flächen mit z 0 löschen und abschließend verbliebene Fläche in XY-Ebene mittels ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Koordinaten rechteck Datenextraktion
KlaK am 01.10.2021 um 15:32 Uhr (1)
Zitat:Original erstellt von Markus2013:hi, TC17prohier sind nicht die 4 Eckpunkte von jedem Rechteck ausgelesen oder sondern nur pro Pl die beiden Scheitelpunkte wenn ich das richtig verstehe bring mir das leider nichts.Hm, hast Du das falsch interpretiert?Ich sehe in der Textdatei für jedes Rechteck 5 Eckpunkte (1. ist doppelt) und 4 Mittelpunkte der Linien (denke die brauchst Du nicht)und für die Auswertung wäre es sicherlich auch günstiger eine Liste wie folgt zu habenFläche 1: P1x;P1y;P2x;P2y;P3x;P3y;P ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoLisp : Probleme mit Auswahlsatz
mapcar am 02.08.2004 um 22:36 Uhr (0)
(lselsetp ...) ist Lisp-intern eine Prädikatfunktion, die ein Argument daraufhin testet, ob es einen Auswahlsatzsatz enthält. In deinem Fall ist es wohl so, dass ein (ssget ...) o.ä. nil zurückgegeben hat (das ist ja das Problem: Es wäre viel sauberer, wenn man dann wenigstens einen leeren Satz kriegen würde - aber man kriegt nil. Wenn man dann hinzufügen will, kommt genau dieser Fehler. Tom hat 100% Recht: All diesen Quark sollte man einmal im Leben behandeln und sich ein paar Funktionen schreiben. Und da ...
|
| In das Form AutoLisp wechseln |
|
CoCreate Modeling : Annotation: Masstexte in Klammern setzen
der_Wolfgang am 04.09.2008 um 21:47 Uhr (0)
@Stefan, Bild "04. Sep. 2008 11:22" : das hatte ich fast befuerchtet, war mir aber unsicher. Screen shots sind oft *sehr* hilfreich.Nach dem es nun bei dir funktioniert, kannst Du dir ja nun auch mal die xx_avail_cmds.cmd Datei ansehen, die sich nun in deinem user profile dir befinden **ansehen**. Dann weisst Du wo Fred die Schreibweise her hat.Falls Du dir diese utf16 codierte Datei nicht ansehen kannst (aber auch generell) würde ich Dir NotePad++ empfehlen. Der kann auch (mit etwas Hilfe) CoCreate LISP ...
|
| In das Form CoCreate Modeling wechseln |
|
AutoLisp : Liste mit setvar abarbeiten?
RoSiNiNo am 22.02.2005 um 08:22 Uhr (0)
Für die meisten von euch ist diese Frage sicher sehr leicht zu beantworten: Ich habe folgende Liste: Code: (setq DimVarList (list ( DIMADEC -1) ;Anzahl der Nachkommastellen in einer Winkelbemaßung ( DIMALT _OFF ) ;Alternativeinheiten anzeigen, falls eingeschaltet ( DIMALTD 2) ;Anzahl Nachkommastellen für Alternativbemaßung ( DIMALTF 25.4) ;Umrechnungsverhältnis für Alternativeinheiten ( DIMALTTD 2) ;Anzahl Nachkommastellen der Toleranzangabe einer Alternativbemaßung ( D ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Inhalt eines Layers zu Block konvertieren
CADmium am 15.06.2009 um 11:26 Uhr (0)
Willkommen bei Cad.de ... wenn du sowas öfter brauchst, sparst du duch sicher Zeit mit so einer One-Klick-Variante ... dafür muß man dann im Vorfeld für die Programmierung etwas mehr Zeit aufwenden .. wie weit bist du denn schon? Wo hakt dein Code ?Oder erwartest du, dass jemand für dich diese Zeit aufwendet, was zusammensucht und eine Fertiglösung präsentiert ? P.S. Das Lisp an sich sollte dann nicht das Problem sein. Schnipsel davon sind auf jeden Fall schon im Forum zu finden... aber dein Psosting lie ...
|
| In das Form Rund um AutoCAD wechseln |
|
AutoCAD ARX Object : c# .NET SendStringToExecute Abarbeitung
RoSiNiNo am 07.04.2008 um 13:10 Uhr (0)
Was ich weiß gibt es keine Möglichkeit. Zitat:Original erstellt von argh:Hallo Forum!Ich nutze die acmgd.dll & acdbmgd.dll, quasi DotNet-Wrapper-Klassen für ObjectARX. Ich versuche mittels SendStringToExecute vom ActiveDocument Autodesk.AutoCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument einen Lisp-Befehl auszuführen. Dieser Befehl wird aber erst nach der Abarbeitung meines Kommandos ausgeführt. Nun habe ich versucht Über Interop SendCommand dafür zu benutzen, aber die Abarbeitung läu ...
|
| In das Form AutoCAD ARX Object wechseln |
|
Rund um Autocad : Lisp für Ausschnitt kopieren
tom.berger am 25.11.2003 um 10:50 Uhr (0)
Zitat: Original erstellt von krenzi_lange: ich möchte halt aus einer zeichnung einen ausschnitt extra im Modellbereich haben in dem ich den auch mit kleineren massketten und detailierteren inhalten arbeiten kan Du kannst das Teil Ausschneiden (mit Express-Tools oder anderer Programmierung), aber auch ich bin ein erklärter Gegner von solchen Sachen. Damit bringst Du Redundanz in Dein Modell, und Redundanz ist die allergrößte Quelle von Fehlern. Du kannst das sehr gut auch mit dem schon angedeutete ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Region untere und obere Begrenzung
cad-bonn am 25.05.2011 um 10:25 Uhr (0)
Hallo Thomas, nochmal Danke!jetzt versuche ich noch einen Text (Befundnummer) zu wählen, und dieser Text soll in der Befehlszeile aufgelistet werden. Mein Versuch sieht so aus:(defun c:box ( / ELE LL P0 P1 UR BFNR) ;Funktion gibt Punkte für umfassendes Rechteck zurück (vl-load-com) (setq ele(entsel "
Bitte Element wählen:")) (vla-getboundingbox (vlax-ename-vla-object (car ele)) ll ur) (setq p0 (vlax-safearray-list ll));Punkt links unten (setq p1 (vlax-safearray-list ur));Punkt rechts oben (list p0 p1) ( ...
|
| 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 |
