|
Lisp : Mit ssget alle Linien aus Zeichnung löschen funktioniert nicht
CADblue am 17.07.2012 um 15:42 Uhr (0)
hey fewoer,ich hab mir gerade mal testhalber nur dieses codestück reingeladen:Code:(princ)(setq l (ssget "X" ((0 . "LINE"))))(command "_erase" l "")ohne "princ" lief es einwandfrei, mit "princ" jedoch hat es mir den letzen befehl wiederholt und mich aufgefordert ebenfalls einen punkt anzugeben."princ" mal weglassen?mfg blue
|
| In das Form Lisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
Brischke am 19.10.2010 um 14:08 Uhr (0)
Zitat:Original erstellt von Peter2:Die Tücke steckt im Detail, weil ...- es soll mit "Zoom Grenzen" gespeichert werden, weil damit die Voransicht (BMP), andere Viewer und der nächste Acad-Zugriff gleich das ganze Bild zeigen - was wichtig und zeitsparend ist.- es soll der Zeichner speichern und nicht der "Prüfer im Massenlauf". Bei der "Standardprüfung" gibt es dann eine Liste der falsche gezoomten Zeichnungen, und die muss der Verursacher ausbaden (hat formelle - inhaltliche Gründe).Peterähmm ... ich seh ...
|
| In das Form Lisp wechseln |
|
Lisp : Zeichnung vom Modellbereich in den Layoutbereich verschieben
CADmium am 25.05.2009 um 08:49 Uhr (0)
nunja .... ich zitier malRetVal = object.CopyObjects(Objects[, Owner][, IDPairs]) Object : Database, Document The object or objects this method applies to. Objects: Variant (array of objects); input-onlyThe array of primary objects to be copied. All the objects must have the same owner, and the owner must belong to the database or document that is calling this method. ich staune , dass das mit Übergabe einer Lisp-Liste auch geht, konform ist das nicht!nochwas :wenn (setq asatz (ssget "X")) nix findet , ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
cadffm am 04.02.2014 um 09:47 Uhr (1)
Es ging auch nicht um 2014-2010, sondern um 2014-2012. Zur 2010er ist es keine Verbesserung Ober du solltest dich langsam anfangen in die neue Hilfe einzuarbeiten, die Suchmöglichkeitendarin sind sehr gut und du kannst es nutzen um das ganze erträglich zu machen.Auch gibt es eine Filerfunktion.Eine Struktur zum nachschlagen fehlt aber weiterhin, sorry für die Nachricht..------------------CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD
|
| In das Form Lisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
Peter2 am 19.10.2010 um 14:35 Uhr (0)
Zitat:Original erstellt von wronzky:...Was ist Dein Ziel? willst Du nur prüfen, ob alles auf Grenzen gezoomt ist?...Ja. Nur prüfen und protokollieren. Nicht ändern und reparieren. Zitat:Original erstellt von wronzky:Schau Dir mal die Variablen VIEWCTR, VIEWSIZE und SCREENSIZE an. Damit kannst Du alles errechnen....Danke, werde ich anschauen. Zitat:Original erstellt von Brischke: ähmm ... ich sehe jetzt allerdings noch keinen Widerspruch zu dem, was ich geschrieben habe. Zoom-Grenzen-Speichern=Vorschaubild ...
|
| In das Form Lisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
CADmium am 20.10.2010 um 11:35 Uhr (0)
ok .. mal ne Funktion zu dem Thema :(defun DT:EXTSCREEN () (list (list(-(car (getvar "viewctr")) (*(/(getvar "viewsize") (cadr(getvar "screensize")) ) (car(getvar "screensize")) 0.5 ) ) (-(cadr(getvar "viewctr")) (/(getvar "viewsize")2.0) ) ) (list(+(car (getvar "viewctr")) (*(/(getvar "viewsize") (cadr(getvar "screensize")) ) (car(getvar "screensize")) 0.5 ) ) (+(cadr (getvar "viewctr" ...
|
| In das Form Lisp wechseln |
|
Lisp : Block erstellen u. in Zeichnung beibehalten
CADmium am 27.10.2006 um 21:21 Uhr (0)
naja, als Lispprogramm zum Block erstellen würd ich die command-Variante nicht gerade bezeichnen, aber naja..Anbei mal 2 Bsp-Funktionen mit ebendiesem Command(defun c:blocked(/ name POINT AWS) (while(not(and(setq NAME(getstring"
BLOCKNAME : "))(/= NAME "")(not(tblobjname "BLOCK" NAME))))) (while(not(setq POINT (getpoint "
Basispunkt: ")))) (while(not(and(setq AWS (ssget))( (sslength AWS)0)))) (command "_-block" NAME POINT AWS "") (command "_-insert" NAME POINT 1 1 0))(defun c:blocked(/ name POINT AWS) ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Anzahl der Attribute einer Zeichnung
Brischke am 10.12.2004 um 13:10 Uhr (0)
Zitat: Original erstellt von Atir: Hi Geos, ich bin gerade am Anfang von Lsp. Was Du da geschrieben hast würde ich sehr gern verwenden! was muß ich dazu noch editieren. Muß ich den Blocknamen angeben? oder eventuell andere Sachen? Danke im voraus Hallo Atir, Willkommen! Schau dir mal auf der Autodesk-Seite den Link an. Dort habe ich eine Serie zur Einführung in die AutoLISP-Programmierung veröffentlicht. Es ist auch erläutert, wie die Übergabe von Parametern, die Unterschiede der Funktionsd ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Neue Zeichnung erstellen über Scriptdatei
cadffm am 25.08.2017 um 11:19 Uhr (1)
Wie du selber siehst ist von einem "start_schachtabmessungen" oder NEW nichts zu sehen,das Problem muß davor liegen (deine Access/VB-Geschichte)Zum testen, damit man sich nicht unnötig mit unbeteiligten Dingen aufhällt,Sende mit deinem VB-Teil doch einfach mal den Befehl: INFO an Acad (anstatt dem Aufruf von "start_schachtabmessungen.LSP")Ich würde nach deinen Infos bisher darauf tippen: Es kommt nichts an. Sorry, Das Log ist ziemlich Blank, die Update-Infos sind mir völlig fremd, einzig "Befehl: _.PSELE ...
|
| In das Form Lisp wechseln |
|
Lisp : Einen Kreis um jeden Punt in der Zeichnung machen
Theodor Schoenwald am 02.02.2014 um 18:15 Uhr (1)
Hallo,wenn Du die Kreise nur benötigst um die Punkte gut sichtbar zu machen,kannst Du es einfacher haben.Mit PDMODE kannst Du verschiedene Punktsymbole setzen, z.B.: sieht PDMODE 33 aus wie ein Kreis.Hier:http://www.lehrer.uni-karlsruhe.de/~za685/cad/gff.htm sind bei Tipp 7 die verschiedenen Symbole gelistet.Mit PDSIZE kannst Du die Durchmesser bestimmen.PDMODE 33 und PDSIZE 20 zeigen das Punktsymbol als Kreis mit einem Durchmesser von 20 mm.Viel Erfolg!Theodor Schönwald
|
| In das Form Lisp wechseln |
|
Lisp : Nach Block in Zeichnung suchen
CADmium am 20.02.2012 um 08:46 Uhr (0)
..eigentlich sollte ja genau Suchbegriffe bei gewesen sein .. ?!Was willst du denn genau wissen / machen ?(tblobjname "BLOCK" "AAA") - liefert dir das Blockdefinitionsobjekt, wenn vorhanden--------(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (princ(strcat "
"(cdr(assoc 2 BL)))))------(setq BLOCKNAME "AAA")(setq BLOCKLISTE nil)(while (setq BL(tblnext "BLOCK" )) ---- geht durch die Blocktabelle (setq OBJDATA(entget(tblobjname "BLOCK"(cdr(assoc 2 BL))))) (while(/= (cdr (assoc 0 OBJEKT ...
|
| In das Form Lisp wechseln |
|
Lisp : Prüfe Zeichnung auf Zoom Grenzen
Peter2 am 19.10.2010 um 11:57 Uhr (0)
Eine interne Vorgabe besagt, dass Zeichnungen im Stand "auf Grenzen gezoomt" abzuspeichern sind. jetzt stellt sich die Frage - wie kann man das systematisch überprüfen?Das Problem beginnt ja schon damit, dass "Grenzen" je nach Bildschirm und Fensterproportionen anders sind, aber mein Ansatz wäre irgendwie so "Wenn die Zeichnungsgrenzen extmin/extmax bis X Prozent unter den Bildschirmwerten liegen dann gilt es als gezoomt." (Noch nicht fertig gedacht ...)Was ich aber dazu noch suche sinda) die Eckpunktkoodi ...
|
| In das Form Lisp wechseln |
|
Lisp : Script und Lisp in Zeichnung ziehen Fehler
Manuel486 am 26.07.2021 um 11:54 Uhr (1)
Das ändern in der Reg Edit hat nichts gebracht.Jetzt bin ich der Sache aber auf den Grund gekommen.Ich habe für Revit ein Addon, Namens:parts4cad_-_BIMcatalogs.net.exeInstalliert.Bei der Installation war mir nicht bewusst, dass er auch in Autocad dieses Addon installiert.Habe es runter geworfen und siehe da, geht wieder.------------------Edit.Habe nochmal die Installation gestartet,man kann Autocad auch abwählen, also mein "Fehler".Hatte bisher aber noch bei keinem Revit Addon, auch eine Autocad Implementi ...
|
| In das Form Lisp wechseln |
