Aller au contenu

kekseksa

Membres
  • Compteur de contenus

    42
  • Inscription

  • Dernière visite

Tout ce qui a été posté par kekseksa

  1. kekseksa

    dico en plusieurs langues

    et zut y-aurait-il une quelconque solution de rechange car je ne suis vraiment pas doué pour les langues
  2. bonjour l'aide d'autocad est bien faite pour apprendre à programmer, c'est pareil si on connait l'anglais donc, est-il possible d'avoir l'aide du développeur en français?
  3. kekseksa

    Fenetre fantome

    bonjour que veux tu faire? et ou? (espace objet, papier ou les deux) à ce que j'ai compris, tu rajoutes dans ta selection (410 . "model") et tu auras les objets du calque 0 et dans l'espace objet
  4. kekseksa

    Arguments et Variables

    salut gile, puisque tu as tout clairement expliqué sur defun pourrais tu compléter avec les defun-q , defun-q-list-set et autres parce que là, moi je fais defun-reset enfin, si t'as le temps ou envie
  5. kekseksa

    bibliotheque de visserie

    bonjour j'ai fais en lisp toute une bibli de vis , écrou et rondelle sur autocad 2002 je l'ai améliorée afin qu'elle fonctionne toujours sur autocad 2008 biagio , donne moi ton adresse mail je t'expliquerais comme installer cette usine à gaz , qui pourtant fonctionne pas trop mal
  6. kekseksa

    PROBLEME POUR AJUSTER

    bonjour si tes polylignes ne se coupent pas, peut être que dans l'option "Coté" , tu n'es pas sur "PRolongement"
  7. bonjour voici un bout de code que j'ai placé dans acaddoc.lsp (defun vlx-Open-Excel9-Exist (xfile dmode / appsession) (cond ((setq appsession (vlax-Create-Object "Excel.Application")) (vlax-invoke-Method (vlax-Get-Property appsession 'WorkBooks) 'Open ;xfile (findfile xfile) ) ;_ end of vlax-invoke-Method (if (= (strcase dmode) "SHOW") (vla-Put-Visible appsession 1) (vla-Put-Visible appsession 0) ) ;_ end of if ) ) ;_ end of cond appsession ) (defun vlx-Excel-Quit (appsession) (vlax-Invoke-Method appsession 'QUIT) (if (vlax-Property-Available-p appsession 'Visible) (princ "\n<<< Excel est encore actif !!! >>>") ;(princ "\n<<< Excel vient d'être fermé >>>.") ) ;_ end of if ) (defun vlx-Excel-Put-CellValue2 (row col valeur) (xlp-Put-Value2 (vlx-Excel-Get-Cell (xlp-Get-ActiveSheet excelapp) row col ) ;_ end of vlxx-Excel-Get-Cell (vlax-Make-Variant valeur) ) ;_ end of msxl-Get-Value ) (defun vlx-Excel-Get-Cell (rng relrow relcol) (vlax-Variant-Value (xlp-Get-Item (xlp-Get-Cells rng) ; rng est un VLA-object représentant la feuille active du classeur actif (vlax-Make-Variant relrow) ; relrow est un nombre représentant le numéro de ligne (vlax-Make-Variant relcol) ; relcol est un nombre représentant le numéro de colonne ) ;_ end of excelp-Get-Item ) ;_ end of vlax-Variant-Value ) (defun test (/ valeur nomdufichier excelapp excelsheet fichierexcel excel_version) (setq fichierexcel "C:/test.xls" excelapp (vlx-Open-Excel9-Exist fichierexcel "hide") excelsheet (vlax-get excelapp "Sheets") ) (vlx-Excel-Put-CellValue2 1 1 "ok") (vla-save (vlax-get excelapp "ActiveWorkbook")) (vlx-Excel-Quit excelapp) ) (test) mon problème : comment faire pour vérifier que "test.xls" ne soit pas en lecture seule car si j'ouvre 2 sessions autocad , alors l'une d'elles ouvrira "test.xls" en lecture seule de plus , le (vla-save (vlax-get excelapp "ActiveWorkbook")) ne me plait pas , car il enregistre le classeur actif sans faire référence à son nom et répertoire quelqu'un a t-il une idée
  8. bonjour j'ai trouvé un truc pour la date (setq jour (menucmd "M=$(edtime,$(getvar,DATE),DD)") mois (menucmd "M=$(edtime,$(getvar,DATE),MO)") annee (menucmd "M=$(edtime,$(getvar,DATE),YY)") Date (strcat jour "/" mois "/" annee))
  9. gile , t'es une bèèèèèète , comment tu touches , c'est impressionnant encore merci cependant MyReactor2 et MyReactor1 = toujours plantage
  10. merci gile et bseb67 avec l'apostrophe , ça marche impec j'ai poussé un peu plus loin et replantage (vl-load-com) (defun fin-ouverture-fichier-dwg (a b) (alert "le reacteur ouvre un fichier déja enregistré") ) (defun fin-ouverture-nouveau-dwg (a b) (alert "le reacteur ouvre un brouillon") ) (defun fin-fermeture-dwg (a b) (alert "le reacteur de fermeture fonctionne") ) (setq MyReactor1 (vlr-dwg-reactor nil '((:vlr-enddwgopen . fin-ouverture-fichier-dwg)))) (setq MyReactor2 (vlr-dwg-reactor nil '((:vlr-dwgFileOpened . fin-ouverture-nouveau-dwg)))) (setq MyReactor3 (vlr-dwg-reactor nil '((:vlr-beginClose . fin-fermeture-dwg)))) seul MyReactor3 fonctionne de plus , je ne suis pas sur que :vlr-enddwgopen ouvre un fichier nommé et que :vlr-dwgFileOpened ouvre un brouillon bref : MyReactor2 et MyReactor1 fonctionnent pas but why ????
  11. bonjour j'ai crée un fichier acaddoc.lsp dans lequel se trouve ce code : (vl-load-com) (defun preuve_que_ca_marche (a b) (alert "le reacteur fonctionne") ) (setq MyReactor1 (vlr-dwg-reactor nil ‘((:vlr-enddwgopen . preuve_que_ca_marche)))) mais quand j'ouvre un dessin , ce message d'erreur apparait : Utilitaires de menu AutoCAD chargés.; erreur: syntaxe incorrecte de l'appel de fonction: (:VLR-endDwgOpen . PREUVE_QUE_CA_MARCHE) quelqu'un peut il me dire d'ou vient cette erreur a+ PS : je ne sais pas non plus ou se trouve ce brouillon avec les lignes vertes et blanches ou les lispeurs posent leurs codes . j'apprendrais 2 choses par ce sujet.
  12. salut oui , je connais la méthode crayon - bloc elle est de plus en plus contraignante , parce que de + en + d'affaires à étudier. bref : je reformule : pour ce qui est des écritures dans excel , je pense savoir comment faire par contre , comment insérer cette routine ? if faudrait un script , un s::startup () (quelque part mais ou ?) ou alors un réacteur ou une autre solution c'est possible ou pas ? a+
  13. OK ,commande temps fonctionne elle revèle effectivement les évènements liés au temps passé mais quelle est la procédure qui déclenche automatiquement l'écriture dans excel quand un nouveau document s'ouvre (et se ferme)
  14. time ? dans ligne de commande , ça marche pas tu peux expliquer, je comprends pas
  15. bonjour, mon boss me demande de noter le temps passé sur chaque plan ou étude que je fais. mon soucis est qu'il m'arrive d'étudier plusieurs affaires dans la même journée. je me dis qu'une routine en lisp m'arrangerais bien elle suivrai cette liste d'instructions : - quand un fichier autocad s'ouvre , la routine se lance et écris dans une feuille excel le nom de l'affaire et la date de l'ouverture du fichier autocad au format année-jour-mois-heure-minute - quand le fichier autocad se ferme et qu'il soit enregistré ou pas , la routine se relance pour écrire le nom de l'affaire ainsi que sa date de fermeture pour ce qui est des écritures dans excel , je pense savoir comment faire par contre , comment insérer cette routine ? if faudrait un script , un s::startup () (quelque part mais ou ?) ou alors un réacteur ou une autre solution quelqu'un peut-il m'aider? [Edité le 30/1/2009 par oto82]
  16. kekseksa

    script automatique

    impec. merci je reviendrai souvent après les vacances de noel
  17. salut j'ai besoin d'un script qui se mettrai en route tout seul chaque dernier jour du mois , et qui donnerai sur une feuille excel (par exemple) , la liste et le temps passé de chaque affaire étudiée. bon , pour le temps passé et les affaires étudiées , je devrai m'en sortir (encore que ...) , mais quelqu'un peut - il me dire et d'une si c'est possible , et de deux comment on fait un script démarrant tout seul à une date donnée. help , please , help , ça fait des jours que je cherche et toujours rien !!!!
×
×
  • Créer...

Information importante

Nous avons placé des cookies sur votre appareil pour aider à améliorer ce site. Vous pouvez choisir d’ajuster vos paramètres de cookie, sinon nous supposerons que vous êtes d’accord pour continuer. Politique de confidentialité