|
Lisp : Lisp aus Delphi starten
neurosis am 15.05.2008 um 15:44 Uhr (0)
da hab ich doch wirklich eine konstantendeklaration uebersehenAcadApp = AutoCAD.Application.15; fuer 2000-2002AcadApp = AutoCAD.Application.16; fuer 2004-2006AcadApp = AutoCAD.Application.17; fuer 2007-2008------------------Marco Heuerwww.arc-aachen.deAirport Office
|
| In das Form Lisp wechseln |
|
Lisp : lisp code?
neurosis am 02.02.2011 um 11:23 Uhr (0)
hallo chris,(setq ss (ssget "_x"(list (0 . "LWPOLYLINE") (-4 . "NOT") (cons 62 color) (-4 . "NOT"))))es werden alle lwpolyline ausgewaehlt, die nicht auf farbe color liegen.edit: da war ich woll etwas zu langsamgrussmarco------------------Marco Heuer www.arc-aachen.de Airport Office[Diese Nachricht wurde von neurosis am 02. Feb. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Lisp aus Delphi starten
neurosis am 16.05.2008 um 02:32 Uhr (0)
hier noch eine seite mit beispielen fuer delphi / autocad activex: http://www.caddzone.com/delphi/samples.htm ------------------Marco Heuer www.arc-aachen.de Airport Office[Diese Nachricht wurde von neurosis am 16. Mai. 2008 editiert.][Diese Nachricht wurde von neurosis am 16. Mai. 2008 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
neurosis am 31.08.2011 um 08:30 Uhr (0)
probier das mal:Code:(setq DATA (STD-STRTOK ZEILE ", ") ; ("1" "6395579.272" "148352.957" "87.760" "HP") PKT (list (atof (nth 1 DATA)) (atof (nth 2 DATA)) (atof (nth 3 DATA))) PNR (car DATA) ZKO (rtos (caddr PKT) 2 3) PCODE (last DATA))fuers umgehen mit dem Visual-LISP-Editor siehe joern bosse: http://www.bosse-engineering.com/downloads/090501_VisualLISP-editor.pdf grussmarco------------------Marco Heuer www.arc-aachen.de Airport Office[Diese Nachricht wurde von neurosis am 31. Aug. 201 ...
|
| In das Form Lisp wechseln |
|
Lisp : Erweiterung Lisp zum Ermitteln von einem Schnittpunkt
neurosis am 17.12.2008 um 14:28 Uhr (0)
hallo,1. eckpunkte mittels getpoint von flaeche angeben oder punkte der flaechenbegrenzung auslesen (uebergabe mittels entsel)2. alle relevanten linien ueber ssget anklicken3. in einer schleife alle schnittpunkte der flaeche mit einzelnen linien berechnen (siehe dazu auch http://local.wasp.uwa.edu.au/~pbourke/geometry/planeline/ ) und in liste speichern4. polylinie oder linien aus allen schnittpunkten erzeugengrussmarco------------------Marco Heuer www.arc-aachen.de Airport Office
|
| In das Form Lisp wechseln |
|
Lisp : Funktionen mit TAST belegung
neurosis am 06.12.2012 um 09:26 Uhr (0)
Zitat:Marco, dein Beispiel funktionier aber nur bei von Autocad internen Befehlen, wenn ich allerdings eine Funktion (c:MeinBefehl) habe dann kommt "LISP command is not available"das bezweifel ich (wenn mans richtig macht).deine eigene funktion:Code:(defun c:comfunc() (print "funktioniert"))alias definierenCode:(setq string "(defun c:bsp() (c:comfunc))")alias bekannt geben:Code:(eval (read string))alias starten:Befehl: bsp"funktioniert" "funktioniert"grussmarco------------------Marco Heuer www.arc-aachen.d ...
|
| In das Form Lisp wechseln |
|
Lisp : Kombination aus member und wcmatch
neurosis am 10.02.2012 um 09:50 Uhr (0)
hallo cadblue,hier mal eine moeglichkeit ohne "vl-" aus der "stdlib" von http://xarch.tu-graz.ac.at/autocad/stdlib/ (vielleicht gefaellt dir das mehr.)Code:;;; Returns first position of match in str or nil;;; case-sensitive, no regex, plain substring, first index = 1;;; Boyer-Moore method by Serge Pashkov, faster than old strpos below;;; Lisp translation of Modula-2 program from the book;;; "Algorithms and data structure", N.Wirth, Prentice-Hall, Inc. 1986;;; see contrib/boyer-moore.lsp for benchmarks and ...
|
| In das Form Lisp wechseln |
