|
Lisp : PEdit
Brischke am 15.01.2014 um 12:33 Uhr (1)
Willkommen im Forum!Ich gehe nicht auf deine Ausführungen ein und werde für deinen Ansatz auch nicht über Lösungen nachdenken, denn wenn du anstelle von (command "_.pedit" ..) mit (entmod ..) arbeitest, sind deine ganzen Probleme gelöst (was nicht heißt, dass es dann nicht andere gibt?) Bei Fragen ...Grüße!Holger------------------Holger BrischkeCAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
 |
Lisp : Punkt in 3DFACE interpolieren
cadffm am 15.01.2014 um 20:27 Uhr (15)
Ich hoffe ichverstehe das ganze nicht falsch:http://ww3.cad.de/foren/ubb/Forum37/HTML/004903.shtml#000004 ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : wo is der bug?
spider_dd am 16.01.2014 um 13:32 Uhr (1)
Hallo blue,Dein Problem hat eher weniger mit Deinen Blöcken zu tun (ob nun attsync gemacht oder nicht), sondern mit der Art und Weise wie ACAD mit dem Objektfang umgeht. Wenn ein Objektfang aktiviert ist und osnapcoord nicht auf 1 steht, wirkt dieser auch bei der Ausführung von lisp-Befehlen. Wenn nun also der ACAD-Cursor bei Deinem Verschiebepunktn ff irgendein Objekt mit erwischt (z. B. eine Linie) (so wie wenn Du es händisch machen würdest, also auch abhängig vom aktuellen Zoom) und es ist beispielsweis ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable in Koordinaten
dwg3d am 16.01.2014 um 20:02 Uhr (1)
Hallo Holger,deinen Vorschlag habe ich in einen kleinen Testcode eingebaut, leider bekomme ich es nicht ans laufen.(defun c:lastfive ()(command "_-view" "_swiso" "")(command "_UCS" "_W")(setvar "osmode" 0)(setq p1 (list 0 0 0 ))(setq p2 (list (+(car p1)100) (-(cadr p1)100) (+(caddr p1)25) ))(command "quader" p1 p2)(setq lastel (entlast))(command "quader" p1 p2)(command "quader" p1 p2)(command "quader" p1 p2)(command "quader" p1 p2)(while (setq el (entnext lastel))(setq NewElements(cons el NewElement ...
|
| In das Form Lisp wechseln |
|
Lisp : Variable in Koordinaten
cadffm am 16.01.2014 um 21:07 Uhr (1)
Was die commandZeile angeht:Die Autocadobjektwahl erwartet ein Entityname oder einen Auswahlsatz,eine Liste wird nicht akzeptiert.Du müßtest also einen AWS erst erstellen mit den Objekten deiner Liste.(setq aws (ssadd))(foreach en meineliste (ssadd en aws))(command "_move" aws "" "0,0" "20,0")so in der Art.------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Systemvariable für Bemaßung gesucht
Musicus am 18.05.2016 um 10:52 Uhr (1)
Ich muss das hier mal ausgraben:Ich habe einen Code, der einfach nur den Globalen Skalierfaktor auf 1000 setzt.Code:(defun c:UPDATE_DIMSTYLE_SCALE ( / STILDEF STILNAME) (setq STILDEF (tblnext "DIMSTYLE" T)) (while STILDEF (setq STILNAME (cdr(assoc 2 STILDEF))) (command "-dimstyle" "ho" STILNAME) (setvar "DIMSCALE" 1000) (setvar "DIMDEC" 0) (command "-dimstyle" "si" STILNAME "j") (setq STILDEF (tblnext "DIMSTYLE")) );end while);end defun(princ "
Starten mit: UPDATE_DIMSTYLE_SCALE
")Funktioniert b ...
|
| In das Form Lisp wechseln |
|
Lisp : Layer frieren
cadffm am 20.01.2014 um 16:14 Uhr (1)
Layereinstellung merkenalle gefrorenen Layer tauenalle Objekte der Layer gestrichelt anzeigen lassenBenutzerauswahlalle Layer frieren (oder eben bereits nur die aktuell zu frierenden)ObjektLayer der gewählten Objekte tauenNein, kenn ich nicht fertig. Layerstand speichern und wieder herstellen findet man im Forum,das gestrichelte findest du ja in dem genannten Beispielprogramm.Ran ans Werk!------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : string umformen
cadffm am 22.01.2014 um 16:35 Uhr (1)
EIN Beispiel reicht da wohl kaum um nicht raten zu müssen.Generell gilt: String Handling Funktionen kennst du ja, ist in der Hilfe und jedem Buch und Tutorialbeschrieben, in letzteren sind sogar schon fertig sub-Routinen die noch mehr Arbeit erleichtern.Grundsätzlich mußt du den String auseinander nehmen und neu zusammen setzen.WIE man das im jeweiligen Fall machen muß/kann ist die Arbeit die es zu machen gilt, Code eintippen ist nur Beiwerk.Dafür muß man aber alle Informationen zu den möglichen Quell-Stri ...
|
| In das Form Lisp wechseln |
|
Lisp : string umformen
cadffm am 22.01.2014 um 17:18 Uhr (1)
Wenn man davon ausgeht das die Zahlen immer Vorzeichen, Plus ODER MINUS haben unddiese Zeichen sonst nicht verwendet werden - klar.Wenn man der Fragesteller wäre, dann hätte man es unter Umständen extrem einfach und würdeimmer das 4.Zeichen einer Zeile als Vorzechen herauslesen (ich nehme an, aus -3.05 wird -2.05 ?)und den REAl ab Stelle 5.Aber so ist es eben, derjenige der die gesamte Aufgabenstellung kennt ist im Vorteil.------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : string umformen
cadffm am 22.01.2014 um 23:05 Uhr (1)
Da schiebe ich gerne mal einen 10er für das REAL-FROM-STRING rüber ------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Layer frieren
cadffm am 24.01.2014 um 23:02 Uhr (1)
Sind wir doch fast alle FAQSchau dir das Thema Appload an und nach dem Testen noch dazu den Beitrag über Acaddoc.lsp------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Scheitelpunkte aus Polylinie entfernen
cadffm am 27.01.2014 um 12:43 Uhr (1)
ein Frühwerk des engagierten CADmium hilft dir vielleicht weiter: Klick!------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD[Diese Nachricht wurde von cadffm am 27. Jan. 2014 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Block in Block suche
cadffm am 29.01.2014 um 08:12 Uhr (1)
Du durchläufst einfach jede Blockdefinition und schaust nach einem INSERT dieses gesuchten Blockes.EDIT: Du hättest nicht noch mal einen neuen Thread starten müssen, HIER GEHT WEITER. KLICK!------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD[Diese Nachricht wurde von cadffm am 29. Jan. 2014 editiert.]
|
| In das Form Lisp wechseln |
