|
Lisp : bem faktor global
nebuCADnezzar am 03.03.2008 um 20:07 Uhr (0)
HalloDanke für eure Tipps, ich konnte das samstag nacht alles soweit zusammenlispeln das es mehr oder weniger funktionierte. (aber nix mehr fragen weil ich meine cad.de daten nur im büro hatte...Mit 3 Problemen (ja und da waren sie wieder meine drei probleme...)hab ich mich dann irgendwann schlafengelegt:1. Scheinbar gibt die Variable "cvport" nicht immer das richtige zurück?! (habe im modell und im ansichtsfenster z.T. "2") Kann das sein?2. Wenn die variable im af schön 3 zurückgibt, werden die Layer schö ...
|
| In das Form Lisp wechseln |
|
Inventor : dwg export - layer farben!
Schachinger am 28.04.2003 um 12:21 Uhr (0)
(setq style (cdr(cadr(tblnext "style" t)))) (while style (cond ((= (cdr(assoc 3 (tblsearch "style" style))) "ARIAL.TTF") (command "_-style" style "ISOCP.SHX" "" "" "" "" "")) ((= (cdr(assoc 3 (tblsearch "style" style))) "TIMES.TTF") (command "_-style" style "ISOCP.SHX" "" "" "" "" "")) ) (setq style (cdr(cadr(tblnext "style")))) ) so das is der code der zum hinzufügen wäre.... wieder ist die zeile: ((= (cdr(assoc 3 (tblsearch "style" style))) "ARIAL.TTF") (command "_-style" st ...
|
| In das Form Inventor wechseln |
|
Rund um Autocad : Linie löschen
mapcar am 30.08.2002 um 08:38 Uhr (0)
Morgen, Andrea, dieser Code löscht mit Sicherheit alle Linien in der XY-Ebene! Wenn das bei dir nicht klappt, dann liegen bei dir die Linien eben nicht in dieser Ebene. Ich hab s eben mal hier getestet: Ein Rechteck zeichnen, um die Y-Achse 90° drehen, _explode und dann den Code abschicken. Eine Linie wird gelöscht, wie erwartet. Ich hatte ja schon gesagt, dass es Schwierigkeiten geben kann, wenn Rundungsfehler auftreten - dann wird s mit einem ssget-Ausdruck ungemütlich. Da sollte man dann vielleicht doch ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Verarsche von AutoDesk?
mallorca7 am 06.05.2004 um 10:51 Uhr (0)
Mal ehrlich: Sind nicht die User auch ein bißchen schuld? Wie oft wird im Forum gefragt, wann endlich die neue Version kommt und wann endlich die alte Version abgekündigt wird. Was du arbeitest noch mit der alten Version, geht die überhaupt noch? Kann man damit überhaupt noch arbeiten? So wird man immer wieder gefragt. Wie oft kauft man sích ein neues Handy, weil das alte nicht mehr schick ist? Aber zurück zum Thema: Ich habe acad2005 noch nicht, aber auch die Layerstrukturordnung ist sicher ein gutes Fea ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Wipeout
charlieBV am 29.08.2003 um 10:48 Uhr (0)
Also, ich sehe leider meine Einträge an meinem Rechner immer noch nicht, aber ich bekomme ja irgendwann eine Mail, dass du mir geantwortest hast und in dem Login komme ich dann auch irgendwann dahin (eigenartig, aber unser Admin kümmert sich drum) Ich werde die ET gleich noch einmal entsorgen , habe damals von unserem alten Supprot gesagt bekommen, wo ich was hinspeichern soll, alles funktioniert auch soweit, bis auf Wipeout. Die ET werden im ADT 3.0 nicht mitgeliefert und wir verwenden die aus ADT 2.0 (we ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : String auf mehrere strings durch definierte trennzeichen aufteilen?
Schachinger am 22.02.2004 um 21:15 Uhr (0)
hallo forum - wieder mal eine sache wo mein bergrenztes lisp-wissen versagt... wenn ich mir mittels open und rline eine ascii-datei öffne bekomme ich ja wunderbar jede zeile als string raus... mein problem ist das in einer zeile z.b. steht: layer= test 0 12 colour= 1 wie kann ich diesen string am einfachsten zerlegen in einzelne strings die dann test_0 , 12 und 1 enthalten. also immer das als trennzeichen zu verstehen. leerzeichen als trennung geht leider nicht da manche daten die ich brauc ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Layer nicht aktuell setzen
fips am 06.04.2003 um 22:57 Uhr (0)
Hallo, mir wurde diesbezüglich auch mal geholfen, weiß leider nicht mehr von wem ... Das folgende lisp (Hilfgerade.lsp)aktiviert den Befehl Konstruktionslinie (_xline), schaltet zuvor auf den Layer Hilfslinien_018 und anschließemd wieder auf den Ausgangslayer zurück. Du müsstest also nur den Layernamen anpassen bzw auch den Befehl, da das ganze ja auch für Bemaßung, Schraffur etc. interessant ist. Gruß Fips (übrigens auch Holz ...) PS. Lisps laden müsste ja mit dem Extender bei ACAD LT auch gehen, oder nic ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : feder in 3D mit CAD erstellen : die Lösung
mapcar am 25.05.2002 um 10:56 Uhr (0)
Zeichner, ich glaube nicht, dass solche Beiträge irgend jemand irgendwie weiterbringen! Auch mir ist diese Seite hinsichtlich der Fenster, die da alle aufpoppen, recht unangenehm in Erinnerung geblieben. Heute scheint die Feder allerdings verschwunden zu sein - es kommt nur noch eine Anzeige, dass die Seite nichtgefunden wird. Aber zur Sache: Hat da jemand eine richtige Lösung? Ich hatte das Problem auch schon öfters! Ich glaube, der Ansatz wäre sogar ausbaufähig. Wenn man da nicht mit einem halben Torus a ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : Dialogfenster an Cursor
Helmut Schepers am 12.04.2005 um 14:36 Uhr (0)
Hallo Martin, hier mal ein Beispiel wie man sich die Position der DCL-Box merken kann um sie nach dem verschieben auf dem Bildschirm wieder an der selben Stelle zu öffnen. ******************************************************************************** als test.lsp speichern (defun c:merk-dcl-pos ( / OK OPEN_DCL) (setq open_dcl (load_dialog c:/lisp/test.dcl )) ;; Pfad anpassen (if merk_po (if (not (new_dialog schiebe open_dcl merk_po))(exit));; merk_po durch liste mit Koordinaten ersetzen. (if (not ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : max. Zeichenanzahl in Variablen / Funktionen
archtools am 06.12.2005 um 23:04 Uhr (0)
Zitat:Original erstellt von Paulchen:Hallo Forum,ich bin auf der Suche nach "Vorschriften" bzw. dem "guten Ton" von Lisproutinen. Wie lang darf/soll1. ein Funktionsname2. eine Variablemaximal sein? Welche Beschränkung ist sinnvoll? Gibt es Vorgaben bezüglich der Quellcodelänge? In "Maximizing Autolisp" habe ich gelesen, daß Code, der sechs (6!) Zeilen übersteigt, nicht sehr elegant ist, mag diese Behauptung aber nicht so recht glauben...Kann mich jemand eines Besseren belehren? Bin für jeden Tip dankbar!F ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : vlax-release-object ?
tmoehlenhoff am 10.04.2004 um 18:49 Uhr (0)
So, noch n bisschen rumgespielt: Man öffne den Eigenschaftsdialog. Zeichne einen Kreis und tritt dann ein (setq circle (vlax-ename- vla-object (entlast))) los. Wenn man nun den Bruch-Befehl auf den Kreis losläßt, wird im Eigenschaftsdialog immer noch ein Kreis als Elementtyp angezeigt, obwohl der Kreis mittlerweile ein Bogen geworden ist. Ein (vlax-release-object circle) hilft und fortan ist der Bogen auch im Eigenschaftsdialog ein Bogen. Alternativ kann man auch cicle auf nil setzen und (gc) aufrufen. Auc ...
|
| In das Form AutoLisp wechseln |
|
Rund um AutoCAD : Punkte in Polylinie löschen
bikerholic am 19.02.2009 um 11:26 Uhr (0)
servus martin,also wenn dir des mit dem PEDIT zu umständlich is dann nimm doch einfach des lisp tool vom Axelhabs ausprobiert funkt genau so wie dus dir gewünscht hast Zitat:Original erstellt von mapcar:Eine kleine Lisproutine. Polylinie anklicken, Punkt anklicken, weg isser.(defun lwpl-delvtx(lwpl point fuzz / edata modd) (setq point(list(car point)(cadr point))) (setq edata(entget lwpl)) (while edata (if(or(/=(caar edata)10)(not(equal(cdar edata)point fuzz))) (setq modd(cons(car edata)modd)edata(cdr e ...
|
| In das Form Rund um AutoCAD wechseln |
example.zip |
Lisp : Layer aus csv importieren
cadplayer am 13.01.2016 um 12:49 Uhr (15)
Hallo!Mich würde mal interessieren, wie man es mit Lisp bewerkstelligt, Layer mit einem definierten Namen und Beschreibung anzulegen.In .net habe ich das Verhalten mal nachprogrammiert und funktioniert soweit.Mit Autolisp bin ich soweitCode:(tblsearch "layer" "ADM_ADR") ; Layer gefunden(cdr (assoc 4 (entget (tblobjname "layer" "ADM_ADR")))) ; Description ???Mit Visual LispCode:(setq acadDocument (vla-get-activedocument (vlax-get-acad-object)))(setq theLayers (vla-get-layers acadDocument))(setq layObj (vla- ...
|
| In das Form Lisp wechseln |
