---

habe 2005 in diesem Forum netter weise eine lsp bekommen mit der man auf einer Polylinie Punkte gesetzt bekommt. Habe versucht dies auf einen Kreis zu ändern , geht nicht!
Ich bitte um Hilfe, dachte es wäre ganz einfach, aber leider bekomme ich es nicht hin und mit dem Fehlerhinweis kann ich nichts anfangen. (Fehler: Fehlerhafte DXF-Gruppe)
(if (setq auswahl (ssget '((-4 . "<or") (0 . "POLYLINE") (0 . "LWPOLYLINE") (-4 . "or>"))))
    (progn
      (setq n 0)
      (repeat (sslength auswahl)
        (setq vobj (vlax-ename->vla-object (ssname auswahl n)))
        (setq x 0)
        (repeat (fix (+ (vlax-curve-getEndParam vobj) 1))
        (entmake (list '(0 . "POINT") (cons 10 (vlax-curve-getPointAtParam vobj x))));  Punktmarkierung auf Lin
;; Fehler          (entmake (list '(0 . "CIRCLE") '(62 . 1) x (cons 40 bh)))

;;  Fehler        (entmake (list '(0 . "CIRCLE") '(62 . 1) x '(40 . 10.0)))
          (setq x (1+ x))
        )
        (setq n (1+ n))
      )
    )
  )
  (princ)
)

------------------
Gruß vom Bauvermesser;

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

---

"nur" X ?
X ist doch nur eine Zahl 0,1,2,3.. und 1 ist weder eine Liste noch irgendeine Koordinate.

Für die Punkt-Variante steht dort (cons 10 (vlax-curve-getPointAtParam vobj x)))
und genau so musst du es auch für den Kreis übernehmen.

Code:

---

(progn
(if (setq auswahl (ssget '((-4 . "<or") (0 . "POLYLINE") (0 . "LWPOLYLINE") (-4 . "or>"))))
    (progn
      (setq n 0)
      (repeat (sslength auswahl)
        (setq vobj (vlax-ename->vla-object (ssname auswahl n)))
        (setq x 0)
        (repeat (fix (+ (vlax-curve-getEndParam vobj) 1))
        (entmake (list '(0 . "POINT") (cons 10 (vlax-curve-getPointAtParam vobj x))));  Punktmarkierung auf Lin
;; Fehler          (entmake (list '(0 . "CIRCLE") '(62 . 1) x (cons 40 bh)))
;; Fehler          (entmake (list '(0 . "CIRCLE") '(62 . 1) x '(40 . 10.0)))
          (entmake (list '(0 . "CIRCLE") '(62 . 1) (cons 10 (vlax-curve-getPointAtParam vobj x)) '(40 . 10.0)))
          (setq x (1+ x))
        )
        (setq n (1+ n))
      )
    )
  )
  (princ)
)

---

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

---

Wenn du ansonsten keine Punkte im Einsatz hast und es nur um die optische Darstellung geht,
dann kannst du aber auch einfach PDMODE auf 32 oder 33 stellen und bei den Punkten bleiben.

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

---

Danke für die Hilfe

------------------
Gruß vom Bauvermesser;

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