Hallo,
bin etwas ratlos!
Bei dem u. a. Programm funktionieren unter Windows XP die Funktionen:
XLINE, CIRCLE und TEXT einwandfrei.
Mit Windows 2000 funktioniert TEXT nicht (es wird kein TEXTLAYER erzeugt).
Fragen:
1. besteht zwischen Win XP und Win 2000 mit AutoCAD 2002 ein Funktionsunterschied?
2. warum funktioniert das Prg. nicht mit Bemassung u. 2D-Polylinien?
Für Eure Bemühungen bedanken ich mich im Voraus.
(Ein Beispiel aus dem Forum)
(vl-load-com)
(vlr-remove-all :vlr-editor-reactor)
(vlr-editor-reactor nil
'((:vlr-commandWillStart . MyCommandWillStart)
(:vlr-commandEnded . MyCommandEnded)
(:vlr-commandCancelled . MyCommandEnded)
)
)
(defun MyCommandWillStart (reactor value / )
(setq value (car value))
(cond ((= value "XLINE") (setlayer "XLINE" 6))
((= value "DIMENSION") (setlayer "BEM" 3))
((= value "CIRCLE") (setlayer "KREISLAYER" 7))
((= value "TEXT") (setlayer "TEXTLAYER" 7))
)
)
(defun MyCommandEnded (reactor value / )
(setvar "CLAYER" "0")
)
(defun setlayer ( layer farbe / )
(if (not (tblsearch "LAYER" layer))
(entmake
(list
(cons 0 "LAYER")
(cons 100 "AcDbSymbolTableRecord")
(cons 100 "AcDbLayerTableRecord")
(cons 2 layer)
(cons 70 0)
(cons 62 farbe)
)
)
)
(setvar "clayer" layer)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP