---

Hallo!

Vielleicht sieht ein Profi schneller wie ich, warum das Attribut nicht erzeugt wird

Code:

---

; Create Block NIV_ID

(defun HM:add_Coordblock ()
  (if (not (tblsearch "block" "NIV_ID"))
    (progn
  ;BLOCK Header definition:
      (entmake '((0 . "BLOCK")
(2 . "NIV_ID")
(70 . 2)
(10 0.0 0.0 0.0)
)
      )
 
  ;POINT marker definition:
      (entmake '((0 . "POINT")
(8 . "0")
(10 0.0 0.0 0.0)
(210 0.0 0.0 1.0)
(50 . 0.0)
)
      )
 
  ;Text ATTRIBUTE definition:
      (entmake '((0 . "ATTDEF")
(8 . "0")
(10 3.0 -2.0 0.0)
(1 . "")
(2 . "ID")
(3 . "WERT")
(40 . 4.0)
(41 . 1.0)
(50 . 0.0)
(70 . 0)
(71 . 0)
(72 . 0)
(73 . 2)
)
      )
 
  ;BLOCK's ending definition:
      (entmake '((0 . "ENDBLK")
)
      )
      )
    )
  (princ)
  )

(defun c:CoordBlock ()
  (vl-load-com)
  (setq time (getvar "millisecs")
n 0
XlsLst (gc-xlread "C:/diro/cad/2012/C-/ExcelLisp/120328GPS.xls"); "Coord")
)
  (while
    (HM:add_Coordblock)
; produce insert NIV_ID
    (entmake
      (list
(cons 0 "INSERT")
(cons 2 "NIV_ID")
(cons 8 "0")
(cons 10 (list
  (atof (nth 1 (nth n xlslst))) ; x-coord
  (atof (nth 2 (nth n xlslst))) ; y-coord
  (atof (nth 3 (nth n xlslst))) ; z-coord
      )
      )
)
      )
    (entmake
      (list
'(0 . "ATTRIB") ;; Entity type
(cons 1 (nth 0 (nth n xlslst))) ;; Attrib Value "pnr"
'(2 . "ID");; Attrib Tag
'(7 . "Standard") ;; Textstyle
'(8 . "0") ;; Layer
'(10 3.0 -2.0 0.0) ;; First alignment point
        '(40 . 4.0) ; Text height
'(41 . 1.0)
'(70 . 0) ;; Attribute flags: 8
'(71 . 0) ;; Text generation flags
'(72 . 0) ;; Horizontal text justification type
'(74 . 2) ;; Vertical text justification type
)
      )
    (entmake
      (list
(cons 0 "SEQEND") ;; Entity type
(cons 8 "0") ;; Layer
)
      )
   
    (setq n (1+ n))
    )

  (princ (strcat "\n<< Time took: " (rtos (/ (- (getvar "millisecs") time) 1000.) 2 4) " secs. >>"))
  )

---

Die xlslst variable schaut so aus:

Code:

---

(("1000" "6406837.6855" "166740.3078" "50.6786") ("1001" "6406837.1014"
"166740.1585" "50.6760") ("1002" "6406836.4937" "166745.2868" "50.5258")
("1003" "6406836.4230" "166750.2721" "50.4042") ("1004" "6406837.2029"
"166755.4235" "50.2435") ("1005" "6406839.6388" "166759.7200" "50.0572")
("1006" "6406843.4804" "166763.3955" "49.9713") ("1007" "6406848.3489"
"166765.8591" "50.4728") ("1008" "6406853.6169" "166766.9688" "51.1259")
("1009" "6406859.9099" "166766.4426" "51.7911"))

---

------------------
Gruss Dirk

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

---

... im entmake der Blockreferenz wird der GC für HASATTRIBUTES nicht gesetzt  ....

------------------
  - Thomas -          
"Bei 99% aller Probleme ist die umfassende Beschreibung des Problems bereits mehr als die Hälfte der Lösung desselben."

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

---

die Stelle

Code:

---

  (while
    (HM:add_Coordblock)

---

würde ich mir auch noch mal neu überlegen.
Ein "(HM:add_Coordblock)" ist zwar wichtig, aber eben nur einmal und deine
Whileschleife soll auch sicher mehr wie 0-1x durchlaufen werden in diesem Beispiel oder ?

Dann würde ich die Anzahl der Durchgänge ggf. an die Anzahl der (Excel)Listeneinträge heften oder.

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

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

---

Genau, HM:add_Coordblock war an der verkehrten Stelle. GC 66 mit 1 habe ich in den INSERT gesetzt.
Jetzt werden mir die Attribute zwar angezeigt, aber sitzen alle auf der gleichen Stelle obwohl in GC 10 pt steht

Code:

---

(entmake
      (list
'(0 . "ATTRIB") ;; Entity type
(cons 1 (nth 0 (nth n xlslst))) ;; Attrib Value "pnr"
'(2 . "ID");; Attrib Tag
'(7 . "Standard") ;; Textstyle
'(8 . "0") ;; Layer
(cons 10 pt) ;; First alignment point
;;; (cons 11 pt) ; optional
        '(40 . 4.0) ; Text height
'(41 . 1.0)
'(70 . 0) ;; Attribute flags: 8
'(71 . 0) ;; Text generation flags
'(72 . 0) ;; Horizontal text justification type
'(74 . 2) ;; Vertical text justification type
)
      )

---

------------------
Gruss Dirk

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

---

Kurze Rückmeldung, was ich versucht habe in GC 10 von ATTRIB entity reinzuschreiben
- die Differenzkoordinaten zum Blockursprung
- Transformierte Koord. in den Block

schlussendlich habe ich gemerkt, dass ich egal was reinschreiben kann. Es wird immer die gleiche Position für das Attribut gesetzt.
Da muss es also eine andere Ursache geben. Geb mir mal die Zeit übers Wochenende.

------------------
Gruss Dirk

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