---

Ich experimentiere gerade mit Schriftfelder und habe gerade eines gemacht, das mir die Länge einer Linie zeigt - alles bestens.

Aber woher weiss ich morgen, welche Länge welcher Linie im Feld angezeigt wird? Wo finde ich später den Zusammenhang Linie - Schriftfeld?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Du siehst ja die ObjectId... die in HEX konvertieren und in den Handler.

Code:

---

(defun C:ZOOM-BY-HANDLE ( / handle ent)
(vl-load-com)
  (setq handle (getstring "\nHandle'chen eingeben: "))
  (setq ent (handent handle))
(vla-getBoundingBox
  (vlax-ename->vla-object (handent handle))
  'll
  'ur
  ) ;_ ende von vla-getBoundingBox
(command "_.zoom"
          "_w"
          (vlax-safearray->list ll)
          (vlax-safearray->list ur)
          ) ;_ ende von command
(princ)
)

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

So eine simple Plug&Play-Lösung zeichnet sich nicht ab?

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Noch mal so ein kleines Steinchen, als Hilfe zur Selbsthilfe.

Code:

---

(defun Dec2Hex (num / val hex)
(setq hex "")
(while (< 0 num)
  (setq val (rem num 16)
hex (strcat
    (if (< val 10)
      (chr (+ 48 val))
      (chr (+ 55 val))
    ) ;_ ende von if
    hex
    ) ;_ ende von strcat
num (/ num 16)
  ) ;_ ende von setq
) ;_ ende von while
hex
) ;_ ende von defun
;;;    -----------------------------------------------------------
(defun Hex2Dec (stg / cnt len dgt val lst)
(setq cnt 1
      len (strlen stg)
) ;_ ende von setq
(repeat len
  (setq dgt (strcase (substr stg cnt 1))
val (if (> (ascii dgt) 64)
    (- (ascii dgt) 55)
    (atoi dgt)
    ) ;_ ende von if
lst (cons (* val (expt 16 (- len cnt))) lst)
cnt (1+ cnt)
  ) ;_ ende von setq
) ;_ ende von repeat
(apply '+ lst)
) ;_ ende von defun
(defun 1+h (stg) (Dec2Hex (1+ (Hex2Dec stg))))
(defun 1-h (stg) (Dec2Hex (1- (Hex2Dec stg))))
(princ)

---

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Zitat:

---

Original erstellt von Peter2:
So eine simple Plug&Play-Lösung zeichnet sich nicht ab?

Peter

---

Wenn das Schriftfeld und die Linie entweder zusammen im Modellbereich oder in einem Papierlayout liegen, kannst du beides in eine Gruppe zusammenfassen.
Befehl "Gruppe" dann Gruppennamen eingeben und mittels "Neu" die Objekte zur Gruppe hinzufügen.

Damit man die Linie jetzt noch getrennt vom Schriftfeld bearbeiten kann, einfach Strg + Shift + A drücken (schaltet Gruppenauswahl An bzw. Aus).

Wenn die Gruppenauswahl ausgeschaltet ist, kriegt man ab Acad2006 trotzdem noch die Gruppenmitglieder angezeigt indem man einfach den Mauszeiger auf ein Gruppenmitglied verschiebt.
Bei früheren Acad-Versionen einfach wieder die Gruppenwahl einschalten.

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

---

Das ist natürlich ein Ansatz, der mit "Bordwerkzeugen" geht(natürlich: Lisp ist auch ein Bordmittel), aber mit Zusatzarbeit verbunden.

Zusammenfassung:
Der Zusammenhang zwischen Objekt und Schriftfeld mit Objekteigenschaften ist in Acad2006 als automatischer Grundbefehl nicht vorgesehen.

Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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

---

Code:

---

(defun C:field_object_infos (/ ent fldObj)
;; get the entity
(setq ent (entget (car (nentsel))))
(princ "\n")
;; get the parent field object
(if (/= (assoc '360 ent) nil)
  (progn
  (setq fldObj
        (entget
          (cdr
          (assoc
            '360
            (entget (cdr (assoc '360
                                (entget (cdr (assoc '360 ent)))
                                ) ;_ ende von assoc
                        ) ;_ ende von cdr
                    ) ;_ ende von entget
            ) ;_ ende von assoc
          ) ;_ ende von cdr
          ) ;_ ende von entget
        ) ;_ ende von setq
  ;; run GetFieldCode function to iterate through all field children
  ;; and retrieve the field code using recursion technique
  (setq fldtxt (GetFieldCode fldObj))
  (princ fldtxt)
  ) ;_ ende von progn
  ) ;_ ende von if
(princ)
) ;_ ende von defun
;; function to get the field code from a FIELD object and
;; from all the children it may have
(defun GetFieldCode (fldObj / tmp fldtxt fldCounter subFldTxt fldNo subFldObj fldList)
;; get the field pattern string
(setq fldtxt (cdr (assoc '2 fldObj)))
(setq fldCounter 0)
;; number of fields
(setq fldNo (cdr (assoc '90 fldObj)))
;; filter the list of field entities
(setq fldList (vl-remove-if
                'null
                (mapcar '(lambda (a)
                          (if (= (car a) 360)
                          a
                          ) ;_ ende von if
                          ) ;_ ende von lambda
                        fldObj
                        ) ;_ ende von mapcar
                ) ;_ ende von vl-remove-if
      ) ;_ ende von setq
;; loop to the number of fields
(while (< fldCounter fldNo)
  ;; part of the field string to be replaced
  (setq tmp (strcat "\\_FldIdx " (itoa fldCounter)))
  (setq subFldObj (entget (cdr (nth fldCounter fldList))))
  ;; get the actual field string for each sub field
  (setq subFldTxt (if (= 0 (cdr (assoc '90 subFldObj)))
                  (cdr (assoc '2 subFldObj))
                  (GetFieldCode subFldObj)
                  ) ;_ ende von if
        ) ;_ ende von setq
  ;; get the ObjectId if there is any refernce to an Object
  (if (/= (assoc '331 (entget (cdr (nth fldCounter fldList))))
          nil
          ) ;_ ende von /=
  (progn
    (setq FldOid
          (itoa
          (vla-get-ObjectID
            (vlax-ename->vla-object
            (cdr
              (assoc
              '331
              (entget (cdr (nth fldCounter fldList)))
              ) ;_ ende von assoc
              ) ;_ ende von cdr
            ) ;_ ende von vlax-ename->vla-object
            ) ;_ ende von vla-get-ObjectID
          ) ;_ ende von itoa
          ) ;_ ende von setq
    ;; insert the ObjectId in the code
    (princ (strcat "Objekt-Id ist:" FldOid "\n\n"))
    (setq subFldOid (strcat "ObjId " FldOid))
    (setq
    subFldTxt (vl-string-subst subFldOid "ObjIdx 0" subFldTxt)
    ) ;_ ende von setq
    ) ;_ ende von progn
  ) ;_ ende von if
  ;; replace subfield code in the text string
  (setq fldtxt (vl-string-subst subFldTxt tmp fldtxt))
  (setq fldCounter (1+ fldCounter))
  ) ;_ ende von while
(setq output fldtxt)
) ;_ ende von defun

---

@ Peter2: Dann machen wir uns doch in kleinen Schritten in Zusatzarbeit die Boardmittel von AutoCAD etwas mächtiger als sie es von Geburt an sind. Was noch fehlt ist der Zoom-Befehl mit Option 'Fenster' auf die BoundingBox des Handle's. 

P.S. es müsste als nächter Schritt noch eine Prüfung vor dem zoomen ob das Objekt überhaupt sowas wie BoundingBox zurückliefert und ob die Scihtbarkeit gegeben ist.

------------------
MfG Proxy

Bitte beachten Sie: Die Verwendung der hier bereitgestellten Signatur geschieht auf Ihre eigene Verantwortung. Diese Signatur wird ohne Gewähr auf Richtigkeit, Vollständigkeit und/oder Funktionalität, sowie ohne Anspruch auf Support zur Verfügung gestellt.

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

---

Zitat:

---

Original erstellt von Proxy:

.....
@ Peter2:

---

Leute, herzlichen Dank für die intensive Ausarbeitung des Problems, aber für mich ist das derzeit etwas zuviel des Guten. Wie oben erwähnt war ich beim Durchschauen der Unterlagen und beim simplen Experimentieren (jeden Knopf einmal drücken), akuter Bedarf besteht derzeit nicht.

Aber ich habe mir Thread und Code zur Seite gelegt - vielleicht brauche ich es später.

Schönen Nachmittag
Peter

------------------
Für jedes Problem gibt es eine einfache Lösung.
Die ist aber meistens falsch. ;-)

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