---

Kreis.zip

Hallo

Ich traue mich mal zwei verschiedene Themen in einem Thread anzusprechen. 

Bemaßung:
Ich habe nämlich vor einen Durchmesser zu bemaßen (siehe Dateianhang), und kriege es trotz dem Beispiel in der Hilfedatei nicht fertig, dass der Bemßaungstext innerhalb des Kreises steht. Ebenso war es mir nicht möglich herauszufinden wie ich das Wort "System-" vor den Durchmesser bekomme 

Layer:
Und dann wollte ich im Makro noch sichergehen, dass der Kreis auf Layer 1 gezeichnet wird. Habe auch hier verschiedene Hilfebeispiele ausprobiert und umgeschrieben (ActiveLayer etc.), hat aber leider nicht funktioniert.

Könnt ihr mir am Montagmorgen ein wenig auf die Sprünge helfen?

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

---

dim_1.jpg dim_2.jpg

Code:

---

(defun C: proxy_dimstyle_1 (/)
  (progn
    (setvar "cmdecho" 0)
    (hol_layer_alt)
    (command "-dimstyle" "h" "proxy_dimstyle_1")
    (command "graphbld")
    (command "_-LAYER" "_on" "LAYER-BEMASSUNG" "_set" "LAYER-BEMASSUNG" "")
    (setvar "cmdecho" 1)
    (command "_dimdiameter")
    (while (not (= 0 (getvar "CMDACTIVE"))) (command pause))
    (setz_layer_alt) ;;EXTERNE FUNKTION einfach "_player" MIT ANPASSUNGEN
    (princ)
  )
)

---

Textüberschreibung entfernen und dan bei Präfix den "System- " einfügen. Den Rest soweit über Bemassungsstille einrichten.

P.S. C:_PR....  Leerzeichen entfernen.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

äähhmm... vielleicht hätte ich dazuschreiben sollen, dass ich das in ein VBA Makro einbauen wollte/muss

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

---

dann hinzufügen (sendcommand ".... lisp - ausdruck .... ")

schau einfach in der Dokumentation nach.

------------------
"Lisp?!?! Why the Hell did you pick the most arcane, obscure, and hopelessly-rooted-in-the-computer-science-department language in the world for an AutoCAD programming language?"  Read the whole story: The Autodesk File ca. 890 Seiten | 7500 KB PDF

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

---

Ich will ungerne LISP und VBA kombinieren - trotzdem Danke.

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

---

hi VIP,
wieder nur halbfertiger Gedankenmüll aber es geht soweit:

...
dim objDimDiam as acadweisichnichmehr
dim objKreis as acadcircle
set objKreis=Thisdrawing.addcircle(blabla, bla)
objKreis.Layer="1" bjKreis.update
set objDimDiam=ThisDrawing.addweisichnichmehr(etc.etc.)
With objDimDiam
.Rotate etc. etc. 'z.B.
.Layer="5"
'...und jetzt mit den Bemassungsparametern weiterspielen...
.Update
End With
...

Das der Text drinnen steht hab ich jetzt auf die Schnelle nicht rausgefunden, dafür aber jede Menge andere Variationen ;-))

HTH
Harry

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