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