---

Ich programmiere mit Delphi 7 und bin jetzt soweit, daß ich einen DXF-Block so in BricsCad einfügen kann, daß dieser für den Anwender am Fadenkreuz hängt.

Quellcode für die AutoCAD Variante:
ACAD.ActiveDocument.SendCommand(
'_-insert "' + TempOrdner + '\' + AdsQuery_ArtikelstammTETENR.AsString + '_' + Typ + Ext + '"' +CR); // CR = #13#10
repeat // Warten bis AutoCAD wieder bereit ist Befehle anzunehmen
until ACAD.GetAcadState.IsQuiescent; // Funktioniert erst ab AutoCAD 2004, obwohl es den Befehl auch schon in früheren Version gab
for re:= 0 to ACAD.ActiveDocument.Layers.Count-1 do begin // AutoCAD beginnt bei 0
sLayer:= AnsiUpperCase(ACAD.ActiveDocument.Layers.Item(re).Name);
if (sLayer = 'MP_VERDECKT') or
    (sLayer = 'MP_MITTELLINIEN') or
    (sLayer = 'MP_HILFSLINIEN') or
    (sLayer = 'MP_BEMASSUNG') then
  ACAD.ActiveDocument.Layers.Item(re).LayerOn:= false;
end;

Quellcode für die BricsCad Variante:
// Zuerst muß eine temporäre Lisp-Datei erzeugt werden
IIcad.LoadLISP(TempOrdner + '\' + '_block.lsp'); // in der lsp-Datei steht der insert Befehl
// Jetzt hängt der Block am Cursor des Anwenders
// Das Dephi Programm muß jetzt warten, bis BricsCAD wieder Befehle annehmen kann, aber wie ???
// IsQuiescent kennt BricsCad nicht !!!
for re:= 1 to ACAD.ActiveDocument.Layers.Count do begin // BricsCad beginnt bei 1
sLayer:= AnsiUpperCase(IIcad.ActiveDocument.Layers.Item(re).Name);
if (sLayer = 'MP_VERDECKT') or
    (sLayer = 'MP_MITTELLINIEN') or
    (sLayer = 'MP_HILFSLINIEN') or
    (sLayer = 'MP_BEMASSUNG') then
  IIcad.ActiveDocument.Layers.Item(re).LayerOn:= false; // funktioniert, aber die Layerliste wird nicht aktualisiert -> Bug in BricsCad!?!?
end;

Frage: Gibt es sowas wie IsQuiescent in BricsCad oder gibt es eine andere Möglichkeit, einen Block so einzufügen, daß der Block für den Anwender am Fadenkreuz hängt?
IIcad.RunCommand und _DDINSERT habe ich schon ausprobiert.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo gute,

zuerst eine Frage, ist das Fadenkreuz beim einfügen sichtbar?
Wenn nicht kann man das Einstellen.
Zweite Frage liegt der Ursprungspung beim Block bei 0,0?
Wenn ja, hängt er bei meinem Test am Fadenkreuz.

Ich habe es mit _DDINSERT getestet.
Wenn ich die Eigaben in der Befehlzeile nicht machen wollte, würde ich den Befehl in das Menü einbinden, auf ein Icon setzen oder eine kleine (ca. 5 bis 10 Zeilen) Lispdatei erstellen. Oder gibt es eine Grund warum Du auf die ICAD oder ACAD Bordmittel verzichtest?

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Wenn ich _DDINSERT verwende geht bei mir eine Dialogbox auf.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,

hast Du ach mal _insert oder _-insert getestet?
Z.B.:        (command _insert "BLOCKNAME" "\\" )

Gruß
Theodor

[Diese Nachricht wurde von Theodor Schoenwald am 31. Aug. 2006 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Insert verwende ich doch, wobei ich in BricsCad über die lsp-Datei gehen muß. Das Einfügen des Blocken ist nicht das Problem, das funktioniert wie gewünscht. Jedoch muß mein Programm warten bis der Anwender den Block abgesetzt hat und dies funktioniert mit BricaCad nicht, da es wohl den Befehl IsQuiescent nicht kennt.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Genau so verhält es sich wenn ich den Anwender auffordere Elemente in seiner Zeichnung auszuwählen um dann diese Daten auszuwerten. Mein Programm muß solange warten, bis der Anwender fertig ist. In AutoCAD erreiche ich das mit dem Befehl IsQuiescent.

AutoCAD:
ACAD.ActiveDocument.SendCommand('_Select ');
    try
      repeat // Warten bis AutoCAD bereit ist
      until ACAD.GetAcadState.IsQuiescent; // geht nicht bei AutoCAD 2000
    except
    end;

BricsCAD???  IsQuiescent???

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo,
schon mal so ein Beispiel getestet?
;;----------------------------------------------------------
(prompt "\nDie Arbeit wird getan. Bitte warten . .  .")
(prompt "\n")
(startapp "Arbeit.EXE") ; die Datei DATEI.TXT wird erzeugt
(princ)
(setq Z 1)
(while (and (not (findfile "DATEI.TXT")) (<= Z 10)); 10 Durchgänge
(command "PAUSE" 1000) ; 1000 kann auch höher oder niedriger sein
(setq Z (1+ Z))
)
;; ...
;; ...

So wie im Beispiel eine Datei gesucht wird, kann auch z.B. ein Block gesucht werden.

Gruß
Theodor Schönwald

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Vielen Dank Theodor für Deine Antworten.

Die eigentliche Frage ist: Gibt es sowas wie IsQuiescent in BricsCad?

Dietmar

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Dietmar,

bisher wurde ich bei Fragen zu BricsCad von Mervisoft in Wiesbaden sehr gut beraten. http://www.mervisoft.de/
Frage doch mal dort nach.

Gruß
Theodor

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Bei mervisoft hatte ich es schon probiert, bevor ich es hier versucht habe.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

procedure TForm1.IsQuiescent;
const
  maxZaehler = 10000;
var
  zaehler: integer;
begin
  zaehler:= 0;
  repeat // Warten bis BricsCad bereit ist
    inc(zaehler);
    if zaehler > maxZaehler then begin
      if MessageDlg('Weiter?', mtConfirmation, [mbOk], 0) = idOK then
        zaehler:= 0;
    end;
  until (IIcad.ActiveDocument.GetVariable('CMDActive') = 0) or (zaehler > maxZaehler);
end;

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Die temporäre Lisp-Datei wird nicht benötigt.
Mit RunCommand funktioniert es:
IIcad.RunCommand('(command "_-insert" "C:\\10005_D.DXF")');
bzw.
IIcad.RunCommand('(command "_select")');
bzw.
IIcad.RunCommand('(command "_ZOOM" "_E")');
bzw.
IIcad.RunCommand('(command "_Regen")');

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP