Topic: Aline Block to polyline..

[Andrea]

Hi all..

Before making a new program..
I would like to see if is exist..

the program must aline all selected block to a polyline in one selection..
(see sceenshot)

If any of you know any program doing something similar..i'll be glad to see it.

thanks every  one and have a good day. 

[Guest]

Two things that come to mind are:

1) The measure command and
2) Use the ALIGN parameter of Dynamic Blocks.

[T.Willey]

Two things that come to mind are:

1) The measure command and
2) Use the ALIGN parameter of Dynamic Blocks.

I was thinking measure first, but then I looked at the picture, and I don't think measure would work, as it only allows one distance between blocks, and in the pic they are not evenly spaced.

[Guest]

I was thinking measure first, but then I looked at the picture, and I don't think measure would work, as it only allows one distance between blocks, and in the pic they are not evenly spaced.

I guess that brings up the question: 'Do they NEED to be spaced evenly or can they be more sporadic?'

[T.Willey]

I was thinking measure first, but then I looked at the picture, and I don't think measure would work, as it only allows one distance between blocks, and in the pic they are not evenly spaced.

I guess that brings up the question: 'Do they NEED to be spaced evenly or can they be more sporadic?'

I looks like it is one per segment of the polyline.  Just a guess though.  And I haven't dug into dynamic blocks yet, so if you know that the align property would work, then I would think one would just need to write the routine to insert them per segment, and then use the align property.  Doesn't make it sound to hard.

[LE]

Here is a start:

Code: [Select]

(setq ename (car (entsel "\nSelect block: ")))
(setq curve (car (entsel "\nSelect polyline: ")))
(setq pt (getpoint "\nPoint insertion: "))
(setq param (vlax-curve-getparamatpoint curve pt))
(setq a (vlax-curve-getpointatparam curve (fix param)))
(setq b (vlax-curve-getpointatparam curve (1+ (fix param))))
(vla-put-rotation (vlax-ename->vla-object ename) (angle a b))

HTH

[Andrea]

Thanks LE..

I use your code..

Code: [Select]

(defun c:Qalin ()
 
 (setq bname (ssget '((0 . "INSERT"))))
  (if (not bname)
    (progn
      (alert " Aucune entité n'a été sélectionné.")
      (exit)
    )
    (bnamecheck)
  )
)

(defun bnamecheck (/ curve sscount val1 ename pt param a b )
(setq curve (car (entsel "\nSélectionnez votre Polyligne: ")))
  (if curve
    (progn 
(setq sscount (sslength bname))
(setq val1 (- sscount 1))
(repeat sscount
(setq ename (entget (ssname bname val1)))
(setq pt (cdr (assoc 10 ename)))
(setq param (vlax-curve-getparamatpoint curve pt))
(setq a (vlax-curve-getpointatparam curve (fix param)))
(setq b (vlax-curve-getpointatparam curve (1+ (fix param))))
(vla-put-rotation (vlax-ename->vla-object (cdr (assoc -1 ename))) (angle a b))
(setq val1 (- val1 1))
))
(alert "Aucune Polyligne n'a été sélectionnée.")
))

Thanks guys.....i appreciate.
in fact can't use measure.....(not equal space between blocks..)

 

[LE]

You are welcome.

[gile]

Perhaps I'm too late, but you can also use vlax-curve-getFirstDeriv, it will work on polyarcs splines and so on ...

Code: [Select]

(setq ename (car (entsel "\nSelect block: ")))
(setq curve (car (entsel "\nSelect polyline: ")))
(setq pt (getpoint "\nPoint insertion: "))
(setq param (vlax-curve-getparamatpoint curve pt))
(setq deriv (vlax-curve-getFirstDeriv curve param))
(vla-put-rotation (vlax-ename->vla-object ename) (angle pt (mapcar '+ pt deriv)))

[Jochen]

Seems to be similar to the TRAKTRIX-problem.
Regards
Jochen

www.black-cad.de