|
Rund um Autocad : Eindeutiges identifizieren von Einfügepunkten
gmk am 02.12.2004 um 13:58 Uhr (0)
schreib die raumnummer als block mit attr. in die zeichnung (mitten in den raum, den block kannst du bei bedarf auch später um beliebig viele für dich konstante attr. erweitern) und hol dir mit entget den wert wenn du das raumnummern-attribut einfügst. ich denke der aufwand für die berechnung in welchem umfahrungspolygon der einfügepunkt deines lampenblocks liegt ist ungleich höher als ein mausklick mehr. wenn du es trotzdem mit der berechnung testen möchtest, findest du im lisp-forum einen beitrag zu die ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Problem mit Schriftkopf-Block
gmk am 15.01.2004 um 09:24 Uhr (0)
1.alten insert gesprengt. 2.alles nach oben verschoben 3.zwei indexzeilen nach unten kopiert (mit attribute) 4.attribute umbenannt. (eigenschaftenfenster) 5.befehl _block bei objekte wählen zuerst die geometrieelemente (=bei dir der indexkasten und text) und dann der reihe nach die attribute auswählen. (reihenfolge des auswahlsatzes unbedingt einhalten) sonst alles wie bei normalen block. (bei interesse: im lisp-forum findest du eine ganze reihe beiträge zu blöcken mit attr. die dir einen überblick ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : liste sortieren
gmk am 19.09.2005 um 16:08 Uhr (0)
hallo!vl-sort liefert mir folgendes ergebnis.(SETQ xl (("B" "1") ("B" "0") ("B" "1") ("A" "1") ("A" "1") ("G" "0") ("A" "2") ("A" "1") ("A" "2") ("B" "1") ("C" "0") ("C" "3") ("C" "3"))) (SETQ xl (vl-sort xl (function (lambda (e1 e2) ( (car e1) (car e2))))));ergebnis vl-sort (("A" "1") ("A" "1") ("A" "2") ("A" "1") ("A" "2") ("B" "1") ("B" "0") ("B" "1") ("B" "1") ("C" "0") ("C" "3") ("C" "3") ("G" "0")))ich möchte das ergebnis jetzt weiter innerhalb der "listenabschnitte" A B C G nach ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Koordinatenbemassung mit Ergänzung
gmk am 15.11.2005 um 13:00 Uhr (0)
Zitat:Original erstellt von Bassi:Hallo georg,Danach geht´s über _dimcontiune weiter und es wird an jedem Maßpunkt ein Pfeil erstellt (nicht als Block) - ausgehend von Koordinate 0: ehrlich gesagt blick ich jetzt nicht mehr so ganz durch was du möchtest. wenn es dir darum geht eine echte bemassung zu erstellen solltest du dich mal mit bemassungsstilen beschäftigen. evtl. kommst du da mit den richtigen parametern schon relativ nah an deine gewünschte darstellung ran.der kringel um 0 ist dann aber bes ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : Skalierungsfaktor eines Ansichtsfensters
gmk am 10.03.2003 um 09:37 Uhr (0)
morgen axel, holger, geos, walter! also da muß man erst mal draufkommen, daß zwischen interner rechengenauigkeit und anzeigegenauigkeit ein unterschied ist. ist mir ehrlich gesagt so in anderen prog.sprachen noch nie untergekommen. was mich aber doch wundert, ist daß lisp hier schon im vorkommabereich das runden anfängt: 4400069.0971 -- in der anzeige 4.40007e+006. (ziehe ich übrigens 4400000 von den 4.40007e+006 ab bekomme ich als ergebnis 69.0971, was mich doch einigermaßen beruhigt). kann ich die an ...
|
| In das Form AutoLisp wechseln |
|
Rund um Autocad : Kreise in Punkte konvertieren, AutoCad Map 2005
gmk am 27.04.2006 um 16:51 Uhr (0)
(DEFUN c:gmk_knb ( /awsnzlelewahl)(SETQ aws (SSGET "X" (list (cons 0 "CIRCLE")(cons 8 "DEIN LAYER"))))(SETQ n (SSLENGTH aws))(PRINT n)(SETQ zl 0)(WHILE ( zl n) (SETQ wahl (SSNAME aws zl)) (SETQ ele (ENTGET wahl)) (PRINC wahl) (TERPRI) (COMMAND "_-insert" "DEIN BLOCKNAME" (CDR(ASSOC 10 ele)) "0.25" "0.25" "0" zl "0") (SETQ zl (+ 1 zl)) ))mit diesem lisp kannst du kreise in blöcke umwandeln.du brauchst einen block mit zwei attributen, in der vermessung üblich sind punktnummer und höehe. den block oben eintra ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : LW-Polylinie mit Entmod ändern
gmk am 20.05.2010 um 16:43 Uhr (0)
Wie soll da die gleiche Geometrie rauskommen wenn Du jedes Element der Polylinie mit 4 unterschiedlichen Punkten transformierst? Hat doch jede Transf. für sich gesehen unterschiedliche Klaffungen.Jetzt mal ganz unabhängig davon ob die Polylinie ausgerundet ist oder nicht? ... oder hab ich Dich falsch verstanden?Aber die eigentliche Aufgabe mit den Breiten könntest auch ganz simpel mit pedit lösen. Segmentbreiten merken, Polylinie zerlegen, transformieren, pedit - verbinden, pedit - bearbeiten - unterschied ...
|
| In das Form Lisp wechseln |
|
AutoLisp : Block einfügen und bearbeiten
gmk am 17.11.2005 um 13:18 Uhr (0)
servus heinz!ich nehme an es geht dir immer noch um die beschriftung deiner schemapläne. übergib an dein programm eine liste die ungefähr so aussieht:((layername1 blockname1 freistellungsradius1) ((layername2 blockname2 freistellungsradius2) ((layername3 blockname3 freistellungsradius3) .....)dann brauchst du nur noch die linie anklicken, holst dir die blockinfo aus obiger liste, gibst den einfügepunkt für den block an und läßt im programm mit dem winkel der linie und dem freistellungsradius die linie aufb ...
|
| In das Form AutoLisp wechseln |
|
AutoLisp : ausgleichende gerade
gmk am 05.07.2004 um 09:35 Uhr (0)
hi lispler! ist nicht gerade ein lisp-problem, aber ich versuch es trotzdem mal hier: gegeben ist ein punkthaufen mit n punkten. durch diesen punkthaufen soll eine ausgleichende gerade gelegt werden, die mir eine optimale fehlerverteilung ergibt. (z.B. gebäudeflucht, bestimmt über mehr als zwei punkte) in der vermessung löst man so eine aufgabe i.d.r. mit einer ausgleichung beginnend mit der aufstellung von fehlergleichungen. ich bin mir aber nicht so ganz sicher ob ich mit diesem verfahren zum ziel kom ...
|
| In das Form AutoLisp wechseln |
|
Lisp : vl-sort
gmk am 19.07.2011 um 11:22 Uhr (0)
Servus!Kann mir jemand erklären nach welchem Algorithmus lisp sortiert.Wenn ich mir die zwei Beispiele anschaue kann ich zumindest keine Systematik im Abarbeiten der Liste erkennen, vorausgesetzt die ursprüngliche Liste wird in ihrer Reihenfolge nicht verändert.Muß ich das wissen wenn ich mir eine eigene comparison-function bastle, oder reicht da T und nil als Rückgabewert?(DEFUN ablauf () (vl-sort LISTE (function (lambda (e1 e2) (PRINC "
") (PRINC e1) (PRINC " ") (PRINC e2) ( e1 ...
|
| In das Form Lisp wechseln |
|
Rund um Autocad : mvsetup
gmk am 01.04.2003 um 14:41 Uhr (0)
hi ulf! hab mir irgendwo mal folgende lisp runtergeladen. zeigt dir die gruppencodes an. erster eintrag 1040 ist der drehwinkel des viewports im bogenmass drehwinkel im uhrzeigersinn, x als bezugsachse. (defun C:CODE(/ ENT ENAM ELIST ITEM) (princ "
Bitte ein Element wählen dessen Element-Gruppen-Code angezeigt werden soll :") (setq ENT (entsel)) (setq ENAM (car ENT)) (if (not (setq ELIST (entget ENAM ("AUTOCAD_POSTSCRIPT_FIGURE")))) (setq ELIST (entget ENAM) EEDLST nil) (progn (setq ELIST (ent ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : InteelliCAD
gmk am 21.05.2003 um 09:24 Uhr (0)
hi! habe letztes jahr auch schon mal mit dem gedanken gespielt mir intellicad zuzulegen. schon allein wegen des preises sicherlich interessant (ca. 400-500€ je nach anbieter). dass problem an der sache ist, dass es sich bei ic um einen offenen quellcode handelt und jeder anbieter im endeffekt sein eigenes programm strickt. zum testen der verschiedenen anbieter also unbedingt bei jedem eine demoversion (wenn vorhanden !?!?) runterladen. ich hatte damals die demo von bricscad (kann mich an die version leide ...
|
| In das Form Rund um Autocad wechseln |
|
AutoLisp : dcl anfaenger
gmk am 05.03.2006 um 18:46 Uhr (0)
hi lispler!bin ganz am anfang mit dcl und habe drei fragen dazu:1.wie komme ich an die rückgabe werte der dcl datei wenn ich keine eíngaben verändere und nur mit ok bestätige (auch unter berücksichtigung von (set_tile) und value. die auskommentierten(get_tile) anweisungen funktionieren leider nicht.2.was ist der unterschied zw. (action_tile) und (get_tile)? (ich stells mit in etwa so vor: action_tile: wenn "key pressed" mache das was in der gequoteten anweisung steht (lisp-ausdruck). get_tile: enthält den ...
|
| In das Form AutoLisp wechseln |
