|
Rund um Autocad : LISP gesucht
Thomas Rausch am 26.02.2003 um 07:13 Uhr (0)
Hallo, wer hat denn ein Lisp rumliegen (oder ohne großen Aufwand) eines basteln oder hat eine viel einfacherer idee für folgende Sache: Ich muss in einer Zeichnung so ungefähr 1000 Objekte (sind geschlossene Polylinien, kann aber ja auch mal was anderes sein) mit je einer assoziativen Schraffur versehen. Schraffurmuster, Skalierung und andere Eigenschaften können so sein wie aktuell eingestellt. Beide Möglichkeiten von PICKFIRST zu berücksichtigen wäre gut. Die Auswahl nicht schraffierbarer Objekte sollte ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP gesucht
Brischke am 26.02.2003 um 08:12 Uhr (0)
Hallo Thomas, rumliegen hatte ich es nicht, aber solche Sachen sind schnell gemacht :-) Code: (defun c:plschraff (/ as) (setq as (ssget "_X" (list (-4 . " and") (0 . "LWPOLYLINE") (8 . "0");Hier den Layernamen der PL eintragen (-4 . "and ") ) ) as (if as (bau_elemli as))) (mapcar (lambda (X) (command "_.-bhatch" "_S" X "" "") ) as) (princ) ) (defun bau_elemli (asatz / n elemli) (setq n 0) (repeat (sslength asatz) (setq elem ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP gesucht
Thomas Rausch am 26.02.2003 um 08:56 Uhr (0)
Hallo Holger, Dank für die prompte Erledigung. Smilie hatte ich gar nicht, dafür folgende Fehlermeldung: "; Fehler: Fehlerhafte SSGET-Liste" was kann das sein? In der Zeile " (8 . "0");Hier den Layernamen der PL eintragen" habe ich statt der 0 den Namen eingetragen. Richtig? und letztes Problem: die Umgrenzungen sind auf 10 verschiedenen Layern, die Schraffur soll auf dem aktuellen Layer eingefügt werden. Lässt sich das was machen, dass ich das Lisp nicht 10 mal ändern muss? ------------------ gruß th ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP gesucht
CADchup am 26.02.2003 um 09:36 Uhr (0)
Hi Thomas, ich greif Dir mal unter die Arme: Trage bei (8 . "0") alle Deine Layernamen durch Kommata getrennt ein. Also zum Beispiel so: (8 . "Deinersterlayer,nocheinlayer,dingenslayer") So müsst s gehen. ------------------ www.cadditions.de
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : LISP gesucht
Thomas Rausch am 26.02.2003 um 10:22 Uhr (0)
Hallo, klappt und schraffiert alle LW-Polylinien auf den angegebenen Layern. Warum ich nun vorhin die Fehlermeldung hatte? keine Ahnung. Wahrscheinlich vergessen, Lisp nach Änderung neu zu laden. sorry. Für meine Zwecke ok, aber wenn ein Lispler in langen Winternächten nicht besseres zu tun hat, könnt ich mir einige Feinheiten hinsichtlich Auswahlsatz vorstellen... ------------------ gruß thomas
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie durch Polylinie ersetzen
jukni am 26.02.2003 um 10:27 Uhr (0)
Hallo. Wir arbeiten mit Autocad 2002. Vielleicht hat jemand eine Lisp oder einen Rat. Ich brauche folgendes: Eine normale Linie soll durch eine Polylinie ersetzt werden. Diese Polyline soll den gleichen Layer und die gleichen End und den gleichen Mittelpunkt haben. Diese Funktion würde ich gern unter ein Werkzeugicon legen. Klicke ich nun auf die normale Linie wird diese automatisch durch eine gleichwertige Polylinie ersetzt. Danke Jürgen.
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie durch Polylinie ersetzen
marc.scherer am 26.02.2003 um 11:16 Uhr (0)
Hi, oder via Lisp: Code: (defun C:L2PL (/ SGET) (princ "Linien wählen...") (setq SGET (ssget (list (cons 0 "LINE")))) (if SGET (progn (command "_.pedit" "_m" SGET "" "_y" "") (princ (strcat "
OK, " (itoa (sslength SGET)) " Linie(n) zu(r) Polylinie(n) konvertiert !" ) ;_ end of strcat ) ;_ end of princ ) ;_ end of progn (princ "
Keine Linien gewählt !") ) ;_ end of if (princ) ) ;_ end of defun Die Lisp dann ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie durch Polylinie ersetzen
Brischke am 26.02.2003 um 11:49 Uhr (0)
Hallo Jukni, auf die Schnelle - ohne Error-Handling, Variablenrückstellung,... Code: (defun c:lplmdp (/ as);Linie zur Polylinie mit 3 Punkten (setvar "OSMODE" 0) (setq as (ssget "_X" (list (-4 . " and") (0 . "LINE") (8 . "0");Hier den Layernamen der PL eintragen (-4 . "and ") ) ) as (if as (bau_elemli as))) (mapcar (lambda (X / npt) (setq npt (mapcar (lambda (P) (/ P 2.0) ) (mapcar (lambda (A B) (+ A B) ) ...
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie editieren
jukni am 25.02.2003 um 15:59 Uhr (0)
Hallo. Wir arbeiten mit Autocad 2002. Folgendes Problem: Ich zeichne eine gerade Linie mit dem Befehl Linie. Diese Linie besitzt 3 Griffe,links, mitte und rechts. Nun möchte ich den mittleren Griff anfassen und nach oben oder unten verziehen sodas eine Linie mit einem Knick in der Mitte entsteht. Weis jemand wie ich das angehen kann oder hat jemand eine Lisp die das bewerkstelligt. Danke Jürgen
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie editieren
Schachinger am 25.02.2003 um 16:29 Uhr (0)
Ein klick mehr (für den mittleren Punkt) bei der Polylinienerstellung dürfte vertretbar sein?! Wenn man ein spezifisches Lisp schreibst kommt man sicher auch noch mehr Klicks... es geht ja ums Zeit sparen oder? ------------------ mfg Siegfried Schachinger http://www.tbschatz.at
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie editieren
jukni am 26.02.2003 um 10:09 Uhr (0)
Hallo Georg, leider halbiert mir deine Lisp nur die Linie. Ich brauche folgendes: Die normale Linie soll durch eine Polylinie ersetzt werden. Diese Polyline soll den gleichen Layer und die gleichen End und Mittelpunkte haben. Danke Jürgen.
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Linie editieren
jukni am 26.02.2003 um 11:36 Uhr (0)
Hallo Axel. Vielen Dank für die Lisp. Habe zwar nun keine Polylinie sondern zwei Linien, aber damit ist mir auch schon sehr geholfen. Ciao Jürgen
|
| In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Flächenkörper & Volumenkörper
mapcar am 26.02.2003 um 20:31 Uhr (0)
Hi Stauchi, AutoDesk sieht in den neueren Versionen dafür keine Möglichkeit mehr vor. Es sind da aber auch ein paar nicht von der Hand zu weisende Unterschiede: Selbst wenn man eine (Flächen-)Kugel in eine ACIS-Kugel umwandeln könnte, würde doch keine Kugel draus werden, sondern nur ein unregelmässiges n-flächiges Polyeder, wobei n durchaus eine relativ grosse Zahl werden kann. Der springende Punkt ist: Im Flächenmodell liegen immer nur Informationen über die Flächen bzw. deren Eckpunkte vor, aber nie solc ...
|
| In das Form Rund um Autocad wechseln |
