|
IntelliCAD : Intellicad 2001
stk am 26.02.2021 um 16:21 Uhr (1)
Hallo, wir haben bei uns in der Firma einen alten Plotter wieder belebt für einen Kunden seine Produkte. Dieser Plotter arbeitet vornehmlich mit Intellicad 2001. Jetzt meine gemeine Frage, ist es möglich den Befehl Offset mit einem Makro zu optimieren, das wenn ich eine Linie gleichzeitig nach beiden Seiten versetze, die Ursprungslinie gleich gelöscht wird ? Das versetzen nach beiden Seiten habe ich hinbekommen, aber die Ursprungslinie bleibt ja stehen. Bei diesen Produkten geht es pro Tag um 160 Linien di ...
|
| In das Form IntelliCAD wechseln |
|
Lisp : DCL / Text und width
Bernd10 am 10.10.2006 um 11:03 Uhr (0)
Hallo,ich habe das Problem, dass ich in einem DCL-Dialog die Länge eines bestimmten Text-Elements variabel gestalten möchte. Dazu gebe ich im DCL-Dialog beim Text-Element mit dem Key ct_frage_jna eine Breite von 80 an (siehe unten). ddfrage_jna : dialog{ label = "Frage"; initial_focus = "accept"; // OK-Button spacer_1; : text { key = "ct_frage_jna"; alignment = centered; is_bold = true; width = 80; } spacer_1; : row { fixed_width = true; alignment = centered; : button { key = "cb_frage_j"; label ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : Eine Mittellinie (Linie / Polylinie) aus einem 3D-Rohr erstellen.
jupa am 20.12.2016 um 15:17 Uhr (1)
Zitat:Original erstellt von cadffm:Sowas kann auch als 1-Klick Lösung umgesetzt werden.Dieser "Provokation" (oder Verlockung) konnte ich nicht widerstehen. Hab mal was zusammengebastelt (noch nicht auf "schön" getrimmt, ohne Error-Handling, quick und dirty eben). Auch wenn Du sicherlich was anderes im Hinterkopf hattest, bei meinen Tests funktioniert das erst mal so (s. Anhang; Aufruf mit RM). (Und noch immer mit der Einschränkung, daß die X-Werte der Kurvenstützpunkte fortlaufend aufsteigend liegen müssen ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Blöcke stretchen und Texte ändern?
Brischke am 18.05.2004 um 10:44 Uhr (0)
Hallo TK Elevator, wie den Block gestreckt hast? Mir fällt nur eine Möglichkeit ein: Du hast diesen ungleichmäßig (x-Faktor und Y-Faktor verschieden) skaliert. Variable Texte innerhalb von Blockreferenzen heißen im AutoCAD Attribute. Diese sind bei der Erstellung als Attributdefinition zu erzeugen. Fügst du eine Blockreferenz ein, dann werden die Attributdefinitionen zu Attributreferenzen, und können variable mit Texten gefüllt werden. Es gibt nun auch die Möglichkeit, diese Attribute, ohne die Blockdefini ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : mtext lisp
fca_mi2 am 15.07.2003 um 09:04 Uhr (0)
noch nicht so ganz, so sieht mein code aus : ;********* tabelle einfügen *************** (setq textliste "") (if (= (cdr (assoc 80 fc_sv)) "1") (progn (setq dateiname (strcat (getvar "dwgprefix") plannummer "_Positionsliste.txt")) (setq f (open dateiname "r")) (repeat 15 (princ "
") (princ (read-line f)) );repeat (setq textelement (read-line f)) (while textelement (setq textliste (strcat textliste textelement "P")) (princ) (setq tex ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Positionsnummern in AutoCAD 2002
itzefitz am 15.03.2005 um 12:59 Uhr (0)
Hallo BrettiCAD, versuche es einmal mit diesem Lisp, habe ich vor einiger Zeit in diesem Forum gefunden. Ich finde es ist eine tolle Sache. (defun C:Pos (/ KREISRADIUS TXT_KORD TXT_KORD TXT_HOEHE TXT_XY START_NUMMER PKT) (setq KREISRADIUS 25.0) (setq TXT_KORD 0.0) (setq TXT_HOEHE 20.0) (setq TXT_XY (strcat "@" (rtos TXT_KORD 2 2) "," (rtos TXT_KORD 2 2))) (if (null START_NUMMER) (setq START_NUMMER (getint "
Start Pkt-Nummer: ")) ) (setq PKT t) (while PKT (setq PKT (getpoint (str ...
|
| In das Form Rund um Autocad wechseln |
|
Lisp : Blöcke entsprechend Datenbank einfügen
Danillo am 11.03.2021 um 23:50 Uhr (1)
Hallo Leute,ich habe eine Tabelle mit Koordinaten und mehreren Zusatzdaten, konkret Koordinaten mit Hausnummern. Ich habe ein LISP-Progamm geschrieben, welches Zeile für Zeile de Daten liest und einen Block an der entsprechenden Stelle einfügt und die Attribute mit den Zusatzdaten (z.B. der Hausnummer) ausfüllt. Dazu verwende ich den _-Insert Befehl. Leider läuft das Programm sehr langsam und stürzt bei einer großen Datenmenge ab, d.h. wenn z.B. mehr als 1000 Blöcke eingefügt werden.Hat jemand einen Tipp f ...
|
| In das Form Lisp wechseln |
|
Lisp : AutoLisp-Funktion in DWG-Datei integrieren
cadffm am 20.07.2010 um 11:57 Uhr (0)
Gemeint war: Du liest den Text über Lisp ein, im Beispiel wurde derString sogar an das Symbol "str" gepappt.an str hängt nun also der String "(defun c:test () (alert "HALLO"))"nun könnte man so: (eval (read str)) : zB den AutoCADbefehl "Test" definieren - ausgehend von einem "String" der in der Datei gespeichert wurde.Nur wie bereis am Anfang gesagt wurde - du brauchst ja im System erst mal eine Funktion welche diesen lesen&umsetzen macht.Dictionarys.. da sind zB. Multilinienstile gespeichert usw."ACAD_COL ...
|
| In das Form Lisp wechseln |
|
Lisp : DCL mit Popup_list mit LSP verknüpfen
copymaster am 03.10.2006 um 20:38 Uhr (1)
Da bin ich nochmal..der Anfänger...Hab nochmal einen Teil des LISP-Codes eingefügt, mein Problem ist, dass beide Formate (Blöcke) eingefügt werden. Vielleicht kann nochmal jemand nen Blick drauf werfen, wäre super, denn ich komme da leider nicht weiter.Wie schon oben beschrieben werden die Formate über ne Popup_list ausgewählt...in der liste steht lediglich.."A0" "A1" (key: format_choose).Nach dem OK-Klick soll der jeweilige Block eingefügt werden..allerdings werden bei mir beide Blöcke eingefügt.(if ok_cl ...
|
| In das Form Lisp wechseln |
|
Rund um AutoCAD : LISP: Auslesen von Textkoordinaten im Block
CADmium am 20.09.2018 um 11:07 Uhr (1)
prinzpiell so(cdr(assoc 10(entget(car(nentsel "
Attribut wählen:")))))bzw. wenn es bloß 1 oder das erste Att ist(cdr(assoc 10(entget(entnext(car(entsel "
Blockref wählen:"))))))Das Attribut ist Bestandteil der Blockreferenz .. Das Wipeout soll sicher Bestandteil des Blockes werden .... Wenn du das so hinbekommst musst du auch immer die Zeichenreihenfolge ändern ... was dir vermutlich um die Ohren fliegt ...deshalb beschreib mal, was du letztendlich willst, vielleicht gibt es andere Wege .... oder soll der ...
|
| In das Form Rund um AutoCAD wechseln |
|
Rund um Autocad : Text einklammern
Brischke am 25.05.2004 um 13:45 Uhr (0)
Hallo, solang es keine Werte in Attributen sind, sondern wirklich nur Textelemente, können dir die folgenden Zeilen helfen. Code: (defun c:tvn (/ aws gc1 Ed) (setq aws (ssget _X ( (0 . *TEXT ) (8 . 0 );Hier den Layernamen einsetzen! ) ) ) (if aws (foreach E (bau_elemli aws) (entmod (subst (cons 1 (strcat ( (cdr(setq gc1 (assoc 1 (setq E ...
|
| In das Form Rund um Autocad wechseln |
|
AutoCAD Civil 3D : Mauer im DGM
HansjörgD am 03.07.2013 um 07:52 Uhr (0)
Hallo Jörg!Ich habe mir für dieses Problem ein kleines Lisp erstellt. Vielleicht hilfts Dir. Die Objekte, die ausgewählt werden, müssen als 3d-poly vorliegen.Gruß Hansjörg ; erstellen einer 3d-Mauer(defun c:3mau () (setq ele (entsel "Objekt wählen: ")) (setq p (getpoint "welche Seite: ")) (setq vhm (getreal "vordere Mauerhöhe: ")) (setq mbr (getreal "Mauerbreite: ")) (setq hhm (getreal "hintere Mauerhöhe: ")) (if ( vhm 0) (command "offsetfeature" "0.02" ele p vhm "") ) (command "offsetfeature" ...
|
| In das Form AutoCAD Civil 3D wechseln |
|
Rund um AutoCAD : Ordinatenbemassung, tausche X-Daten gegen Y-daten
Dorfy am 11.08.2009 um 10:22 Uhr (0)
hi,na dann mal soneuen BemStil erstellenund(defun c:xy-ord2 (/ dp asatz n elemli) (princ "
X-Koordinatenbemaßung ") (if (setq asatz (ssget ( (-4 . "AND") (0 . "DIMENSION") (70 . 102) ;;(-4 . "&" ) (70 . 6 ) (-4 . "AND") ) ) dp (getpoint "Durchpunkt Koordinatenbemaßung: ") ) (progn (setq n 0) (repeat (sslength asatz) (setq elemli (cons (ssname asatz n) elemli) n (1+ n) ) ) (foreach x elemli (command "_dimordinate" (cdr (assoc 13 (entget x))) ...
|
| In das Form Rund um AutoCAD wechseln |
