Blöcke auf einer Linie oder Polylinie verschieben

[wallace23]

Guten Morgen.

Ich brauche eine Lippe, die mich dazu veranlasst, Referenzen senkrecht auf einer Linie / Politik zu blockieren. .
Ich versuchte, die folgende Lispe zu ändern, aber ich bekomme keine Ergebnisse:

-----------------------------------------------------------------------------------------------------------------------------------------------------------------
;; bewegen Sie die ausgewählten Punkte auf den nächsten Punkt auf einer Linie;
;; 18/01/2013 - gian paolo cattaneo

(defun c:spsl (/Punkte lin n Punkt pp pl)
(Prompt "\nselect points")
(setq Punkte)
(Prompt "\nselect the interpolating line")
(setq lin) 0)
(falls (und Punkte lin)
(Progn)
(Repeat (Setq n (Längenpunkte)
(Satzpunkt (Snamepunkte (Satzq n (1-n)))))
(setq pp (cdr (assoc 10))
(setq pl (vlax-curve-getclosestpointto lin pp)
(entmod (subst (cons 10 pl) (assoc 10 (entget point))))
)
)
)
)
---------------------------------------------------------------------------------------------------------------------------------------------------

Wie können wir diese Situation lösen?

 

[GP.]

die Blöcke "überquert" werden die Linie an den Enden derselben platziert.

(Defun c:sbsl (/blks lin n blk pp pl)
(Prompt "\nselezionare i blocchi")
(setq blks (ssget '((0. "Insert"))))
(Prompt "\nselezionare la linea interpolante")
(setq lin (ssname (ssget "_+.:s:e" '((0 . "line")))) 0)
(falls (und blks lin)
(Repeat (setq n (sslength blks))
(setq blk (ssname blks (setq n (1- n))))
(setq pp (cdr (assoc 10)))
(setq pl (vlax-curve-getclosestpointto lin pp)
(entmod)
(Substrate)
(Verbrauch 10)
(entget blk)
)
)
)
)
)

 

[wallace23]

grazi mille!!!
grazie grazie grazie

 

[GP.]

Bitte.