---

Hallo,

Habe ein kleines Problem - vielleicht kann mir jemand auf die schnelle helfen.
Ich möchte eine sld - Datei in eine DCL-Maske integrieren. Habe auch einen Code gefunden, wo dies geht und entsprechend eingebaut.

(setq width (dimx_tile "img")
height (dimy_tile "img")
) ;_ end of setq
(start_image "img")
(fill_image
0 0 width height img) ;_ end of fill_image
(slide_image 15 2 15 15 "TEST.sld")
(end_image)

Meine Frage : Wo muß ich dem System mitgeben, wo er die Datei "TEST.sld" findet ? Bekomme nur ein schwarzes nichts angezeigt.

Gruß Kenny1

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

---

Hallo Kenny1,

die Datei wird in einem Suchpfad gesucht. Es kann allerdings auch daran liegen, dass du die Parameter im (slide-image ..) so gesetzt hast, dass du das bild aus dem sichtbaren Bereich geschoben hast.

Bei Fragen ...

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Hallo Holger,

habe Suchpfade eingestellt. Die Bildgröße und Positionierung kann ich veändern, auch die Hintergrundfarbe. Lediglich das Bild bekomme ich nie angezeigt. Bei der LSP-datei steigt er immer aus.

Gruß Kenny1

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

---

Hallo Kenny,

lass mal das (fill-image ..) weg. Wozu erst füllen, wenn dann doch ein Bild rein soll.

Da das viele Ursachen haben kann, ist es sinnvoll, wenn du einfach mal die lsp/dcl/sld-Dateien hier reinstellst. Dann kann man gezielter nach der Ursache suchen.

Grüße Holger

------------------
Holger Brischke
(defun - Lisp over night!
AutoLISP-Programmierung für AutoCAD
Da weiß man, wann man's hat!

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

---

Juke.txt UGST_DCL.txt

Hallo Holger,

anbei die Dateien.

Gruß Kenny1

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

---

Hallo Kenny1

1. Die Einstellungen für das Image kann man erst machen wenn das Dialogfeld geladen ist. Nicht wie bei dir schon vorab.

2. Die Abmessungen für das Image-Fester hast du in die Variablen with und height schreiben lassen. width = 420 height = 208
Da du nur eine Breite und Höhe von 15 angegeben hast wird das Image sehr klein. Weis ich nicht ob das so gewünscht ist. Sonst:

(start_image "img")
  (slide_image
    0
    0
    (- (dimx_tile "img") 1)
    (- (dimy_tile "img") 1)
    "ok.sld"
    )
    (end_image)

Hier nochmal die fertige Lösung (Noch mit deinen Abmessungen)

(DEFUN C:UGST_DCL (/   B H D      AKS    SS     FM
   ex   ey ez AT     TBG    TB     AA
   AI1   AI LM1 LM2    AB     AK     p1
   p2   p3 p4 p5     p6     p7     p8
   p9   p10 p11 p12    p13    p14    p15
   p16   p17 p18 p19    p20
   ;dialog_return_value width  height
  )
; ax  ay              Koordinaten von Punkt A
; bx  by              Koordinaten von Punkt B
; a                   Punkt A
; b                   Punkt B
; dialog_return_value Rückgabewert von Dialog

;  kopiertes eingefügt
 

;  kopiertes eingefügt ende

 
  (DEFUN dialog_control (/ dialog_read dialog_file_handle)
; dialog_file_handle Zeiger auf Dialog-Datei
    (DEFUN dialog_read ()
;GET_TILE: holt aus DCL-Text-Feld Eintrag
;ATOF    : wandelt Text in Gleitkomma-Wert  (Ascii TO Flot)
      (SETQ B (ATOF (GET_TILE "KB")))
      (SETQ H (ATOF (GET_TILE "KH")))
      (SETQ D (ATOF (GET_TILE "KT")))
      (SETQ AKS (ATOI (GET_TILE "zz")))
      (SETQ SS (ATOF (GET_TILE "yy")))
      (SETQ FM (ATOF (GET_TILE "xx")))
      (SETQ ex (ATOF (GET_TILE "apx")))
      (SETQ ey (ATOF (GET_TILE "apy")))
      (SETQ ez (ATOF (GET_TILE "apz")))

    )
; Laden der Dialog-Datei
    (SETQ dialog_file_handle
   (LOAD_DIALOG "Juke.dcl")
    )
; Auswahl des STRECKE_AB-Dialoges
    (NEW_DIALOG "Juke" dialog_file_handle)
; Übergabe der LSP-Programms "dialog_read" an Button "OK"

(setq width  (dimx_tile "img")
height (dimy_tile "img")
  ) ;_ end of setq
  (start_image "img")
 
  (slide_image 15 2 15 15 "setup(Drucker)")
  (end_image)

; und setzen der Rückgabe des Dialogs auf 1 wenn "OK" gewählt
    (ACTION_TILE "ok" "(dialog_read) (DONE_DIALOG 1)")
; Starten des Dialogs (auf Bildschirm) und
; Rückgabe in Variable "dialog_return_value" speichern
    (SETQ dialog_return_value (START_DIALOG))
; Entladen der Dialog-Datei
    (UNLOAD_DIALOG dialog_file_handle)
  )

  (dialog_control)
; Auswerten der Rückgabe des Dialoges
  (if (= dialog_return_value 1)
; es wurde der "OK"-Button gewählt
    (PROGN

; Berechnung weiterer Werte

      (setq AT (- AKS 1))
      (setq TBG (- B (* FM AKS)))
      (setq TB (/ TBG AT))
      (Setq AA (- SS FM))
      (Setq AI1 (- SS FM))
      (Setq AI (/ AI1 2))
      (Setq LM1 (- TB AI AA))
      (Setq LM2 (- TB AI AI))
      (setq AB (+ LM2 SS))
      (Setq AK (- AKS 3))
; Berechnung der x -Punkte

      (setq x1 ex)
      (Setq x2 (+ x1 SS LM1))
      (Setq x3 (- (+ x1 B) SS))
      (setq x4 (- x3 LM1 SS))
      (setq x5 (+ x2 1))
      (Setq x6 (+ x1 SS))
      (Setq x7 (+ x2 SS))
      (Setq x8 (+ x1 B))
      (setq x9 (+ x4 SS))
      (Setq x10 (- x1 80))
      (setq x11 (+ x7 LM2))
      (setq x12 (+ x11 SS))

; Berechnung der y -Punkte

      (setq y1 ey)
      (Setq y2 (+ y1 D))
      (setq y3 (+ y2 80))
      (setq y4 (+ y2 150))

; Berechnung der z-Punkte

      (setq z1 ez)
      (setq z2 (+ z1 1))

      (SETQ p1 (LIST ex ey ez))
      (Setq p2 (list x2 y1 z1))
      (Setq p3 (list x3 y1 z1))
      (setq p4 (list x4 y1 z1))
      (setq p5 (list x5 y1 z1))

; Punkte für die Bemaßung
      (Setq p6 (list x1 y2 z1))
      (Setq p7 (list x6 y2 z1))
      (Setq p8 (list x2 y2 z1))
      (Setq p9 (list x7 y2 z1))
      (Setq p10 (list x8 y2 z1))
      (Setq p11 (list x3 y2 z1))
      (setq p12 (list x1 y3 z1)) ; Bemaßungsabstand
      (Setq p13 (list x9 y2 z1))
      (Setq p14 (list x4 y2 z1))
      (Setq p15 (list x1 y4 z1)) ; Bemaßungsabstand
      (Setq p16 (list x10 y1 z1)) ; Bemaßungsabstand
      (Setq p17 (list x11 y2 z1))
      (setq p18 (list x12 y2 z1))

; Zeichnen der Korpusseiten außen

      (command "-layer" "SE" "Korpusseiten" "")
      (command "_.box" p1 "L" SS. D. H.)
      (command "_.box" p2 "L" SS. D. H.)
      (command "_.box" p3 "L" SS. D. H.)
      (command "_.box" p4 "L" SS. D. H.)

      (command "-reihe" p5 "" "" 1 AK AB)

; Bemaßung

      (command "-layer" "SE" "Bemaßung" "")
      (command "bem" "Hor" p6 p7 p12 "")
      (command "bem" "Hor" p7 p8 p12 "")
      (command "bem" "Hor" p8 p9 p12 "")
      (command "bem" "Hor" p10 p11 p12 "")
      (command "bem" "Hor" p11 p13 p12 "")
      (command "bem" "Hor" p13 p14 p12 "")
      (command "bem" "Hor" p6 p10 p15 "")
      (command "bem" "ver" p1 p6 p16 "")
      (command "Bem" "Hor" p9 p17 p12 "")
      (command "Bem" "Hor" p17 p18 p12 "")
      (command „\e“)
      (command "-reihe" p9 "" "" 1 AK AB)

      (command "-layer" "SE" "0" "")
      (PRINT "Befehl ausgeführt")
    )
; der Dialog wurde auf andere Weise beendet
    (PROGN
      (PRINT "Abgebrochen")
    )
  )
  (princ)

)

Hoffe das nun alles klappt.

Ich nehme mal an das Programm ist noch nich fertig. Es fehlt noch eine Überprüfung ob die Layer existieren da es sonst zu einer Fehlermeldung kommt.

------------------
  Martin  

[Diese Nachricht wurde von mkl-cad am 20. Okt. 2004 editiert.]

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

---

Hallo Martin,

vielen Dank !!! Klappt jetzt.
Mit meinen bescheidenen Programmierkenntnissen ist ein Programm ohne gößere Bugs noch nicht drin...
Dank auch an Holger für die Mühe.
Gruß Kenny1

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