 |
Lisp : Hilfe für LISP-Datei
cadplayer am 17.02.2018 um 17:21 Uhr (15)
Hi!Scheint uralt zu sein - hui wird einem ganz schwindlig, vielleicht sollte man mal sein polnisch aufbessern In dieser Zeile wird nach einer DCL gefragt:Code:(if ( (setq dcl_id (load_dialog "ddnum.dcl")) 0) (exit))Schau mal ob die dir vielleicht abhanden gekommen ist, ich konnte auf die Schnelle nicht sehen, ob diese im index vielleicht auch erzeugt wird. Jedenfalls kommt es da schon zum Absturz bei mir.------------------Gruss DirkBlog
|
| In das Form Lisp wechseln |
|
Lisp : volumenkörper
cadplayer am 14.09.2012 um 13:54 Uhr (0)
ACHTUNG! Sie antworten auf einen Beitrag der älter als 1 Jahr ist! Aber immernoch aktuell!Kann man denn Volumen auch von verschnittenen Volumenkörpern ermitteln. Beispielsweise ein "neuer" Strassenkörper liegt auf oder unter dem Gelände und es soll nun ermittelt werden wieviel Volumen Auf& AbtragSo richtig schlau werde ich aus dem 3DSolig Interface nicht Code:Command: (vlax-dump-object (vlax-ename-vla-object (car (entsel))))Select object: ; IAcad3DSolid2: AutoCAD 3dSolid Interface; Property values:; Appli ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 10:20 Uhr (0)
1,6395579.272,148352.957,87.760,HPKann ich den String "zerhacken" so das der folgende entsteht"1" "6395579.272,148352.957,87.760" "HP"
|
| In das Form Lisp wechseln |
|
Lisp : HATCHFL äussere umgrenzung als pline
cadplayer am 07.05.2009 um 15:29 Uhr (0)
Danke Dir Holger!Jo glasklar, dass ich zum eignen Leid auch festgestellt... (was nicht heisst, dass es auch von gutem sein kann). Ich werd noch ein wenig die Sache bedenken. Leider ist die Datei viel zu gross, um sie hier reinzustellen.Bei meinem Aufsatz (Novapoint) kann man die jeweiligen Triangelmodelle via 3dface oder 3Dpline auslesen. Ich kann nicht sagen: Schneide aus dem ungenauen Modell, den Bereich aus und ersetze ihn mit genaueren Modell (das wäre fantastisch). Leider bleibt mir nichts anderes übr ...
|
| In das Form Lisp wechseln |
|
Lisp : Beispiel torient von Express-Tools als shortkommand
cadplayer am 25.09.2009 um 13:28 Uhr (0)
Hi!Habe folgendes Problem beim definieren von Kurzbefehlen:wenn ich mit dem Befehl lsp von Express-Tools alle aktuell definierten Autocad-Befehle aufrufe, sehe ich am Beispiel von torient die Anzeige (USUBR), quasi die Routine muss beim ersten Start erst geladen werden. Wenn ich dann torient eingebe und starte, steht die Anzeige auf (SUBR) und ist damit ständig verfügbar.Wie kann ich diesen Aufruf von torient mittels einer lisp-routine anstellen ?Gruss Dirk
|
| In das Form Lisp wechseln |
|
Lisp : Auswahl mit command select (manuell)
cadplayer am 10.11.2009 um 13:51 Uhr (0)
Hab eine Frage zu command "select"Manuelle Auswahl von Elementen in Autocad lässt sich über kreuzen erreichen, damit werden die Elemente im "kreuz-bereich" markiert (Griffe sichtbar)Wenn man aber nicht im herkömmlichen Sinn kreuzt über Fenster also 2 Punkte auf der Bildschirmfläche markiert sondern über "wp"-polygon oder "f"-zaun auswählen möchte, muss man erst command "select" eingeben, dann lässt sich wp- oder f-methode aktivieren. Der Unterschied ist jedoch, dass die Elemente nur "gestrichelt markiert" ...
|
| In das Form Lisp wechseln |
|
Lisp : Eigenschaften: lwpolyline, 2d-polyline
cadplayer am 17.12.2009 um 08:08 Uhr (0)
dem stimme ich völlig überein, was man hier im Forum erfährt und das gebe ich gern den 2 Experten, CADmium und cadffm als meine grosses Dankbarkeit zurück - hat mich faktisch in die tieferen Sphären von Autocad katapultiert."Ihr kommt immer kurz und knapp zur Sache - beeindruckend und fänominal !"(Natürlich gibt es von unzähligen hier auch nützliche Tips... das würde den Tread sprengen, alle aufzuzählen).Zurück zum Stoff, Ich hab hier mal ein und diesselbe Linie einmal als 2d-polyline zum zweiten als lwp ...
|
| In das Form Lisp wechseln |
|
Lisp : Eigenschaften: lwpolyline, 2d-polyline
cadplayer am 26.01.2010 um 07:51 Uhr (0)
Hallo!Ja ich würde nochmal gern auf das eigentliche Thema, den Eigenschaften von 2D-plines und Lw-plines zurückkommen. Inzwischen steht die wunderbare Errungenschaft "AutoCAD-Objekte" auch in meinem Bücherregal (war nicht leicht - zumal das Buch schon längst nicht mehr im Handel erhältlich ist) Inwischen ist mir klar geworden, die Frage ob + oder - stellt sich gar nicht, sondern fortgeschrittener massen, was steckt eigentlich alles hinter einer 2d-pline, die weitaus intelligenter ist. Dazu das Besipiel von ...
|
| In das Form Lisp wechseln |
|
Lisp : Texte einfügen
cadplayer am 18.05.2011 um 15:37 Uhr (0)
Meinst Du so... (vl-load-com) (princ "
Select Arc, Line, LWPolyline object(s) to calculate total length: ") (cond ((setq SS (ssget ((0 . "ARC,LINE,LWPOLYLINE")))) (or *AcadDoc* (setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) (setq ELE 0.) (vlax-for x (setq SS (vla-get-activeselectionset *AcadDoc*)) (cond ((eq (vla-get-objectname x) "AcDbArc") (setq ELE (+ ELE (vla-get-ArcLength x))) ) ((vl-position (vla-get-objectname x) ("AcDbLine" " ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 12:13 Uhr (0)
@neurosis: function no definitionBei Axels Seiten wird mir schon ein bissel schwindlig. step by step1,6395579.272,148352.957,87.760,HPWelchen Gedankengang muss ich überhaupt anstellen um die obige Zeile in eine Zeichkette zu verwandeln"," werden ja nicht akzeptiert
|
| In das Form Lisp wechseln |
koord.txt |
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 12:58 Uhr (0)
Ich hab mal ein Beispiel meiner Koord-datei angehangenIm Prinzip sind die Zeilen immer so aufgebautPunktnummer,X-koordinate,Y-koordinate,Z-koordinate,PunktcodeWenn ich jetzt die Funktion drüber laufen lasse, stosse ich auf das erste Problem, das die Punktnummern mal 1- 2- oder 4-stellig sindDamit werden die var nicht korrekt bedient. Ich muss mich wahrscheinlich mit dem ","-zeichen durchhangeln, um an die Werte zu kommen.(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (set ...
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 15:19 Uhr (0)
Super - eingebaut, läuft ...ich bekomme jetzt folgende Liste(setq data ("1" "6395579.272" "148352.957" "87.760" "HP"))wie bekomme ich in die var PKT nur die 2. 3. 4. Zeichenketten (cdr data) liefert mir("6395579.272" "148352.957" "87.760" "HP")Man konnte doch zeichketten auch rumdrehen, dass ich das "HP" abschneiden kann[Diese Nachricht wurde von cadplayer am 30. Aug. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Punktkoordinaten aus Datei auslesen
cadplayer am 30.08.2011 um 15:57 Uhr (0)
(setvar "ATTREQ" 1) (if (setq FILE (getfiled "Verzeichnisliste" "" "" 2)) (progn (setq FILE (open FILE "r")) (while (setq ZEILE (read-line FILE) DATA (STD-STRTOK ZEILE ", ") PNR (atoi (car DATA)) ZKO (atof (cadr (cdr (cdr DATA)))) PCODE (cadr (cdr (cdr (cdr DATA))))) (command "_.INSERT" "meas" (cadr DATA); =X (cadr (cdr DATA)); =Y (cadr (cdr (cdr DATA))); =Z 1 1 0 "PNR" "ZKO" "PCODE" ) ) (close FILE) ) (alert "Keine Datei gewählt!") )Ich finde den Fehler nicht warum die ...
|
| In das Form Lisp wechseln |
