---

Moin !

wieder einmal ist mir das Licht ausgegangen und ich finde einfach einen Fehler nicht. Nun habe ich mal wieder die Hoffnung, das mir einer eine Kerze anzünden kann - nach dem Motte "es werde Licht":

Ich habe folgende Funktion mit Debug-Ausgaben:

Code:

---

  (defun avt_insert_fliessrichtung (;; Einfügepunkt
      inspkt
                                    ;; Richtungspunkt
    oripkt
    ;; Typ der Leitung
    ktype
    / richtung
    label
                                    )

    (princ "\n---> avt_insert_fliessrichtung")
    ;; Layer für den Pfeil
    (princ "\nLayername: ")(princ (avt_replace-char *avt_kanal_label_arrow_ly* "?" ktype))
   
    (AVT_LIB_CreateSetLy (avt_replace-char *avt_kanal_label_arrow_ly* "?" ktype))
    ;; Richtung für die Pfeilausrichtung in Bezug auf den niedrigsten Punkt
    (setq oripkt (AVT_LIB_xyz2xy oripkt)
  ;;richtung (+ (angle inspkt oripkt) (/ pi 2))
  richtung  (angle inspkt oripkt)
  );end-setq
   
    (princ "\nrichtung: ")(princ richtung)
    (princ "\ninspkt: ")(princ inspkt)
    (princ "\nblock: ")(princ (avt_replace-char *avt_kanal_label_arrow_blk* "?" ktype))
    (princ "\n*avt_kanal_label_arrow_scale* ")(princ *avt_kanal_label_arrow_scale*)
   
    (princ "\n----- block einfügen --------")
    (command "_-insert" (avt_replace-char *avt_kanal_label_arrow_blk* "?" ktype) inspkt
              *avt_kanal_label_arrow_scale* *avt_kanal_label_info_arrow*
              richtung)

    (princ "\n--> ende avt_insert_fliessrichtung")
    );end-defun - avt_insert_fliessrichtung

---

Das die verwendeten Unterfunktionen arbeiten zeigen die Kontrollausgaben.

Wenn ich nun mal in die Befehlszeile schaue, dann kommt folgender Report zustande:

Zitat:

---

---> avt_insert_fliessrichtung
Layername: NA_SIT_RW_TXT_Ltg
in AVT_LIB_CreateSetLy: NA_SIT_RW_TXT_Ltg
richtung: 2.52917
inspkt: (30446.9 232956.0)
block: SYM_RW_FLR-Pfeil
*avt_kanal_label_arrow_scale* 1.0
----- block einfügen --------2.529168

---

Es muss mir da irgendwo ein Fehler im Bereich des Insert-Commandos unterlaufen sein - aber ich komme einfach nicht darauf.

Ein Tipp?

Gruß Jan :-)

------------------
jan :-)

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

---

_-INSERT eintippen und das ganze durchgehen, mit genau den Daten die du dort übergibst..

Aber bereits im Textfenster (F2) müßte das Problem deutlich werden,
ich tippe darauf das es mit einem anderen Block geht 

Da weder alle SUBs, noch Blöcke bekannt sind, Daumendrück.

------------------
CAD on demand GmbH - Beratung und Programmierung rund um AutoCAD

[Diese Nachricht wurde von cadffm am 02. Dez. 2013 editiert.]

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

---

Was steht denn in
*avt_kanal_label_info_arrow*
?

------------------
Mit freundlichem Gruß

Udo Hübner
www.CAD-Huebner.de

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

---

nur Murks

[Diese Nachricht wurde von cadffm am 02. Dez. 2013 editiert.]

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

---

danke Euch beiden für die Gedankenanstöße - da war wohl mehr als ein Variablenknoten im Kopf.

Gruß Jan :-)

------------------
jan :-)

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