|
Lisp : Subentitäten aus Blöcken auslesen
archtools am 24.01.2013 um 23:42 Uhr (0)
Zitat:Original erstellt von S.Langhammer:Ja das Problem mit dem Debug ist mir bereits aufgefallen, ebenso der Vorteil, den AutoCAD gegenüber. Zumindest die Verfolgung konnte ich relativ einfach lösen, indem ich sie mir mit prinq über die Kommandozeile ausgeben lasse.Hier kriegst Du eine Funktion, die Du statt PRINT o.ä. verwenden kannst. In BricsCAD ist das schon eine echte Debug-Hilfe. Diese Funktion hält mit eigenem Befehlsprompt an, und solange Du keine Leereingabe machst, kannst Du beispielsweise die W ...
|
| In das Form Lisp wechseln |
|
Lisp : Das Nummernzeichen #
Geos am 25.01.2013 um 07:18 Uhr (0)
Ich kann mich erinnern, dass ich schon mal "seltsames Verhalten" bei Layernamen festgestellt habe, wenn sie mit $, & oder # begonnen haben.Ich glaub, die Sonderzeichen waren nicht zu "sehen" - mit ziemlicher Sicherheit war Lisp im Spiel. Leider weiß ich aber nicht mehr, was genau es war.------------------Schöne GrüßeErnst www.geopaint.at
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Brischke am 31.01.2013 um 14:30 Uhr (0)
was ist das für eine Funktion setProperty?Ohne die zu kennen, kann man wohl kaum was sagen.Was hat die SQL-fehlermeldung mit diesem Thema zu tun?Grüße!Holger------------------Holger BrischkeFREIE SCHULUNGSPLÄTZE -- C#.NET-Schulung im Mai 2013 Bei Interesse bitte melden!CAD on demand GmbHIndividuelle Lösungen von Heute auf Morgen.defun-tools Das Download-Portal für AutoCAD-Zusatzprogramme!
|
| In das Form Lisp wechseln |
|
Lisp : Liste aller Entitätsnamen innerhalb der Blocktabelle
S.Langhammer am 30.01.2013 um 16:16 Uhr (0)
@AndreasErstmal danke aber, hab ich bei dem Ansatz generell was falsch verstanden, oder soll das nur einen Entitätsnamen ausspielen?Nur falls ich missverständlich war, was ich am ende brauche ist so eine Liste: (1.Entitätsname 2.Entitätsname [...] N.Entitätsname)@cadffmDen Link hab ich nur angegeben um zu zeigen woher ich die Idee für den ersten Ansatz her hatte. Im Abschnit Into the Database - Part 3 steht unter "Now the AutoLisp Coding :" Code um sämtliche Layernamen auszulesen, ich bin davon ausgegangen ...
|
| In das Form Lisp wechseln |
|
Lisp : Attribute zum Block
Brischke am 24.01.2013 um 12:07 Uhr (0)
laut deiner Sysinfo, hast du doch das VisualStudio 2010. Warum schlägst du dich dann mit Lisp rum .. in .Net (beispielsweise C#) ist das überhaupt kein Problem, Attribute an eine Blockreferenz anzuhängen.Wenn ich mich nicht täusche, bist du eh noch am Anfang vom Lisp-Lernen. Ich kann dir nur mpfehlen, auf c#.Net zu wechseln, besonders auch im Hinblick auf die bei dir eingesetzte Applikation. Da wird vieles einfacher (klar, manches auch schwerer).Hast du das AutoCAD Magazin? Da habe ich im vergangene Jahr e ...
|
| In das Form Lisp wechseln |
|
Lisp : Liste aller Entitätsnamen innerhalb der Blocktabelle
S.Langhammer am 31.01.2013 um 10:10 Uhr (0)
Ich schreibe das Lisp Script, damit die Firmensoftware die Informationen in einer bestimmten Form auslesen kann. Einen Import für DXF Dateien haben wir schon nur der is wohl Mistig. Die Datei, in die die Infos ausgespielt werden soll ist auch bloß temporär.Ich brauche den Elementnamen doch auch nur um, während die Zeichnung geöffnet ist, während das Lisp-Script läuft mit entget auf die Entität zugreifen zu können und dann beispielsweise mit (setq entLay(cdr(assoc 8 enlist))) den Layer oder mit entsprechend ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 14:44 Uhr (0)
Hallo Holger!Sorry, dass Bildchen SQL - Fehlermeldung ist natürlich falsch.Da habe ich das falsche Bildchen erwischt.Den Codeschnipsel hätte ich auch weglassen können, da er aus verschiedensten Tests stammt.Alles, was ich bislang ausprobiert habe, habe ich mir aus dem Forum zusammengesucht jedoch ohne Erfolg.Da ich schon lange nichts mehr mit Lisp programmiert habe, fehlt mir da auch die Basis, wie ich mit den dynamischen Blöcken umgehen kann bzw. muß um solch einen Block zu manipulieren.Wie müßte ich denn ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 19:29 Uhr (0)
Hallo CADwiesel!Wenn ich das richtig verstehe, durhläufst Du mit der foreach - Schleife die BlockProperties nach a.Das ganze läuft über vla-GetDynamicBlockProperties.Wie aber setze ich dann den Wert "Sichtbarkeit1" Ø3 mm auf "Sichtbarkeit1" Ø4 mm um?Code:(set (vlax-ename-vla-object a) "Sichtbarkeit1" "Ø4 mm")Sorry, aber ich komm damit noch nicht klar Geht das denn überhaupt mit den Werten ändern?------------------GrußDirk
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 10:52 Uhr (0)
Hallo zusammen!Ich hab noch mal was probiert aber leider ohne Erfolg.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end if ); end foreach); end defun(setProperty (vlax-ename-vla-object (car (entsel))) "Strecken1" 50.0))Wenn ich nun einen Block a ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 01.02.2013 um 16:26 Uhr (0)
Hallo CADwiesel!Ich glaube es liegt an meinem dynamischen Block.Der hat einige Verschachtelungen.Nehme ich eine ganz einfachen Block mit nur einem Längenparameter"Abstand1", so funktioniert es.Code:(defun c:FT()(defun setProperty (vlaDynBlock sPropertyName rValue / vlaProperty) (foreach vlaProperty (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties vlaDynBlock))) (if (= (vla-get-PropertyName vlaProperty) sPropertyName) (vla-put-value vlaProperty (vlax-make-variant rValue)) ); end i ...
|
| In das Form Lisp wechseln |
 |
Lisp : Lisp und dynamische Blöcke
Dirk.B am 31.01.2013 um 14:10 Uhr (0)
Hallo zusammen!Es ist schon ne weile her, dass ich mich mit Lisp beschäftigt habe.Aber ich habe noch ältere Tools im gebrauch die ich gerade leicht angepaßt habe,was z.B. aktuelle Schraffuren etc. anbelangt.In diesem Zusammenhang wollte ich die alten starren Schraubenblöcke gegen unseredynamischen Blöcke austauschen. Hab dazu auch verschiedene Beispiele hier im Forum gefunden. Aber leider komme ich danmit nicht wirklich klar.In den Anhängen seht ihr die Eigenschaften.Ich möchte nach dem einfügendes Blocks ...
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
CADwiesel am 31.01.2013 um 16:21 Uhr (0)
vielleicht helfen dir die Schagworte weiter:vla-GetDynamicBlockProperties vla-get-PropertyNamevla-get-AllowedValuesCode: (setq o (vlax-ename-vla-object (car (entsel "
Blockwahl")))) (foreach a (vlax-safearray-list (vlax-variant-value (vla-GetDynamicBlockProperties o))) (vla-get-PropertyName a) (vlax-safearray-list (vlax-variant-value (vla-get-AllowedValues a))) )------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
|
Lisp : Lisp und dynamische Blöcke
CADwiesel am 01.02.2013 um 12:38 Uhr (0)
und?NIL als Rückgabe ist doch schonmal Besser als eine Fehlermeldungwurde denn deine Property gesetzt?Wenn ja, wird dir die Rückgabe nil ja relativ egal sein, wenn nein, müsstest du mal deinen Code debuggen (vlide) und sehen, was da so pessiert..------------------GrußCADwieselBesucht uns im CHAT
|
| In das Form Lisp wechseln |
