les fonctions cal

[capde06]

dans une fonction j'utilise la calculatrice d'autocad cal

ex: (setq pt12 (cal "plt (pt1,pt2,0.5)"))

ca marche tres bien

le problème est qu'il faut, taper CAL dans la fenêtre de commande avant de lancer mon prog

sinon ca ne marche pas

question :

comment charger ce module en lisp

l'ai essayé LOAD APPLOAD

ca ne marche pas

 

[Tramber]

(c:cal expression)  

 

Extrait de l'aide !

 

Sinon je pense qu'il aurait fallu invoquer cal avec un command mais cette indication devrait suffire.

[capde06]

merci tramber

mais ca ne marche pas.

 

dans le doute voila le code

 

(defun c:eau ()

(setvar "osmode" 0)

 

;;selection de la face3D

(setq ent (entget (car (entsel)))

pt1 (trans (cdr (assoc 10 ent)) 0 1)

pt2 (trans (cdr (assoc 11 ent)) 0 1)

pt3 (trans (cdr (assoc 12 ent)) 0 1)

)

(setq pt12 (c:cal "plt (pt1,pt2,0.5)"))

(setq pt23 (c:cal "plt (pt2,pt3,0.5)"))

(setq centre3d (c:cal "ill (pt1,pt23,pt12,pt3)"))

 

(command "point" centre3d)

)

le but est de creer un point au centre d'une face3D

 

 

[(gile)]

Salut,

 

(cal expression) devrait fonctionner mais il faut que l'arx GeomCal soit chargé,il est chargé automatiquement au premier appel de la commande CAL (AutoArxLoad) mais ne se charge pas s'il est appelé depuis une expression LISP.

On peut le charger s'il ne l'est pas déjà avec l'epression :

(if (not (member "geomcal.arx" (arx)))
   (arxload "geomcal")
 )

[(gile)]

Re,

 

Pour calculer le centre d'un triangle, il suffit d'ajouter les 3 points (comme des vecteurs) et de diviser le résultat par 3...

 

(setq centre3d (mapcar '(lambda (x1 x2 x3) (/ (+ x1 x2 x3) 3.)) pt1 pt2 pt3))

 

Et si tu utilises entmake plutôt que command, tu n'as pas besoin de traduire les points dans le SCU courant, tu n'auras aucun souci avec les accrobj et tu peux du même coup attribuer des propriétés à ton point :

(entmake (list '(0 . "POINT") (cons 10 centre3d)))

[capde06]

bravo

tout marche nickel

et merci pour la leçon sur les vecteurs

[Tramber]

Je pensais que le c:cal appelerait l'ARX. pour cela je n'en parlais pas. Mais avec (arxload "geomcal") ....

 (setq pt1(list 0 0)pt2(list 10 10))
(setq pt12 (c:cal "plt (pt1,pt2,0.5)"))

 

Fonctionne bien en transparence chez moi. La sortie est propre. Ton programme fonctionne aussi.