Modifié le LISP \"overkill\" AUTODESK ???

[Invité chris_38]

Bonjour,

 

Je souhaite modifié le LISP overkill Autodesk afin qu'a l'appel de la commande "overkill" je n'ai plus la fenêtre habituelle qui s'ouvre, mais execute le programe tel que définit initialement ? que rajouté et ou pour cela ?

 

Merci pour aide précieuse .

 

le code en question dans express tool :

;;

;; Overkill.lsp - Overlaping object checker/fixer.

;;

;;

;; Copyright © 1999 by Autodesk, Inc.

;;

;; Your use of this software is governed by the terms and conditions

;; of the License Agreement you accepted prior to installation of this

;; software. Please note that pursuant to the License Agreement for this

;; software, "[c]opying of this computer program or its documentation

;; except as permitted by this License is copyright infringement under

;; the laws of your country. If you copy this computer program without

;; permission of Autodesk, you are violating the law."

;;

;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.

;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF

;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.

;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE

;; UNINTERRUPTED OR ERROR FREE.

;;

 

;|

 

Overlaping vector checker/fixer.

 

The idea is to find overlapping objects and:

1. remove the un-needed/hidden objects.

2. modify partially overlapping objects such that they no longer overlap.

 

Supported objects will include:

LINES, POLYLINES, LWPOLYLINES, ARCS, and CIRCLES.

 

All objects will be broken down into simple line and arc representations

nd placed in a master list.

 

The master list will contain sublists of the form:

((type gen-data) otherData ename)

 

Line data Example:

(0 (m b) (p1 p2) ename)

 

- Type is 0 for a line.

.................

 

[Edité le 27/7/2011 par chris_38]

[didier]

coucou

 

deux choses,

 

inutile de poster le code, tout le monde l'a chez soi

ça complique simplement la lecture des messages

(tu peux l'éditer s'il te plaît).

 

de quelle case de dialogue parles-tu ?

tu dis fenêtre mais je pense qu'il s'agit d'une case de dialogue

chez moi (2011) pas de case de dialogue avec cette commande des Express.

 

amicalement

[didier]

re-coucou

 

à moins qu'il s'agisse de la toute dernière version

(que je n'ai pas)

et dans laquelle ils auraient changé des paramètres

 

essaie toujours le classique tiret

devant la commande qui interdit les cases de dialogue

 

amicalement

[Invité chris_38]

re-coucou

 

à moins qu'il s'agisse de la toute dernière version

(que je n'ai pas)

et dans laquelle ils auraient changé des paramètres

 

essaie toujours le classique tiret

devant la commande qui interdit les cases de dialogue

 

amicalement

 

Merci pour le truc du tiret, je ne savais pas cela, pourtant j'ai parcouru toute l'aide Autocad Mechanical 2009 ... un lien pour connaître toutes les astuces de macro ?

Du reste cela me supprime la fenêtre de dialogue, mais me demande toujours un choix et une validation, or ce n'est pas ce que je souhaite , voici ma commande modifiée (sachant que je souhaite conserver les options par défauts, donc validation "Done"...) :

^C^C-overkill; ;

 

Mais je me retrouve avec cette demande :

http://img840.imageshack.us/img840/4791/unledzvb.png

 

Uploaded with ImageShack.us

Une idée ?[Edité le 27/7/2011 par chris_38][Edité le 27/7/2011 par chris_38][Edité le 27/7/2011 par chris_38]

 

[Edité le 27/7/2011 par chris_38]

[bonuscad]

A tes risques et périls...

 

Dans la fonction defun acet-overkill-ui-cmd , met en bloc de remarque ce qui suit avec ;| en début et |; en fin

 

Extrait:

;| (while ans
 (acet-overkill-print-modes)
 (initget "Ignore Fuzz Plines parTial Endtoend") ;; force non-negative entry 4+128
 (setq ans (getkword "\nEnter an option to change [ignore/Fuzz/Plines/parTial/Endtoend] : "))
 (cond
  ((= ans "Ignore")   (acet-overkill-ui-cmd-ignore))
  ((= ans "Fuzz")     (acet-overkill-ui-cmd-fuz))
  ((= ans "Plines")   (acet-overkill-ui-cmd-plines))
  ((= ans "parTial")  (acet-overkill-ui-cmd-partial))
  ((= ans "Endtoend") (acet-overkill-ui-cmd-endtoend))
 );cond close
)|;;while

[bryce]

Bonjour,

 

Et avec cette macro ?

 

^C^C_-overkill;_all;;;

 

Car chez moi (2012), la commande overkill demande un choix d'objets.