|
Lisp : MText Hintergrundfarbe in Lisp einbauen
CAD-Huebner am 20.10.2011 um 12:54 Uhr (0)
Zitat:Original erstellt von Kirjava:...Wäre es möglich, dem Text auch gleich eine Hintergrundfarbe (am Besten "Background") zu geben mit einem bestimmten Randversatz z.Bsp. 1.2?Beste GrüsseKirjavaKlar, Gruppencode 45 und 90 des MTEXT Objektes anpassen.------------------Mit freundlichem GrußUdo Hübnerwww.CAD-Huebner.de
|
| In das Form Lisp wechseln |
|
Lisp : MText Hintergrundfarbe in Lisp einbauen
Kirjava am 20.10.2011 um 12:43 Uhr (0)
Hallo zusammenich habe hier eine Lisp, die die Fläche eines Polygons ausliest und die dann als Text per Klick einfügt.___(defun Get-ObjectIDx64 (obj / util) (setq util (vla-get-Utility (vla-get-activedocument (vlax-get-acad-object)))) (if (= (type obj) ENAME)(setq obj (vlax-ename-vla-object obj))) (if (= (type obj) VLA-OBJECT) (if ( (vl-string-search "x64" (getvar "platform")) 0) (vlax-invoke-method util "GetObjectIdString" obj :vlax-False) (rtos (vla-get-objectid obj) 2 0) ) ))(defun c:AT (/ entObje ...
|
| In das Form Lisp wechseln |
|
Lisp : Getstring mit Vorgabe
Bernd P am 11.05.2006 um 11:47 Uhr (0)
HiHab mir das Lisp gebastelt. siehe untenDarin soll der Block "Kanal_Schacht" eingefügt und die Eingabe der Attribute erfolgen.Das Problem ist das ich den Vorherwert der vorherigen Eingabe bei Strang bzw Schacht gerne hätte.Code:(defun c:Kanal_Schacht (/ punkt Strang Schacht) (prompt "Schachtmitte: ") (setq punkt (getpoint)) (if (= Strang_vorher nil) (setq Strang (getstring T "Strang: " )) (setq Strang (getstring T "Strang vorher: " Vorherwert) ) (setq Strang_vorher Strang) (if (= Schacht_vorher nil) ...
|
| In das Form Lisp wechseln |
|
Lisp : Getstring mit Vorgabe
marc.scherer am 11.05.2006 um 12:20 Uhr (0)
Toll,hab wieder zu lange rumgemacht :-(Hier mein Senf:Code:(defun C:KANAL_SCHACHT (/ PUNKT SCHACHT STRANG) ;; (prompt "Schachtmitte: ") ;; Die Aufforderung kann man direkt in die GETXX Funktion bringen ;; Angaben in "" sind traditionell für "Vorgabe wenn Enter" gedacht. ;; Was ist, wenn der User keinen Punkt klickt? Dies muß abgefangen werden. (if (not (setq PUNKT (getpoint "
Schachtmitte: "))) (princ "
Ey, Du sollst n Punkt klicken... Funktionsende.") (progn ;_ fasst nachfolgendes zu einem Ausdruck zusa ...
|
| In das Form Lisp wechseln |
Roundhoehe.TXT |
Lisp : Lisp Fehler
blue75 am 28.10.2011 um 08:56 Uhr (0)
Hallo LeuteWir haben bei uns ein Lisp im einsatz zum Runden der Atributwerte. (Hier im Forum gefunden)Nun ist es so das wir hier im Büro verschiedene Autocad versionen haben.Bei mir funktioniert das Lisp einwandfrei. (ich habe "Civil 3D 2012")Meine Vermesserkollegen arbeiten mit "Autodesk Topobase Client 2010" und dort funktioniert das gleiche Lisp leider nicht.Es kommt immer folgender Fehler nach dem ich das Lisp aufrufe.; Fehler: no function definition: ROUND-ATTRIBUTWERTWas muss ich änderen damit es auc ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Fehler
CADmium am 28.10.2011 um 09:01 Uhr (0)
Jo da fehlt auch ein Teil in der Lisp , den Ihr vielleicht in einer extra-lsp-Datei habt, die auf dem Rechner der Kollegen nicht existiert.IMHO kommt mir der Text auch sehr bekannt vor ....hier der Rest (defun ROUND-ATTRIBUTWERT ( INSERT ATTRIBUTNAME STELLEN / OBJEKTDATEN WERT) (if (and(=(type INSERT) ENAME) (=(cdr(assoc 0 (setq OBJEKTDATEN (entget INSERT)))) "INSERT") (assoc 66 OBJEKTDATEN) ) (progn (while (/= (cdr (assoc 0 OBJEKTDATEN)) "SEQEND") (setq OBJEKTDATEN (entget (en ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Fehler
blue75 am 28.10.2011 um 10:25 Uhr (0)
Danke dir für deine erläuterung.klappt jetzt wieder auf allen Versionen.... ;-)Aber was ich mir nicht ganz erklären kann, wo der fehlende Teil dann im Civil 2012 geladen wurde, aber ist ja auch egal.Es klappt ja wieder einwandfrei.Herzlichen dank.....
|
| In das Form Lisp wechseln |
|
Lisp : was war nochmal ^P ..?
skyzem am 28.10.2011 um 13:52 Uhr (0)
Hallo http://lmgtfy.com/?q=autocad+diesel+%5Ec%5Ec%5Ep ;-)(schaltet MENUECHO ein und aus)Edit: BTW, das wäre dann DIESEL nicht LISP ------------------MfG skyzem [Diese Nachricht wurde von skyzem am 28. Okt. 2011 editiert.]
|
| In das Form Lisp wechseln |
|
Lisp : Lisp Fehler
CADwiesel am 31.10.2011 um 10:37 Uhr (0)
Schade das hier wieder diese Mach mir mal.... ist mit Egal.. Einstellung zum Tragen kommt.Dadurch, das viele sich hier einfach einer Leistung von Anderen bedienen aber selbst keinen Geist in die Lösung ihres Problemes reinstecken, brauchen sich viele über eine nachlassende Hilfe hier nicht zu wundern.Irgendwie verstehen wohl echt viele Anwender nicht, das sie mit den Lösungen hier teilweise extrem viel Arbeitszeit, Geld und Graue Haare einsparen können.------------------Gruß CADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : xref mittels script einfügen
cadffm am 01.11.2011 um 10:15 Uhr (0)
zu1)Wenn du die Zeile noch mal durchgegangen bist und du sagst das sie OK ist, dann ist sie OK (ich kann ja nicht wissen mit welcher Skalierung und Drehung die Referenz benötigt wird)zu2)Du scheinst eindeutig 2 Dinge zu verwechseln: Definition und Referenz. In einem Dialogfeld kannst du keine Referenzen wählen,daher auch nichts "transformieren" - das wiederum könntest du mit den (X)Referenzen - aber die wären im Modell oder Layoutbereich !?Wenn alle benötigten Daten zu Bearbeitung vorliegen und nur die Obj ...
|
| In das Form Lisp wechseln |
POS.zip |
Lisp : Attribute verschwinden beim Füllen mit LISP
mapla am 02.11.2011 um 10:30 Uhr (0)
Hallo zusammen,Folgendes Phänomän habe ich beobachtet(ACAD2011 / ADT2011 / ADT 2012 - XP32)In eine leere Zeichnung wird ein Block ( InsertPosTTF.dwg - Siehe Anahng eingefügt) besteht aus nur einem Attribut Name POS vorbelegt mit WERT POS auf dem TextStil POS WeltronUrban.ttf "weltu.ttf"!Anschließend kann man den Block Ordnungsgemäß mit DDATTE oder Lisp das Attribut bearbeiten - Kein Problem!Löscht man nun den Block - bereinigt den Block und dann den Textstil POS und fügt dann wiederum den Block ein,wird Or ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute verschwinden beim Füllen mit LISP
joern bosse am 02.11.2011 um 11:07 Uhr (0)
Hallo Karsten,konnte ich nachvollziehen, warum das so ist, keine Ahnung.Aber bei mir hat ein Würgaround funktioniert, wenn das entmod ein zweites Mal ausgeführt wird, dann hat es geklappt. Code:(defun SetPos (/ sNewVal ent attr) (Setq sNewVal "zzz") (setq ent (car(entsel))) (if (setq attr (entnext ent)) (progn (setq lOldVal (assoc 1 (entget attr))) (entmod (subst (cons 1 sNewVal ) lOldVal (entget attr))) (entmod (entget attr)) (entupd attr) ) ) );defun(SetPos)Warum das so ist weiß ich aber a ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute verschwinden beim Füllen mit LISP
mapla am 02.11.2011 um 11:39 Uhr (0)
Hallo Jörn,ja die Anzeige kommt- aber im falschen textstil - zumindest bei mir! Nachwie vorher Fehlen die ursprünglichen AttributsTextStilEigenschaften!Sieht so aus als ob Acad nun den Standard Textstil verwendet!Übringens in ACAD2006 hat noh alles wie in 2002 gefunzt! In 2008 ist selbiges verhalten anzutreffen!gruss Karsten
|
| In das Form Lisp wechseln |
