---

Hallo,

vorweg ich habe null Ahnung von Lisp.
Ich möchte am Ende einer Linie einen Kreis erstellen lassen und am besten, noch mit vorlaufender Nummmer im Kreis. Ich habe zwar schon ein Tool dafür, aber leider werden dort keine Kreise erstellt.

Kann mir dabei jemand helfen ?

Grüße
Sebastian

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

---

Hallo Sebastian,

deine Aufgabe ist sicherlich zu lösen, bedarf aber doch einigen Aufwand.
Wenn man dir kurzfristig helfen soll, dann solltest du den Code, den du wohl schon hast auch hier posten. Dann ist es einfacher zu sagen, an welcher Stelle im Code man was wie verändern muss.

Grüße Holger

------------------
Holger Brischke
CAD on demand GmbH                              Autodesk User Group Central Europe
Individuelle Lösungen von Heute auf Morgen.              AUGCE Manager Deutschland

Jackpot on demand - Wir eröffnen den Spätsommer mit einer Verlosung!

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

---

Hallo,
hier ist der Code:

;;; Funktion: Bezugslinien mit Positionsnummern schreiben

(defun C:POS_NUM (/ NUM P1 P2 DXX DX DYY DY)

(defun NEUERR (MSG) (R_VAR) (princ MSG) (princ))

(setq ALTERR  *ERROR*
      *ERROR* NEUERR
      C_E    (getvar "CMDECHO")      ; ECHO
      C_L    (getvar "CLAYER")        ; LAYER
      P_M    (getvar "PDMODE")        ; Punktmuster
      P_S    (getvar "PDSIZE")        ; Punktgroesse
)

(setvar "CMDECHO" 0)
(setvar "ATTDIA" 0)
(if (not (tblsearch "LAYER" "2"))
  (command "LAYER" "MACH" "2" "FA" "2" "" "") ; Layer und Farbe
)
(setq NUM NIL)

(defun R_VAR ()
  (setq *ERROR* ALTERR)
  (setvar "PDMODE" P_M)
  (setvar "PDSIZE" P_S)
  (command "LAYER" "SE" C_L "" "REGEN")
  (setvar "CMDECHO" C_E)
  (setq NUM NIL)
)
;;-------------------------------------
(setq NUM 1
      WEITER t
)
(while WEITER
  (prompt "\n. \n. \n")
  (princ "\n \nBauteilnummer oder 0 für Ende 0/<") ; anzeigen
  (princ NUM)                          ; Vorgabenummer
  (setq TEMP (getint ">: "))            ; abfragen
  (if (= TEMP 0)
  (setq WEITER NIL)
  (progn
    (if TEMP
    (setq NUM TEMP)
    )                                  ; wenn nicht return
    (setq P1
          (getpoint "\n. \n. \nReturn für Exit/Startpunkt der Linie anklicken: "
          )
    )
    (if P1
    (progn
      (initget 1)
      (setq P2 (getpoint "\n. \n. \nEndpunkt der Linie anklicken: "))
      (initget "J N")
      (setq PU
            (getkword "\n: \n. \n. \nPunkt am Anfang der Linie setzen? N/<J>: "
            )
      )
      (if (not (= PU "N"))
      ;; Layer, Punktsymbol und -Durchmesser setzen
      (command "LAYER" "SE" "0" "" "PDMODE" "33" "PDSIZE" "0.4" ".PUNKT" P1)
      )
      (command "LAYER" "SE" "2" "" "_LINE" P1 P2 "")
    ) ;_ end progn
    (progn
      (setq WEITER NIL
            P2 NIL
      )
    )
    ) ;_ end if p1

    (if P2
    (progn
      (setq DXX (- (car P2) (car P1))
            DX  (- (car P1) (car P2))
            DYY (- (cadr P2) (cadr P1))
            DY  (- (cadr P1) (cadr P2))
      )
      (if (and (> DYY DXX) (> DXX DY) (> DYY DX)) ; Linie von oben
      (setq P (list (car P2) (+ (cadr P2) 4)))
      )
      (if (and (> DY DYY) (> DY DX))    ; ... unten
      (setq P (list (car P2) (- (cadr P2) 9)))
      )
      (if (and (> DXX DX) (> DXX DYY) (> DYY DX)) ; ... links
      (setq P (list (+ (car P2) 6) (- (cadr P2) 2)))
      )
      (if (and (> DX DYY) (> DX DY) (or (> DYY DY) (> DY DYY))) ; rechts
      (setq P (list (- (car P2) 6) (- (cadr P2) 2)))
      )
      (command "LAYER" "SE" "0" "" "TEXT" P "5" "0" (itoa NUM))
    ) ;_end progn
    ) ;_end if
    (setq NUM (1+ NUM))
  )
  )
) ;_ end while weiter
(R_VAR)
(princ)
)                                      ; end defun c:...
(princ)

Grüße
Sebastian

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

---

Hallo,

habe mal damit beschäftigt, aber blicke nicht so ganz durch.
Ich wollte an dem "Mittel"-Punkt wo der Text eingefügt wird ein Kreis mit dem Durchmesser 18 eingefügt wird und die Linie auf den Kreis gestutzt.

Desweiteren wo ich garnicht durchsteige ist, wie ich das Ganze auf den aktuellen Layer einfüge und nicht auf diesen der erstellt wird.

Grüße
Sebastian

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

---

ohne das Ganze zu testen:

ersetze die Zeile
(command "LAYER" "SE" "0" "" "TEXT" P "5" "0" (itoa NUM))
durch
(command "_CIRCLE" P "18" "TEXT" P "5" "0" (itoa NUM))

------------------
Gruß, Ernst

suche Job
Meine Homepage

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

---

Hallo Geos,

vielen Dank. Ich habe den Wert 18 auf 9 geändert und nun stimmtŽs. Kann ich in dieser Befehlszeile auch angeben, dass der Text auf Mitte ausgerichtet wird ?

Grüße
Sebastian

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

---

(command "_CIRCLE" P "18" "TEXT" "P" "MI" P "5" "0" (itoa NUM))

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

vielen Dank. Klappt super.
Ich habe leider nichts zum aktuellen Layer gefunden. Auch nicht mit dem Stutzen der Linie auf den Kreis. Ist bestimmt nicht schwer bloß ist der Code für mich nicht ganz verständlich.
Ich habe einwenig Erfahrung auf VBA, html & RhinoScript und auch diese hält sich in Grenzen.

Grüße
Sebastian

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