---

Hallo zusammen

Ich habe wieder ein mal ein Problem und hoffe, dass ihr mir helfen könnt. Ich habe Situationspunkte mit Punktnummer (Punkt + Text) im AutoCAD. Nun möchte ich die Aufnahmen von oben, sondern von der Seite anschauen (Schnitt). Nun werden die Punktnummern nur als "Linie" dargestellt, also kann die Punktnummer nicht lesen. Gibt es eine Möglichkeit, dass ich die Texte kippen/ drehen kann? Ziel, Punktnummern sollen in der Schnittansicht lesbar sein.

Hoffe jemand einen guten Tipp/ Hinweis / Tool
Gruss

------------------
porteiner

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

---

Situationspunkte?
Was für AutoCAD Objekte sind das, Blockreferenzen mit Attributen? Ist der "Punkt" AutoCAD Punkt?
Mehr Input mehr Output - vielicht mal einen Zeichnungsauschnitt gezippt hier hochladen.

Es ist normal, dass 2D Objekte (Punkte, Texte Kreis - das auch als Block) nur in der Draufsicht zu erkennen sind und in einer Seitenansicht nur als Strich (ist eben 2D).

Entweder muss man sich sog. MultiView Blöcke basteln, oder die Objekte um den Einfügepunkt und die X oder Y Achse drehen.
Einzeln ginge das mit Befehl: 3DDREHEN oder DREHEN3D

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

Udo Hübner
www.CAD-Huebner.de

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

---

per prog könnte es prinzipiell so gehen
(setq A(car(entsel "\n TEXT wählen:")))
(setq D(entget A))
(setq P(cdr(assoc 10 D)))
(entmod(setq D(subst(cons 210 '(0 1 0))(assoc 210 D)D)))
(entmod(subst(cons 10 (trans P 1 A))(assoc 10 D)D))

also andere Objektnormale setzten und Einfügepunkt korrigieren...

------------------
  - 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

---

Hallo

Danke für die Antworten
Es sind keine AutoCAD Objekte. Es ist ein normaler Text und ein normaler Punkt danaben (kein Block). Im Prinzip muss ich einen normalen Text um 90° um die x-Achse drehen. Der Drehpunkt ist der Basispunkt des Textes. Es sind viele Texte, deshalb möchte ich nicht alle von hand drehen! Leider bin ich im programmieren nicht so durch Kann ich diese Codezeilen in ein LISP kopieren?

Gruss

------------------
porteiner

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

---

p_xyz.zip

Ich stimme dem zu: das einfachste wäre auf alle 3d-Punkte einen Block in der Form zu setzen. Das kann ein Lisp-progn ausführen

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

---

Hallo

Wenn ich die Texte wie im Anhang von cadplayer darstellen kann, wäre mir schon geholfen. Gibt es da schon ein Lisp-progn?

Gruss

------------------
porteiner

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

---

Hi,

ähm, hast du schon versucht, mit CADmiums Codezeilen irgendetwas zu tun? 

Zitat:

---

Kann ich diese Codezeilen in ein LISP kopieren?

---

Du kannst die Zeilen in irgendeine leere Text-Datei kopieren, die Datei mit der Endung .lsp abspeichern und einfach per Drag and Drop in deine Zeichnung ziehen.
Soviel zum Testen von gepostetem Code.

Gruß
CADchup

------------------
CADmaro.de

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

---

Könnte vielleicht so funktionieren

(defun c:block2point ( /
    AWS
    OBJ
    DATA
    NR
    )
  (prompt "\nPunkte wählen: \n")
  (setq AWS (ssget '((0 . "POINT"))))
  (progn
    (setq I -1)
    (repeat (sslength AWS)
      (setq OBJ (ssname AWS(setq I (1+ I))))
      (setq NR (1+ I))
      (setq DATA (entget OBJ))
      (command "insert" "p_xyz" (cdr (assoc 10 DATA)) 1 1 0 NR NR NR)
      )
    )
  )

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