-
Compteur de contenus
3 609 -
Inscription
-
Dernière visite
-
Jours gagnés
30
Type de contenu
Profils
Forums
Calendrier
Blogs
Tout ce qui a été posté par x_all
-
ha lala... décidément je bute sur le but... j'ai a peu près fini mes pérégrination, mais je cale sur la création de poly3d car je be connais pas à l'avance le nombre de point de ma poly3d. je me retrouve avec une liste de points que je voudrais faire passer un par un pour créer une poly3d par exemple (setq lst-pt '((20.5472 4.74701 100.0) (20.3618 5.28143 93.6699) (20.1043 5.79738 87.2167) (19.7186 6.23934 80.6523) (19.2295 6.57499 74.0139) ) ) je ne voie pas comment égrainer cette liste avec un (mapcar? mais je met quelle fonction dans le mapcar? car pour créer ma poly, il va me falloir un truc du type (command "_3dpoly" pt1 pt2 pt3 pt4 ...) une idée? j'ai essayè: (vl-cmdf "POLY3D" (while (setq pt (car lst-pt)) (setq lst-pt (cdr lst-pt)))) mais ça ne marche pas et je comprends pas bien pourquoi...
-
!o! effectivement, ça revient au même, j'avais utiliser ça pour un autre programme et ça me prenait 20 lignes de code la ou 3 suffisent chez toi ... il est long le chemin... pour en revenir au cas qui me préoccupe, je veux sélectionner les points topo qui sont à chaque extrémité d'une polyligne, donc pour cette partie c'est ok. Maintenant je bute sur la création d'une polyligne 3d créée à partir des points de la poly2d et suivant une pente régulière en fonction des 2 extrémités... j'ai trouvé des exemples de codes en VBA, mais je voudrai le faire en autolisp car je maitrise pas assez le vb... Pas évident de créer la liste pour le (entmake d'une poly3d... à moins de passer encore par (command avec une liste de points 3d..... je cherche mais merci pour cet éclairage, je corrigerai peut être mon tir sur l'autre routine si je passe pas à autre chose après celle la...
-
Matériel AutoCAD réellement suffisant?
x_all a répondu à un(e) sujet de Guillaume05 dans Ordinateurs
les "améliorations" ne sont pas une fatalité, non? http://cadxp.com/top...post__p__232683 il faudrai faire un post avec toutes les variables à régler pour améliorer les performances .. il y a des post ça et là, mais je ne les ai pas toutes sous la main... http://cadxp.com/topic/36603-amelioration-des-performances-dautocad/page__view__findpost__p__205198 -
merci beaucoup... encore une fois ;)
-
Bonjour j'ai les coordonnées d'un point (PT1). Je voudrais sélectionner le bloc qui est inséré sur ces coordonnées (enfin tester si c'est bien le bloc qui m'intéresse). y a t il un moyen de faire un ssget en un point ou dois je sélectionner tous les blocs dont le nom est le bon et de tester si leur pts d'insertion est PT1 pour trier les autres? les accrochages peuvent m'aider (OSMODE 64) ? bref, je patauge dans le bassin des tout petits ... merci
-
un peu court comme demande... quelle zone? quelle précision? je rejoint un peu Didier car je viens de me faire jeter par un géomètre qui veux pas me filer son plan topo sous prétexte que j'ai pas le numéro de plan. L'archi qui l'avait fait faire s'en empressé d'exploser les points, de virer le cartouche et de le coller en mm sur son plan de masse. Pour bosser c'est pas la joie. surtout qu'il a virer tout ce qui est sous les voirie et batiment. Mais en le demandant au géoi par tel puis par mail en précisant le nom du client la ville et le N° de parcelle (plus un plan de situ) Elle me répond qu'elle à pas que ça à faire et que de rechercher dans ses dossiers va lui prendre des plombes... (au bout de 3 rappel en 1 semaine...) Bref je ne suis pas sur que libre de droit et relevé géomètre soit des expressions très compatibles car si même quand on est partie prenante du dossier il faut se mettre à quatre pattes... Ceci dit, après inscription sur géoportail, il y a des relevés sur une trame à 5m avec les couches Open Street Map il y a déja de quoi faire... ça m'a eu sorti de la panade pour des APS...
-
je sais bien que rien n'est supporté officiellement avant 2017 mais... il y a déjà des petit malin qui tente d'installer autocad sur W10... et ils ont des pb... http://forums.autodesk.com/t5/autocad-francais/windows10-pro-64bit-autocad-can-not-be-installed-net-4-5-error/td-p/5749260 donc j'aimerai bien si des petits malins français avaient fait de même car j'envisageais de passer sous W10 d'ici l'automne et ça me farai bien suer si je ne pouvais pas installer totocad à la maison. (et le post en anglais à pas l'air très pointu pour l'instant... ) Je poste dans 2015, mais la question est ouverte pour toutes les versions... qui tente le coup?
-
overkill !!! bien ouèdj !
-
une présentation dont les paramètres sont ceux que tu veux recopier sur les autres...
-
prend la dernière version de Pline_Block sur cette page http://cadxp.com/index.php?/topic/14427-les-lisp-de-gile/ et si tu veux faire des modifications il faut regarder celle là http://cadxp.com/topic/12310-pline-block-mode-demploi/
-
un blocs annotatif? jamais entendu parlé. appartement ils on ça avec MEP à tester http://exchange.auto...2fb04a-7f5c.htm ha ben oui... j'avais jamais remarqué cette coche dans la définition des blocs... on peu donc aussi les faire sur tocad... mais bon... j'aime pas ça les annotatif. ça bouffe du temps de calcul en pagaille, et le positionnement sera pas forcément folichon...
-
ce lisp est utilisé avec bonheur depuis des années, les lisp de Patrick_35 sont pas réputés pour avoir un comportement aléatoire le soucis doit forcément venir de ton poste. Teste d'un autre poste (autre version si possible mais ça ne devrait pas changer). As tu d'autres lisp avec dcl qui ne ne posent pas de pb ? si oui utilise la même directorie. le fonctionnement tu te met dans une présentation correctement paramétrée, et quand tu lance le lisp, il recopie les paramètre de cette présentation sur les autres que tu coche dans la boite de dialogue (le DCL) est tu bien dans une présentation quand tu lance le bousin?
-
steven magax... dis nous ton truc? pas le temps d'ouvrir (charrette com d'ab) , mais 6.5mo il doit rester des coquilles car il n'y a pas plus d'un mo de traits brut sur les 2 plans..
-
effectivement, impossible de purger tes 700 types de lignes je ne sais pas comment tu as fait pour chopper ça, mais ça colle aux doigts. Rpurge JAV et même Defducalque et RB pour essayer de virer d'éventuel types actif dans des blocs mais rien à faire... Rien ne se purge j'ai même essayer de passer toutes les cotes et tous les textes dans un style mais nada. Ceci dit quand tu fais un fichier bibliothèque dans le quel il y a a vue de nez 200ko de traits et qu'il pèse 11mo c'est sur qu'il y a un pb. si tu as importé dans ton dessin des éléments de cette bibliothèque c'est eux les fautifs :) dans un 1er temps ne te sers plus de ce fichier !o! peut être que quelques cador du site ne sont eux non plus pas en vacances et qui vont trouver qq chose, moi je calle Rebcao est friant de ce genre de défi d'habitude..
-
auccun pb chez moi vérifie toujours dans les options si par hasard le chemin des lisp est bien dans cheemin de recherche des fichiers en cours d'utilisation... quelle version d'autocad?
-
il y a énormément de style de lignes dans ton dessin ... sinon tout se purge sans pb... un fichier "vide" de 3.5mo c'est quand même louche... bref tout purger purge bien tout (sauf les styles courants) et on retrouve un fichier de 89ko
-
Changer le calque d'un objet Point en cours de création
x_all a répondu à un(e) sujet de fabcad dans Visual LISP
oups... -
Changer le calque d'un objet Point en cours de création
x_all a répondu à un(e) sujet de fabcad dans Visual LISP
mes cours de CM2 sont loin, mais je ne crois pas qu'une police Windows sache faire la conversion... après I V X L C M sont dans toutes les polices... à programmer l’algorithme de conversion est un bon exercice... -
sur la 2014 as tu bien pris soins de déclarer comme emplacement de confiance l'endroit ou tu pose tes lisp (en plus des fichiers support) pour que totocad retrouve lisp et DCL ?
-
Changer le calque d'un objet Point en cours de création
x_all a répondu à un(e) sujet de fabcad dans Visual LISP
ça doit être l'été, je ne comprend pas... respire... les points, les virgules ne sont pas uniquement des entités autocad et... qu'est que tu veux faire au juste? -
dis merci Patrick! http://www.blog-cao.com/article/programmation/mpl-autocad-copier-presentation/
-
c'est sans doute jouable... si c'est a titre d'exercice je ne suis pas assez compétant pour t'aider. mais si tu as besoins de ça, je te conseillerai plutôt d'utiliser le notepad++. il y a possibilité d'utiliser des expressions régulières très puissantes. qqs exemples
-
LISP - Création d'une certaine polyligne par décalage
x_all a répondu à un(e) sujet de hey_bapt dans AutoCAD 2012
il n'y a rien de compliqué, la 1ere partie sert à initialiser ou redéfinir 2 variables et la 2eme partie à faire le décalage juste que pour le changement d'épaisseur je passe par la modification du code DXF de la polyligne au lieux de Pedit, c'est vrai que ya plus direct. Mais bon... je débute aussi ;) -
je suppose que ça n'a rien a voir avec l'autolisp et que TRANS ne peu rien pour toi? mais ce serai incongru qu'il n'y ai pas d'équivalent dans l'API .net d'autocad... à tout hasard j'ai tapé "TRANS .net autocad" dans google je tombe la dessus http://spiderinnet1....anetoworld.html
-
Nom de l'xref pointé par une ligne de repère
x_all a répondu à un(e) sujet de PiBey dans AutoCAD 2015
tien... j'ai refait un bloc et voila un bout de code qui marche chez moi, mais c'est un peu brut de décoffrage on doit pouvoir faire plus pratique, mieux codé et avec une gestion d'erreur et je ne sais pas récupérer le chemin de l'xref ni les Xref imbriquées l'adresse du bloc est dans les commentaires mais je met le lien ;| xrep insère le nom d'une Xref sur un bloc le bloc Xref doit etre présent ) charger ici : joch04.free.fr/images/lisp-ini/xrep.dwg |; (defun c:Xrep (/ ech xref les-xref lsr_100 x val) (setq ech 3) ; c'est léchelle qui me va mais à changer suivant les unités (princ "\nseléctionner une Xref ") (Setq xref (ssname (ssget) 0) lst-xref (entget xref) ) ;; adapté de cadxp.com/topic/4132_sommets_dune_lwpolyligne/page__view__findpost__p__18891 ;; car j'ai pas trouver mieux pour chopper le 2eme code 100 ou est stocker AcDbBlockReference (setq lst_100 (cadr (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 100)) (entget xref) ) ) ) ) (if (= "AcDbBlockReference" lst_100) (progn (setq val (cdr (assoc 2 lst-xref))) (command "_.-insert" "Xrep" "_non" pause ech ech 0 val) ) (princ "\n ce n'est pas une Xref") ) ;;(c:xrep) ; enlever les 2 ;; si tu veux que ça boucle (princ) ) ;fin defun
