Captopo

2009-05-15T00:58:00.000-07:00

Commentaire

2008-06-22T01:46:00.000-07:00

N'oubliez pas de laisser votre commentaire

pourcetage de pente

2008-03-26T23:53:00.000-07:00

calcul le pourcentage de pente entre 2 points
a utiliser dans une coupe

(defun c:%()
(setq pt1 (getpoint "\nPremier point :"))
(setq pt2 (getpoint "\ndeuxieme point :" pt1))

(alert (strcat (rtos (*(/ (- (cadr pt2)(cadr pt1))(abs(- (car pt2)(car pt1))) )100)2 2) "%"))

)

Controler l'echelle d'une fenetre dans lespace papier

2008-03-23T04:35:00.000-07:00

commande fech

(defun c:fech()

(vl-load-com)
(alert (strcat "Echelle : 1/" (rtos (* (expt (vla-get-customscale(vlax-ename->vla-object(car(entsel))) ) -1) 1000)2 0)))
)

Recuperation des sommets d'une LWPOLYLIGN

2008-03-23T04:25:00.000-07:00

(mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car(entsel)))))

2008-03-23T04:08:00.000-07:00

Logiciel CAPTOPO pour autocad
version Captopo (2.00113)
gratuiciel pour géometre
à télécharger plus bas

Boite de dialogue configuration

Boite de dialogue report de fichiers

vous pouvez telecharger le logiciel Captopo ICI

routines autolisp pour autocad

2008-03-23T03:38:00.000-07:00

Fonction en lisp
calcule la distance du point 3 perpendiculaire a la droite 1 2
(point1 point2 point3 / x1 x2 x3 y1 y2 y3)

(defun distperp2d (point1 point2 point3 / distperp x1 x2 y1 y2 x3 y3)

(setq x1 (car point1)
y1 (cadr point1)
x2 (car point2)
y2 (cadr point2)
x3 (car point3)
y3 (cadr point3)
) ;_ Fin de setq
(setq distperp
(/
(abs (- (* (- x3 x1) (- y2 y1)) (* (- y3 y1) (- x2 x1))))
(sqrt
(+ (expt (- x2 x1) 2) (expt (- y2 y1) 2))
) ;_ Fin de sqrt
) ;_ Fin de /
) ;_ Fin de setq
distperp
) ;_ Fin de defun

Captopo

2008-03-23T03:29:00.000-07:00

Gratuiciel de topo pour autocad
logiciel topographie gratuit