Qbrick ne fonctionne plus?

[Fruity]

Qbrick n'est plus compatible 2010 ou ya que chez moi que ca ne marche plus?

[(gile)]

Salut,

 

Qbrick est un ARX et les ARX nécessitent d'être recompilés à chaque nouvelle version de dwg (2004, 2007, 2010).

Il faut donc attendre que Kamal fasse une version 2010...

[Fraid]

Bonjour,

 

si sa peux t'aider

 

(defun Lintersect (E1 E2 / RES LPOINT)

(setq E1 (vlax-ename->vla-object E1))

(setq E2 (vlax-ename->vla-object E2))

(setq RES (vlax-invoke E1 'IntersectWith E2 acExtendNone))

(setq LPOINT nil)

(While RES

(setq LPOINT (cons (list (car RES) (cadr RES) (caddr RES)) LPOINT))

(repeat 3

(setq RES (cdr RES))

)

)

LPOINT

)

 

(defun mbreak_main ()

(setq LPOINTTOT nil)

(setq I 0)

(while (< I (sslength ssb))

(setq e1 (ssname ssb I))

(setq J 0)

(while (< J (sslength ssc))

(setq e2 (ssname ssc J))

(if (setq LPOINT (lintersect E1 E2))

(setq LPOINTTOT (append LPOINTTOT LPOINT))

)

(setq J (+ J 1))

)

(setq I (+ I 1))

)

(While LPOINTTOT

(setq CURPOINT (car LPOINTTOT))

(setq LPOINTTOT (cdr LPOINTTOT))

(setq J 0)

(while (< J (sslength ssc))

(setq E2 (ssname ssc J))

(setq PROCHEPT (vlax-curve-getClosestPointTo (vlax-ename->vla-object E2) CURPOINT))

(if (< (distance CURPOINT PROCHEPT) 0.00001) ;; le point est sur l'objet

(progn

(setq CURPOINT (trans CURPOINT 0 1))

(command "_break" E2 "_non" CURPOINT "_non" CURPOINT)

(setq ssc (ssadd (entlast) ssc)) ;; je rajoute l'objet créé par _break au jeu de sélection

)

)

(setq J (+ J 1))

)

)

)

 

(defun c:qb ()

(command "_.undo" "_group")

(prompt "\nSélectionner les objets à couper : ")

(setq ssb (ssget))

(if ssb

(progn

 

(setq ssc ssb)

(if ssc

(mbreak_main)

)

)

)

(command "_.undo" "_end")

(princ)

)

 

 

 

[Fruity]

merci

c'est pas mal, ca fonctionne, mais le problème est que ca coupe tout.

En attendant mieux, c'est mieux que rien. ;)