spline

[Patrick05]

bonjour.

il y a t'il une méthode pour utiliser la commande PROLONGER avec une spline ?.

merci.

Patrick

[Tramber]

Non.

De rien.

Bertrand

[lili2006]

Bonjour à toutes et tous,

 

Impossible, comment AutoCAD calculerai alors ta tangente ???

 

Le grip, je ne vois que ça,...

[rebcao]

Bonsoir,

 

Eventuellement en transformant la SPLINE en polyligne et ensuite la retravailler ! Mais il s'agit d'arcs c'est pas forcément mieux !

 

Christian

[Patrick05]

Bonjour.

merci de vos réponses.

et pour coter la longueur, pareil, pas de solutions ?.

merci.

Patrick

[(gile)]

Salut,

 

Une ligne de repère ?

 

(defun c:splcot	(/ ent spl p1 p2 space txt minpt maxpt height width)
 (if
   (and (setq ent (entsel "\nSélectionnez une spline: "))
 (setq spl (vlax-ename->vla-object (car ent)))
 (= (vla-get-ObjectName spl) "AcDbSpline")
 (setq p1 (osnap (cadr ent) "_nea"))
 (setq p2 (getpoint p1 "\nPoint d'insertion: "))
   )
    (progn
      (setq p1	   (trans p1 1 0)
     p2	   (trans p2 1 0)
     space (vla-get-Block
	     (vla-get-ActiveLayout
	       (vla-get-ActiveDocument (vlax-get-acad-object))
	     )
	   )
     txt   (vla-addMText
	     space
	     (vlax-3d-point p2)
	     0.0
	     (rtos (vlax-curve-getDistAtParam
		     spl
		     (vlax-curve-getEndParam spl)
		   )
		   (getvar 'dimlunit)
		   (getvar 'dimdec)
	     )
	   )
      )
      (vla-put-Height txt (* (getvar 'dimtxt) (getvar 'dimscale)))
      (vla-GetBoundingBox txt 'minpt 'maxpt)
      (setq minpt  (vlax-safearray->list minpt)
     maxpt  (vlax-safearray->list maxpt)
     height (/ (- (cadr maxpt) (cadr minpt)) 2.0)
     width  (- (car maxpt) (car minpt))
      )
      (if (	 (progn
   (vla-put-InsertionPoint
     txt
     (vlax-3d-point
       (list (car p2) (+ height (cadr p2)) (caddr p2))
     )
   )
   (vla-put-AttachmentPoint txt acAttachmentPointMiddleLeft)
 )
 (progn
   (vla-put-InsertionPoint
     txt
     (vlax-3d-point
       (list (- (car p2) width) (+ height (cadr p2)) (caddr p2))
     )
   )
   (vla-put-AttachmentPoint txt acAttachmentPointMiddleRight)
 )
      )
      (vla-put-ScaleFactor
 (vla-addLeader
   space
   (vlax-safearray-fill
     (vlax-make-Safearray
       vlax-VbDouble
       '(0 . 5)
     )
     (apply 'append (list p1 p2))
   )
   txt
   acLineWithArrow
 )
 (getvar 'dimscale)
      )
    )
 )
 (princ)
)