|
Lisp : Übernehmen der Fläche einer Polylinie in das Schriftfeld (in einem Attributblock)
Wolfgang Kirsch am 15.09.2009 um 11:25 Uhr (0)
Zitat:Original erstellt von Wolfgang Kirsch:Das Lisp sollte eigentlich funktionieren.Wenn es beim Laden einen Fehler geben sollte, dann steht schon im Textfenster ein Hinweis.Aufgerufen wird das Lips mit "fl_att" bzw. "um_att".Die Lattenzäune sind normal, das ist so eine Eigenart bei Schriftfeldern.Einmal die Zeichnung regenerieren ( Konsoleneingabe: regen ) und dann steht auch der korrekte Wert im Attribut.ciaoWolfgang Kirsch
|
| In das Form Lisp wechseln |
|
Lisp : Übernehmen der Fläche einer Polylinie in das Schriftfeld (in einem Attributblock)
bikerholic am 15.09.2009 um 11:11 Uhr (0)
Zitat:Original erstellt von Wolfgang Kirsch:Die Lattenzäune sind normal, das ist so eine Eigenart bei Schriftfeldern.Einmal die Zeichnung regenerieren ( Konsoleneingabe: regen ) und dann steht auch der korekte Wert im Attribut.oooh man da hatte ich nicht dran gedacht aber schön das es für das problem solch eine einfache lösung gibt danke und nen schönen tag noch tschau björn ------------------Wenn Arbeit etwas schoenes und erfreuliches waere,haetten die Reichen sie nicht den Armen ueberlassen.[Paul Lafa ...
|
| In das Form Lisp wechseln |
|
Lisp : eingepassten Text verbinden
Gerd_Ecke am 21.09.2006 um 11:22 Uhr (0)
Hallo,habe folgendes Problem :PDF-Zeichnung mit vielen Punkten die eine Bezeichnung haben.Da sie in einem Raster angelegt sind und die Namen sehr lang hat die Fremdfirma diese Texte um ca 20grad gedreht.Wandele ich jetzt die PDF in eine DWG um so erstellt das Wandelprogramm je Punktnamen 3-4 Textteile. Die aneinandergereiht werden müssten um sie auf Winkel 0 zudrehen.Da es eingepasste Texte sind ist die Koordinate "Textausrichtung" des Textteiles 1 ungefähr (0,01 Einheiten) die "Position" des Textteiles 2. ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Script läuft nicht unter ACAD 2006!
Big Sven am 21.09.2005 um 14:46 Uhr (0)
Hallo Forum!Ich habe mit einem Script-Editor mir ein Scrip erzeugt, in dem eine LSP-Routine aufgerufen wird. Dieses hat immer unter ACAD 2005 funktioniert. Jetzt haben wir seit kurzem ACAD 2006 und es klappt nicht. Das Script sieht ungefähr so aus:_openC:PROJECTPlanungCADA_101102.dwgZOOMGZOOM0.075(load "SUCHE_7")SUCHEZOOMG_QSAVE_close_openN:PROJECTPlanungCADA_101103.dwgZOOMGZOOM0.075(load "SUCHE_7")SUCHEZOOMG_QSAVEusw....Die erste Zeichnung öffnet und bearbeitet er ohne Problem. Dann schließt er die Datei ...
|
| In das Form AutoLisp wechseln |
Groupmode.zip |
Lisp : Gruppen-Fadenkreuzfarbe
CADmium am 26.05.2014 um 11:37 Uhr (1)
Anbei mal ein Makro fürn Button zum "umschalten"(defun C:GROUP-SWITCHMODE() (if(=(logand(getvar "PICKSTYLE")1)1) (progn (setvar "PICKSTYLE" (1-(getvar "PICKSTYLE")))(princ"
Gruppenwahl inaktiv.") (setenv "XhairPickboxEtc" "0") ) (progn (setvar "PICKSTYLE" (1+(getvar "PICKSTYLE")))(princ"
Gruppenwahl aktiv.") (setenv "XhairPickboxEtc" (rtos (+(* 65535 0)(* 256 0) 255)2 0)) ) ) (princ))und im Anhang was Reaktormäßiges .... am besten in der acaddoc.lsp laden lassen und dort auch gleich mit (C ...
|
| In das Form Lisp wechseln |
|
Lisp : Teil einer DWG per Lisp öffnen ?
fred_tomke am 27.04.2007 um 12:37 Uhr (0)
Hi, Jürgen,so schwer ist das nicht.Code:(defun DBX_OPEN (strFile / erg strDBX oDbx) (setq erg (getvar "ACADVER")) (cond ((= erg "15.0") (setq strDBX "ObjectDBX.AxDbDocument")) ((= (substr erg 1 4) "17.1") (setq strDBX "ObjectDBX.AxDbDocument.17")) ((= (substr erg 1 4) "17.0") (setq strDBX "ObjectDBX.AxDbDocument.17")) ((= (substr erg 1 4) "16.2") (setq strDBX "ObjectDBX.AxDbDocument.16")) ((= (substr erg 1 4) "16.1") (setq strDBX "ObjectDBX.AxDbDocument.16")) ((= (substr erg 1 4) "16.0" ...
|
| In das Form Lisp wechseln |
|
Lisp : CADCAL: letzte Betaversion vor Release
archtools am 23.07.2024 um 21:27 Uhr (1)
Hallo,die neue CADCAL Version inkl CALScript ist praktisch fertig. Alle vorgesehenen Funktionen sind implementiert und funktionieren in den bisherigen Tests tadellos. Deshalb beginnt jetzt auch schon die Versionierung mit "Version 1.0 Beta". Noch ein paar Wochen weitere Tests, die ich für ein Manual und den Aufbau einer Website nutzen werde.CADCAL ist kostenfrei, es liegt diesem Beitrag als ZIP Datei bei, oder kann von www.cadcal.de/cadcal.zip herunter geladen werden. Die Installation ist im Grunde so einf ...
|
| In das Form Lisp wechseln |
|
Lisp : Heavy-Polylinie mit entmod ändern
Dabrunz am 22.08.2008 um 10:04 Uhr (0)
Tag zusammen.Ein paar kleine Anmerkungen hätte ich da dann doch zu machen:- 1 -Code: (while (and (setq obj(entnext obj)) (/= (cdr(assoc 0 (entget obj))) "SEQEND" )) ...)ist ziemlich sportlich, weil die Routine fleißig in der Zeichnung herumwerkelt, wenn du mal nicht ein 3D-Polylinie erwischt hast. Meinem Geschmack nach funktioniert das so besser:Code: (while (and (setq obj(entnext obj)) (= (cdr(assoc 0 (entget obj))) "VERTEX" )) ...)- 2 -Wenn du sowieso schon in einer Schleife über die Vertex-Punkte der Po ...
|
| In das Form Lisp wechseln |
|
Lisp : ssget _c ist zoomabhängig?
archtools am 19.05.2008 um 23:32 Uhr (0)
Zitat:Original erstellt von Peter2:Funktioniert also "ssget _C" (und_w wahrscheinlich auch) vor allem grafisch und nicht mathematisch (datenbankmässig)?Jein. Es funktioniert nicht grafisch, weil ja auch Elemente außerhalb des Bilfschirms gefunden werden können, und es arbeitet nicht in der Zeichnungsdatenbank, weil manchmal Elemente sehr weit außerhalb des Bildschirms nicht gefunden werden.Die Sache hat mit Perfomrance zu tun: CAD-Programm und ähnliche arbeiten bei sehr vielen Operationen nicht mit der Da ...
|
| In das Form Lisp wechseln |
|
Lisp : Entmod mit Variable benutzen
CADmium am 25.01.2008 um 13:31 Uhr (0)
nimm z.B. Mtext ... der mehrere GC 3 (und den GC1) haben kann, in denen der Textstring abgespeichert ist .. da die falsche Reihenfolge beim entmoden ...oder nimm ne Bemaßung: z.B.((-1 . Objektname: 7432aa38 ) (0 . "DIMENSION") (330 . Objektname: 71453cd8 ) (5 . "F7DF") (100 . "AcDbEntity") (67 . 1) (410 . "Zeichnung Bl.1") (8 . "AM_5") (100 . "AcDbDimension") (2 . "*D114") (10 299.252 449.645 0.0) (11 302.252 452.345 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 30.0) (73 . 0 ...
|
| In das Form Lisp wechseln |
|
Lisp : Änderung in Zeichnung: gelöschte Objekte
wronzky am 15.08.2007 um 13:41 Uhr (0)
Hallo Jörn,Du speicherst ja die Handles ab. Mit (handent handle) bekommst Du den Entity Namen. Wenn Dir jetzt (entget e-name) nil liefert, ist das Objekt nicht mehr da.(so mach ich es zumindest).Grüsse, Henning------------------VoxelManufaktur Computer-Dienstleistungen für Architekten und Ingenieure http://www.voxelman.de[Diese Nachricht wurde von wronzky am 15. Aug. 2007 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : (setq PFAD(getvar DWGPREFIX))
CADmium am 25.06.2008 um 16:33 Uhr (0)
...dann werd ich mal inkonsequent werden ... du gehst auf diese Seite , kopierst dir (defun str-subst(str neu alt / i la str2) (setq i 1) (setq la(strlen alt)) (setq str2 "") (while(= i(strlen str)) (if (=(substr str i la)alt) (progn (setq str2(strcat str2 neu)) (setq i(+ i la)) ) (progn (setq str2(strcat str2(substr str i 1))) (setq i(1+ i)) ) ) ) str2)in deine Lispdatei , die du anschließend mit _appload lädts usw . oder gleich in die Befehlszeile.... dann hast du in deiner aktuel ...
|
| In das Form Lisp wechseln |
|
Lisp : Pixelbilder einfügen
mkl-cad am 11.07.2007 um 10:54 Uhr (0)
HalloPixelbilder können sehrwohl auch schon ab ACAD 2000 in die Zeichnung eingebettet werden wenn sie als OLE-Objekte eingefügt werden. Kann ich aber nur von abraten. Erst recht bei vielen Pixelbildern, da die Datenmenge sehr schnell sehr groß wird.------------------ Martin Viele Grüße aus dem schönen Münsterland!
|
| In das Form Lisp wechseln |
