|
Rund um Autocad : Polylinie skalieren
vision am 18.03.2004 um 08:14 Uhr (0)
Hallo Thomas, ich bekomme mit dem Lisp-Prg. leider folgende Fehlermeldung beim Versuch eine 2DPolylinie zu skalieren: Skalierfaktor : 2 ; Fehler: Keine Umwandlung des lisp-Wertes in VARIANT mit folgendem Typ: ENDWIDTH
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Textausrichten
vision am 20.01.2004 um 19:46 Uhr (0)
Hallo, da mir in diesem Forum schon viel geholfen wurde, möchte ich auch mal was konstruktives beisteuern. Das Tool erzeugt ein Auswahl-Listenfeld. ;Das LISP-Programm: ListeDN.lsp (defun C:ListeDN () (setq NAMES ("DN10" "DN20" "DN25" "DN30" "DN40" "DN50" "DN65" "DN80" "DN100" "DN125" "DN150" "DN200") ) (setq dcl_id (load_dialog "ListeDN.dcl")) (if (not (new_dialog "ListeDN" dcl_id) ) (exit) ) (start_list "selections") (mapcar add_list NAMES) (end_list) (action_tile "ac ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : Text kopieren und ändern
vision am 11.02.2004 um 18:12 Uhr (0)
Hallo, habe das LISP zum drehen (90°) von Blöcken geändert. Es funktioniert auch, bekomme aber nach jedem Schleifendurchlauf die Fehlermeldung: Unbekannter Befehl BLOCK_DREHEN90 . Wer hat einen Rat? (defun C:BLOCK_DREHEN90 (/ OBJEKT UCSFLAG) (setq UCSFLAG (WORLD-UCS)) (while (setq OBJEKT (ssget _:S ((0 . INSERT )))) (setq OBJEKT (ssname OBJEKT 0)) (command _.rotate OBJEKT (cdr (assoc (if ( 0 (cdr (assoc 72 ...
| | In das Form Rund um Autocad wechseln |
|
Rund um Autocad : zoom to Object
vision am 26.07.2004 um 15:50 Uhr (0)
Hallo, habe mal in dem Lisp von CADwiesel den ZOOM-Befehl gegen einen BREAK-Befehl getauscht. Wenn ein Element (z.B. ein Kreis, Block) auf einer Linie ist, wird die Linie nun passend zum Element gebrochen. (defun C:ZoomO ( / elem p0 p1 obj) (vl-load-com) (if(setq elem (ssget _:S )) (progn (setq elem (ssname elem 0)) (vla-getboundingbox (vlax-ename- vla-object elem) xmin xmax ) ;_ ende von vla-getboundingbox (setq p0 (vlax-safearray- list xmin)) ;Punkt links unten (setq ...
| | In das Form Rund um Autocad wechseln |
|
Anzeige:
Anzeige: (Infos zum Werbeplatz)
 |
