|
Lisp : cond
CAD-Huebner am 27.06.2014 um 14:50 Uhr (1)
Dein Code ist ja gar kein Lisp, das sieht fast nach Basic ausCode:(setq L 900.0)(setq Anzahl (cond ((= L 350) 2) ((= (/ L 2) 350) 3) ((= (/ L 3) 350) 4) ((= (/ L 4) 350) 5) ))(Print L)(print Anzahl)Aber wäre eine Formel für die Anzahl nicht bequemer?------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : Lisp beenden!
CAD-Huebner am 04.06.2015 um 10:30 Uhr (1)
Ich denke ein Mouse Reaktor ist hier Overkill.Als Kompromiss kann man eine Option zur Beendigung des Befehls einbauen (hier Beenden).Code:(defun Init () (setq Err *error* *error* Fehler Osx (getvar "OSMODE") ))(defun ReInit () (setvar "OSMODE" Osx) (setq *error* Err) (redraw t_2 4) (princ))(defun Fehler (s) (print (strcat "Fehler: " s)) (ReInit))(defun c:LINE_BRUCH (/ t_0 t_1 t_2 Err Osx) (Init) (vl-load-com) (setq t_0 T) (While t_0 (setq t_0 nil) (While (not t_0) ; Diese Zeile auskommentieren, ...
|
| In das Form Lisp wechseln |
 |
Lisp : Polylinien abhängig vom Startpunkt versetzen
CAD-Huebner am 29.08.2015 um 12:31 Uhr (15)
Hallo m.hacker,viellecht reicht ja auch schon die vorgefertigte Offset Methode (ActiveX) für deine Zwecke.ich hab das mal in eine einfache Lisp Routine (ohne Error Handling) gepackt zum Test.Code:(vl-load-com)(defun C:UHPLOFFSET ( / dist cnt obj sset) (Prompt "Gleichzeitiges Versetzen nach rechts von mehreren Polylinien - Udo Hübner 8/2015") (initget 6) ; Abfrage Versatzabstand 0 (if (setq dist (getdist (strcat "
Versatzabstand eingeben: " (rtos (getvar "OFFSETDIST")) ""))) (setvar "OFFSETDIST" dist) ) ( ...
|
| In das Form Lisp wechseln |
|
Lisp : Mehrere Blöcke bearbeiten
CAD-Huebner am 07.09.2015 um 11:11 Uhr (1)
Zuerst einmal würde ich Befehl: ZURÜCK STEUERN KEINE setzen, um die Rückgängig Funktion nicht unnötig zu belasten.Dann kann man alle 100 Blöcke zwischenspeichern, ggf. sogar Zeichnung schließen und neu starten (allerdings höherer Programmieraufwand).Oder gänzlich auf Commands verzichten und alle Änderungen direkt mir Lisp/vba/.net in der Datenbank durchführen, allerdings müsste das Schraffurobjekt dann generiert werden und das ist je nach Kontur recht aufwändig. Da wäre ein Beispiel mit einigen ausgewählte ...
|
| In das Form Lisp wechseln |
|
Lisp : Hilfe beim Laden der Hauptanpassungsdatei über Lisp
CAD-Huebner am 03.08.2016 um 15:57 Uhr (1)
verwende statt_menuloadCode:(command "_menu" "C:Users....acad.cuix")zum Laden der Hauptanpassungsdatei.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : _Copy & Koordinaten - LISP
CAD-Huebner am 02.11.2016 um 18:26 Uhr (1)
Es geht auch, ohne einen Basispunkt zu wählen.Außerdem hab ich noch eine zusätzliche Anfrage sowie eine Meldung falls nichts gewählt wird eingebaut.Code:(defun C:DeckLinie (/ gelaende ) (Prompt "Bitte Geländeoberkante(n) wählen:") (if (setq gelaende (SSGET)) ;Geländeoberkante wird ausgewählt (command "_Copy" gelaende "" (list 0.0 -1.1) "") ;Geländeoberkante 1.1m nach unten kopieren ;else (prompt "nichts zu kopieren gewählt.") ) (prin1); nil am Ende unterdrücken) ;end defun------------------Mit freun ...
|
| In das Form Lisp wechseln |
|
Autocad VBA : vorhandene Bemassungen ändern
CAD-Huebner am 02.12.2004 um 23:15 Uhr (0)
Ich kanns nur in Lisp, das hier sollte wohl auch mit AutoCAD 14 laufen da ich vollständige auf VisalLisp Funktionen verzichtet habe. Dafür ist es auch etwas länger geworden und nicht so elegant wie der Code von CADmium. Code: ; Hauptprogrammm ; Beispielprogramm zum Einsatz der Bemaßungsüberschreibungen ; die in EEDs gespeichert sind. (DEFUN C:BEMU ( / ss cnt) (PROMPT
Übersteuerung von Bemaßungsvariablen hier DIMDEC = 3 ) (PROMPT
Bemaßungen wählen: ) (SETQ ss (SSGET (LIST (CONS 0 DIMENSION ))) ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : ACAD-Objekte in Access-Bericht ausgeben
CAD-Huebner am 08.03.2005 um 11:06 Uhr (0)
Hallo Dexta, nachdem ich deine allererste Frage noch einmal gelesen hatte, war mir auch klar, dass du eigentlich in deiner Tabelle erkennen möchtest, ob ein Datensatz überhaupt mit einem AutoCAD Objekt verknüpft ist (für weitere Auswertungen). Über die DBVERBINDUNG in AutoCAD wird ausschließlich am Objekt ein Vermerk (über Extended Entitiy Data) gesetzt, das den Namen der Datenquellenverknüpfung und (in hexadezimaler Form) die Inhalte der Schlüsselfelder enthält. Man kann nur mit einem Zusatzprogramm aus A ...
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Lisp Variable über VBA
CAD-Huebner am 23.06.2005 um 23:18 Uhr (0)
Also auf globale Lisp-Variablen kann man (meines Wissens) nicht direkt von VBA zugreifen. Zum Austausch weniger Werte könnte man auf die USERX1-5 Variablen zurückgreifen, oder die Daten in einem Wörterbuch speichern. Die Dictionary Befehle sind sowohl in LISP wie in VBA verfügbar. Dazu aber auch noch mal dieser Beitrag. http://ww3.cad.de/foren/ubb/Forum145/HTML/001060.shtml ------------------ Mit freundlichem Gruß Udo Hübner
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Attribut an nur einen bestimmten Block anhängen
CAD-Huebner am 19.08.2005 um 15:44 Uhr (0)
Also mit Lisp ist das ohne Probleme möglich, zur Umsetzung in VBA kann ich aber nichts sagen.------------------Mit freundlichem GrußUdo Hübner
|
| In das Form Autocad VBA wechseln |
|
Autocad VBA : Interpolation z-wert in 3d-fläche
CAD-Huebner am 09.03.2006 um 22:03 Uhr (0)
Bei der Winkelmethode reicht eigentlich schon die Überprüfung, ob aller Winkel = 180°, evt. kann das Dreieck schon beim ersten Vergleich ausscheiden.Alternativ kann man auch prüfen, ob Fläche des Dreiecks P1-P2-P3idetisch ist mit der Summe der Teilflächen P-P1-P2, P-P2-P3 und P-P3-P1.Um die zu überprüfenden 3D Flächen vorab zu filtern, kann man prüfen, ob die Boundingbox der Flächen den prüfenden Punkt überhaupt einschließt.Ich hab auf die Schnelle nur eine LISP Variante, die lässt sich wegen der Selection ...
|
| In das Form Autocad VBA wechseln |
|
AutoCAD VBA : Maßstabsliste zurücksetzen
CAD-Huebner am 24.06.2008 um 14:44 Uhr (0)
Hier gibts schon fertige LISP Programme, die ohne COMMANDs auskommen. http://ww3.cad.de/foren/ubb/Forum54/HTML/016522.shtml Wenns VBA sein soll, dann einfach entsprechend umschreiben.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de[Diese Nachricht wurde von CAD-Huebner am 24. Jun. 2008 editiert.]
|
| In das Form AutoCAD VBA wechseln |
|
AutoCAD VBA : Kreisbogen mit 3 Punkten
CAD-Huebner am 12.01.2009 um 22:30 Uhr (0)
in Lisp würde das (mit Command) so aussehen:Code:(defun c:3dbogen( / pa pn pe) (command "_ucs" "_world") (setq pa (getpoint "P1 (Startpunkt):")) (setq pn (getpoint "P2 (Punkt auf Bogen):")) (setq pe (getpoint "P3 (Endpunkt):")) (command "_ucs" "_3p" pa pn pe) ; Bogen über 2 Punkte (command "_arc" (trans pa 0 1)(trans pn 0 1)(trans pe 0 1)) (command "_ucs" "_world")) Die commands lassen sich mit Sendcommand in ähnlicher Form einsetzen, für trans kann man die AutoCAD.Application.ActiveDocument.Util ...
|
| In das Form AutoCAD VBA wechseln |
