PL-CIRCLE2P.zip |
Lisp : Punkte auf Polylinien
CADmium am 25.09.2019 um 08:21 Uhr (1)
Irgendwo hatte ich schon mal sowas auf cad.de gepostet .. aber neuschreiben geht manchmal schneller als und-color: #FFFF99'>suchen ... anbei ------------------Also ich finde Unities gut ... und andere sicher auch--------------------------------------- - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Funktion wcmatch
CADmium am 09.09.2013 um 11:46 Uhr (1)
Ich mach jetzt mal kein Bild.. ich hoff der Text genügt dir :"Anmerkung :Because additional wild-card characters might be added in future releases of AutoLISP, it is a good idea to escape all nonalphanumeric characters in your pattern to ensure upward compatibility."das heißt , vor jedes Zeichen , was keine Zahl ist ein "`" setzen ... dann wird das Zeichen ohne irgendwelche Interpretationen seitens wcmatch genommen .... brauch man auch wenn man direkt nach "*" und-color: #FFFF99'>suchen will ------------------Also ich finde ...
|
| In das Form Lisp wechseln |
|
Lisp : Anzahl aktuell geöffneter Zeichnungen ermitteln
CADmium am 05.06.2008 um 09:55 Uhr (0)
Ja.... ActivX..Property COUNT der DOCUMENTS-Collection des ACAD-OBJECTSdie Zeile dazu bastelst du dir aber bitteschön mal selber und postest sie mal als Beweis für eigenständiges und-color: #FFFF99'>Suchen und Arbeiten .------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : vla-explode: und-color: #FFFF99'>MTexte?
CADmium am 19.05.2011 um 07:41 Uhr (0)
Zitat:Original erstellt von joern bosse:Mir geht es nur darum, daß ich den MText zur Laufzeit eines DCL-Fensters in den Ursprung zerlegen will...Darf ich nach dem Hintergrund fragen ?------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : und-color: #FFFF99'>suchen und erstzen
CADmium am 27.07.2004 um 10:04 Uhr (0)
such mal in der Hilfe des AutoLispeditors unter ssget.. und zum Ersetzen ... soll der Blockbasispunkt = Kreismittelpunkt sein?? - Diese Geometriedaten stehen zumeist in den dxf-Gruppencodes 10.. Bei weiteren Fragen.. ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
AutoLisp : und-color: #FFFF99'>Suchen Programierer
CADmium am 08.06.2004 um 16:23 Uhr (0)
Schau mal z.B. hier und hier ------------------ - Thomas -
|
| In das Form AutoLisp wechseln |
|
Lisp : Variablen eines Fremdprogramms und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 11:14 Uhr (0)
Was ist das für ein Programm ? Was nützten dir die internen (lokalen) Variablennamen ? Was sagt der Programmersteller ?------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Objekte über Appid und-color: #FFFF99'>suchen
CADmium am 20.02.2006 um 21:04 Uhr (0)
Hier findest du entsprechendes zum Thema....Also zuerst einen Auswahlsatz bilden und dann aussortieren, was nicht den Vorgaben entspricht .. ------------------ - Thomas -"Du bist einen uns unbekannten Weg in eine andere Form des Seins gegangen. - Wir sehen uns wieder in deinem Paradies! - Tschüß Axel.."
|
| In das Form AutoLisp wechseln |
|
Lisp : Variablen eines Fremdprogramms und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 11:34 Uhr (0)
(atoms-family ..) in einer DWG aufrufen bevor das Programm geladen wird und dann noch einmal danach un dann die Ergebnisse vergleichen(type(eval SYMBOL)) sagt was über den verknüpften Inhalt aus ..------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Nach Block in Zeichnung und-color: #FFFF99'>suchen
CADmium am 20.02.2012 um 07:45 Uhr (0)
mit (setq BL(tblnext "BLOCK" .... durch die Blocktabelle laufen .. dabei mit (tblobjname "BLOCK"(cdr(assoc 2 BL))) das Blockobjekt holen und von diesem mittels (entnext.. die Blockelemente durchlaufen ..diese auf "INSERT" testen und gucken ob der Name mit dem vorgegebenen übereinstimmt..------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
Lisp : Lisp soll nach Blöcken und-color: #FFFF99'>suchen
CADmium am 07.04.2009 um 13:41 Uhr (0)
was haste denn da noch alles zu laufen ?am besten ganz am Ende der acaddoc.lsp die Zeilen einfügen...du kannst sie auch einfach durch Kopieren in die Befehlszeile testen ..------------------ - Thomas -"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."
|
| In das Form Lisp wechseln |
|
AutoLisp : Blöcke und-color: #FFFF99'>suchen mit lisptool von weckes
CADmium am 17.01.2005 um 10:53 Uhr (0)
Ja, solche Fragefragmente hast du schon hier ins Forum gestellt. Damit kann (glaube ich ) keiner was anfangen. Nochmal : Was ist die gestellte Aufgabe? Was willst du machen ? Betrifft es eine Zeichnunge oder mehrere? und ??? ------------------ - Thomas - "Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben." [Diese Nachricht wurde von CADmium am 17. Jan. 2005 editiert.]
|
| In das Form AutoLisp wechseln |
|
AutoLisp : und-color: #FFFF99'>suchen und erstzen
CADmium am 27.07.2004 um 11:11 Uhr (0)
im Endeffekt sollte dann so ne Funktion rauskommen : (defun C:Ersetze ( / Kreis Block AUSWAHL OBJEKT INDEX) (if (and(setq BLOCK(getstring
Blockname: )) (tblsearch BLOCK BLOCK) (setq Kreis (car(entsel
Kreis wählen: ))) (setq Kreis (entget KREIS)) (=(cdr(assoc 0 KREIS)) CIRCLE ) (setq Auswahl (ssget _x (list (assoc 0 KREIS) (assoc 8 KREIS) ...
|
| In das Form AutoLisp wechseln |
