Carboleum

C'est une option de protection des serveurs Apache: personne n'a accès aux contenus des répertoires via http. Il faut l'adresse d'un fichier, non d'un répertoire.

Allez, je m'y colle... (command "_chprop" (ssget "x" '((0 . "HATCH"))) "" "_layer" "monLayerHachures" "")

Je suis très intéressé par ton code. J'ai essayé de m'inscrire sur acadlabs.com, je suis tombé sur un joli [phpBB Debug] PHP Notice: in file /includes/captcha/captcha_factory.php on line 36: include(./includes/captcha/plugins/_plugin.php): failed to open stream: No such file or directory [phpBB Debug] PHP Notice: in file /includes/captcha/captcha_factory.php on line 36: include(): Failed opening './includes/captcha/plugins/_plugin.php' for inclusion (include_path='.:/usr/share/php:/usr/share/pear') [phpBB Debug] PHP Notice: in file /includes/captcha/captcha_factory.php on line 38: call_user_func() expects parameter 1 to be a valid callback, class '' not found après avoir cliqué sur "j'accepte les conditions" Quid ??? ;-)

lengthen [Edité le 10/10/2010 par Carboleum]

Sinon, pount info tu peux utiliser getreal (setq a (getreal "Quelle est la valeur de a ?"))

Tu as juste une belle soeur ou des actions chez eux... ;-) En effet, ca ne semble pas cher!

quel format ?

Il semble manquer des guillemets. Mets ton text.txt en attachment, sans lui, on peut difficilement voir où est l'erreur. [Edité le 23/9/2010 par Carboleum]

encore plus simple: (vl-princ-to-string (entget (car (entsel)))) et pour garder les guillemets: (vl-prin1-to-string (entget (car (entsel))))

sinon, vl-princ-to-string est ton amie...

un truc comme: (defun c:z0 () (command "_move" (ssget) "" "_non" "*0,0,0" "_non" "*0,0,1e99") (command "_move" "_previous" "" "_non" "*0,0,0" "_non" "*0,0,-1e99")) (pas testé)

hello! entsel à la place de nentsel

Tiens non, je connais pas! Mais cette fonction impose un traitement en aval: (cdr (reverse (mapcar 'cadr (ssnamex (ssget))))) Mouais, je suis pas convaincu. J'ai tendance à éviter le vla, c'est beaucoup moins immédiat que l'autolisp, au niveau développement de routine, j'entends. Parfois il est inévitable (cas des boundingbox notamment ;-) En tous cas merci pour ces précisions. à bientôt, Bruno @+

Mais toi, tu es en 3d ;-)

Voici, rien que pour toi, le code complet: (defun sslist (ss / n lst) (if (= 'pickset (type ss)) (repeat (setq n (sslength ss)) (setq lst (cons (ssname ss (setq n (1- n))) lst))))) (defun text-boundingbox (entity) (vla-getboundingbox (vlax-ename->vla-object entity) 'a 'b) (list (vlax-safearray->list a) (vlax-safearray->list b))) (defun multitext-boundingbox (selection / lst) (setq lst (apply 'append (mapcar 'text-boundingbox (sslist selection)))) (list (list (apply 'min (mapcar 'car lst)) (apply 'min (mapcar 'cadr lst))) (list (apply 'max (mapcar 'car lst)) (apply 'max (mapcar 'cadr lst))))) (defun c:rectangle-autour-de-textes () (setq myFilter(list (cons 0 "TEXT")(cons 8 "!!Nomenclature"))) (setq TT3(ssget "X" myFilter)) ;selection set (setq lst (multitext-boundingbox TT3)) ;; <-- ici lst = la liste des deux points (command "_rectang" "_non" (car lst) "_non" (cadr lst))) voilà... à toi de l'intégrer dans tes lisps. [Edité le 15/9/2010 par Carboleum]

intéressant, merci :-)

yo, Voici une petite méthode qui pourrait t'aider: Pour chaque ligne (c'est à dire chaque objet texte), on va calculer les boundingbox. On va mettre tous ces points dans une liste: (setq lst (apply 'append (ssmap '(lambda (x / a b) (vla-getboundingbox (vlax-ename->vla-object x) 'a 'b) (list (vlax-safearray->list a) (vlax-safearray->list b))) (ssget)))) L'idée est d'en extraire les X minimum, les Y minimum, les X maximum et Y maximum: (setq xmin (apply 'min (mapcar 'car lst))) (setq xmax (apply 'max ( ... Tu as ton rectangle. Bon code, PS: Ici les fonctions les plus indispensables sous AutoCAD: (defun sslist (ss / n lst) (if (= 'pickset (type ss)) (repeat (setq n (sslength ss)) (setq lst (cons (ssname ss (setq n (1- n))) lst))))) (defun ssmap (fct ss) (mapcar fct (sslist ss)))

yep, Ca se lit comme ceci: (les index 3.86, 4.78 et 5.72) quelque part dans la fonction (lire_excel), tu as une fonction nth qui reçoit une chaine de caractère ("6") en paramètre alors qu'elle s'attend à avoir un nombre entier. utilise la fonction atoi pour convertir une chaine en nombre entier. Il faut pas avoir peur du gros pavé, avec un peu d'habitude, ca se lit vite ;-) Généralement, l'erreur se trouve dans les 5 premières lignes. à +

Hello, Essayes ceci: (setvar "ltscale" (* 2 (getvar "ltscale")))

Salut, Pour déboguer mes programmes, j'utilise pas le "pas à pas", je redéfini la fonction *error* (qui est appelée dès qu'une erreur est rencontrée) pour qu'elle me renvoie plus d'info. (defun *error* (msg) (vl-bt)) relance la routine qui ne fonctionne pas, tu aura peut-être des info plus pertinente notamment ce qui est attendu. bonne chance ;-)

Une polyligne en pointillé avec une épaisseur.

D'accord avec (Gile), mais ca ne te génère pas un nom. C'est un choix. Si tu décides de tout de même utiliser un nom aléatoire, tu peux te baser sur la variable DATE: (rtos (getvar "date") 2 6) Cette expression génère une nouvelle chaine de tous les 10è de seconde.

En effet..... Dis nous ce que tu cherches à faire exactement.

(Heuu,,, :casstet: Ou alors j'ai pas compris) Il y a une barre d'outils qui fait ça...

Il parle de la barre des tâches de Windows.