Hallo Holger,
danke für deine Antwort. Ich kenne mich mit lsp gar nicht aus. Aber ich habe nun mal folgende lsp von Cadmium benutzt. Die enthält genau das was du geschrieben hast und damit klappt es nach Neustart von Autocad und vorherigem Löschen des temp-Ordners.
Ich seh schon, irgendwann muss ich mich mal mit lsp beschäftigen, das ist so klasse was man damit alles machen kann. Nur für mich sind das im Moment nur Hieroglyphen!
Vielen Dank für deine Info!
Bigggi
(defun c:PLABWICKLUNG(/ PL DA VPL KO X0 Y0 L NKO)
(vl-load-com)
(if(and(setq PL(car(entsel "\nPolylinie :")))
(setq DA(entget PL))
(=(cdr(assoc 0 DA))"LWPOLYLINE")
(setq VPL(vlax-ename->vla-object PL))
(setq KO(vl-remove-if-not '(lambda(X)(=(car X)10))DA))
(setq KO (mapcar 'cdr KO))
)
(progn
(setq X0(car (car KO)))
(setq Y0(cadr(car KO)))
(setq L 0)
(repeat(length KO)
(setq NKO(cons (+ X0 L)NKO))
(setq NKO(cons Y0 NKO))
(if(cadr KO)(setq L(+ L(distance (car KO)(cadr KO)))))
(setq KO(cdr KO))
)
(setq NKO
(vlax-safearray-fill
(vlax-make-safearray vlax-vbdouble (cons 0 (1- (length NKO))))
(reverse NKO)
)
)
(vla-put-coordinates VPL NKO)
)
)
(princ)
)
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP