|
Lisp : _lweight schaltet Linienstärkeanzeige um
walter.f am 27.08.2009 um 12:39 Uhr (0)
Hallo!In einem Lisp verwende ich an einer Stelle den Befehl _lweight (mit command), um für die folgenden Operationen die Linienstärke festzulegen. Leider schaltet er mir dabei auch jedesmal die Linienstärkeanzeige am Bildschirm ein (mit ACAD 2010). Das Verhalten habe ich so mit ACAD 2004 nicht in Erinnerung (ist mir aber jetzt zu aufwendig, das nochmal am eingemotteten Rechner zu testen ).Da die Linienstärkeanzeige das Programm ziemlich ausbremst, möchte ich das möglichst abstellen. Leider finde ich hier ...
|
| In das Form Lisp wechseln |
|
Lisp : Drehung von Texten und Blöcken
cm-Zeichner am 12.07.2012 um 14:15 Uhr (0)
Hallo Ernst (Vermesser),war kurz auf Urlaub muß aber jetzt Gas geben - VermV2010 gehört umgesetzt. Bei Euch schon erledigt?Beim Einfügen eines Blockes oder Textes wird nach einer Drehung gefragt.- Das Einfügen erfolgt durch eine Lisp Programm- Die Ansicht kann durch VIEWTWIST gedreht sein- Die Drehung kann auf folgende drei Arten erfolgen 1. nach dem "Blattrand" (zB. Nutzungssymbole und div. Beschriftungen) 2. immer nach Norden (zB. Nordpfeil, Haktarmarken) 3. direkte Einagbe eines Winkels (z.B Flußrichtu ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Wie Liste arrangieren für mit entmake erstellten Block?
holgerka75 am 28.04.2004 um 14:01 Uhr (0)
Hallo Lisp´ler, ich erstelle einen Referenzpunkt mit entmake: (setq referenzpunkt (list (0 . INSERT ) (100 . AcDbEntity ) (8 . Layername ) (100 . AcDbBlockReference ) (2 . RefPkt ) (assoc 10 (entget block1)) ) ) (entmake hauptrefpktliste) Aus block1 kommen Koordinaten, aber das nur nebenher.... So, nun möchte ich in die zweite Stufe der Hierarchie gehen. (entget block = Stufe 1; entnext entget block = Stufe 2 usw....) In der zweiten Stufe wird nun die Punktnummer eingetragen. Also z ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Briscad: was könnte die Fehlermeldung bedeuten
tappenbeck am 04.07.2012 um 15:55 Uhr (0)
Moin !ich habe ein Lisp-File das nach AutoCAD auch unter Briscad 12 laufen soll:Code:(defun LI_AddList (Lst Pos Val / Lst1 Lst2 cnt nverts )(setq cnt 0 Lst1 () nverts (length Lst))(repeat Pos (setq Lst1 (cons (nth cnt Lst) Lst1) cnt (1+ cnt) ))(setq Lst1 (cons Val Lst1) Lst1 (reverse Lst1) cnt Pos)(if ( nverts Pos)(progn (setq Lst2 ()) (repeat (- nverts Pos) (setq Lst2 (cons (nth cnt Lst) Lst2) cnt (1+ cnt) ) ) (setq Lst2 (reverse Lst2) Lst1 (append Lst1 Lst2) ))) Lst1)Source: 4d-technologies.com ...
|
| In das Form Lisp wechseln |
|
Lisp : Eigenschaften: lwpolyline, 2d-polyline
cadffm am 16.12.2009 um 16:52 Uhr (0)
Soso, Wissen welches man über Jahre Aufbauen müßte willst du also in Sekunden bekommen Einen Teil kennst du ja schon und ganz allgemein gesagt ist es einfach so:LWPOLYLINES können nicht alles darstellen was POLYLINEs können usw.So trivial mit a,b,c beantwortet geht nicht, das wäre eine lange Liste denke ich,zumindest, wenn man dann noch in Untergruppen wie Polygonnetze abrutscht die mitdem POLYLINEobjekt dargestellt werde etc.)So Randinformationen was/wie ACADBefehle (nicht Lisp) arbeiten willst du sicher ...
|
| In das Form Lisp wechseln |
|
Lisp : Schraffurbasispunkt
archtools am 10.06.2008 um 14:05 Uhr (0)
Zitat:Code:(defun c:test (/ vlaBound lstIslands oSpace) (setq oSpace (vla-get-modelspace (vla-get-activedocument (vlax-get-acad-object)))) (setq vlaBound (vla-AddLightWeightPolyline oSpace (list_to_variant (list 0.0 0.0 0.0 200.0 200.0 200.0 200.0 0.0) vlax-vbDouble))) (vla-put-closed vlaBound :vlax-true) (setq lstIslands (list (vla-AddCircle oSpace (vlax-3d-point (list 30.0 30. 0.0)) 20.0) (vla-AddCircle oSpace (vlax-3d-point (list 60.0 60. 0.0)) 20.0))) (schraffbe "ANSI31" 5 0.0 vlaBound lstIslands ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Text kopieren und ändern
Brischke am 08.01.2004 um 12:44 Uhr (0)
Hallo Heinz, bist du dir sicher, dass du ein Textelement angeklickt hast? Da dein Tool eigentlich nur mit Texten funktioniert, solltest du es dahingehend erweitern, dass mit diesem Tool auch nur Texte gewählt werden können. Dann sollte der Basispunkt des Kopierens auch mit dem Basispunkt des Textes übereinstimmen. So wie der Code dort jetzt steht, kann es passieren, dass du einen Block kopierst, dessen Basisipunkt (einfügepunkt) sonstwo liegt. Anders kann ich mir deine Schilderung auch nicht erklären, als ...
|
| In das Form AutoLisp wechseln |
|
Lisp : ErrorHandler
CADmium am 09.05.2009 um 09:29 Uhr (0)
Zitat:Original erstellt von rkauskh:Hallo Beim Export in ein DXF beendet sich mein LISP wenn die Zieldatei schon existiert. Für den Fall sollte *error* für einen sauberen Abgang suchen. Sollte vl-catch-all-error-p & Co den Fehler handlen und das Prog fortsetzen können, wäre das noch besser.da macht man dann sowas ... :(setvar "filedia" 0)(if(findfile "meine.dxf") (command "_saveas" "dxf" 16 "meine.dxf" "_y") (command "_saveas" "dxf" 16 "meine.dxf" ))(setvar "filedia" 1)oder probier mal (command "_dxfout" ...
|
| In das Form Lisp wechseln |
|
Lisp : Länge einzelner Polylinien
Waldemar76 am 07.10.2010 um 10:37 Uhr (0)
Hallo,ich habe ein kleines Problem. Ich muss leider aus meiner Zeichnung einzelne Länge mit viel Aufwand rausmessen. Wer könnte mir helfen ein zusatz Tool in AutoCAD LISP zu schreiben bzw. ein Programm zur verfügung stellen mit dem ich mir die ganze arbeit spare. Vielleicht existiert ein Tool wo ich meine Zeichnung nur markieren muss und die einzelnen Längen angezeigt (zB. in Excel)werden.Vielleicht über Datenextraktion?Ich habe eine PDF Datei eingefügt die mein Problem darstellt. Ich brauche die einzelnen ...
|
| In das Form Lisp wechseln |
|
AutoLisp : _text mit zeilenumbruch
marc.scherer am 15.02.2006 um 12:59 Uhr (0)
Hi,ja, ja der Text Befehl ist in Lisp etwas störrisch.Ich hab mir mal so geholfen:Code:(defun DT:COMMAND-MLINE-TEXT (LST-STRINGS LST-COORDINATE REAL-HEIGHT REAL-ANGLE / FIRST REST) (setq FIRST (car LST-STRINGS) REST (cdr LST-STRINGS) ) (if FIRST (progn (command "_.text" LST-COORDINATE REAL-HEIGHT REAL-ANGLE FIRST) (foreach STR REST (command "_.text" "" STR) ) ) ))Aufruf z.B. so:(DT:CREATE-MLINE-TEXT ("Firstline") (getpoint "
Startpunkt für Text: ") (getdist "
Texthöhe: ") "100g")oder so(DT ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : asi_iexecute
CAD-Huebner am 05.07.2004 um 11:25 Uhr (0)
Die Fehlerbeschreibung ist doch etwas dürftig, um das Problem im Einzeln aufzuspüren. Lief die Funktion bisher schon, oder noch nie? Hat sich an der Excel-Tabelle etwas geändert, Umbenennung, Schreibschutz o. ä.? Ich bin mir auch gar nicht sicher, ob ich in Excel über SQL neue Tabellen anlegen kann, hier gab es glaube ich einige Einschränkungen. Gehen nicht auch Tabellen in einer Accesss-Datenbank und später in einfach nach Excel exportieren? Vielleicht bschreibst du die Aufgabenstellung einfach genauer, ...
|
| In das Form AutoLisp wechseln |
|
Lisp : Einschränkungen beim Befehl open?
AB-CAD am 28.07.2006 um 13:14 Uhr (0)
Hallo,habe den LISP-Befehl "open" in unserem Betriebsbedingungen nochmal genau geprüft1. Funktion im Netzwerk: ist ok (N: ist ein Netzwerkpfad)2. Betriebssystem: Windows 20003. Schreib- und Lesezugriff: ist gewährleistet4. ACAD-Version: 2000, 2000i, bzw. 2002 (also die R15-Familie)(Achim hatte seinerzeit mit der R16-Familie getestet und von 255 Zeichen gesprochen)Getestet mit Lesezugriff:Bei "unseren" Bedingungen ist so, daß 126 Zeichen akzeptiert werden, 127 hingegen nicht.Dabei ist es unerheblich, ob ...
|
| In das Form Lisp wechseln |
|
Lisp : Basispunkt Schraffur
Brischke am 24.02.2009 um 11:39 Uhr (0)
Hallo,ich habe mir vor geraumer Zeit mal eine DLL in C# geschrieben, die ermittelt ob ein Punkt innerhalb eines Polygons (ohne Kurvensegmente!!) liegt oder nicht.Nachfolgend der C# Code davon, den kann man sicher auch nach Lisp umbasteln.Code:///isPointInsidePolygon (/// X-Koordinaten des Polygons,/// Y-Koordinaten des Polygons,/// X-Koordinate des Punktes,/// Y-Koordinate des Punktes) public static bool isPointInsidePolygon(double[] x, double[] y, ...
|
| In das Form Lisp wechseln |
