bonuscad

Tout mes voeux et surtout bonne santé. Cette santé là, je la réserve à ceux qui nous spolie le bénéfice de notre labeur et l'avenir de nos enfants ...

Bonjour lili2006 et meilleurs voeux, Etant sous Map2014, je ne peux constater ce disfonctionnement, donc pour t'aider cela va être dur. Ce message est typique quand le lisp ne trouve pas le fichier DCL (As tu bien celui-ci dans un dossier déclaré?) Cela peut êtra aussi le SLD manquant utilisé dans le DCL. Ce programme commence sérieusement à dater! Même s'il a réussi à traversé de nombreuses versions d'autocad, il a été écrit sous une version 2002 classique (12 ans, je considère que c'est pas mal). J'ai écrit depuis cette version talus3D.lsp, qui même si elle fonctionne avec des entités 3D, fonctionne aussi très bien avec des objets 2D. Elle n'a pas la boite de dialogue, choix de ma part (cela évite aux utilisateur d'oublier de déclarer le dossier dans les options, n'est ce pas lili?!) L'avantage: elle n'utilise pas (command) et elle est beaucoup plus rapide à l'exécution, donc sur ta 2015 elle ne devrait pas poser de problèmes. Pour (command-s) j'ai trouvé ça Tu peux peut être essayer un rechercher-remplacer (command) -> (command-s) dans le fichier talus.lsp et retenter ta chance.

Bonjour, Pour la nouvelle année une petite suggestion! Cela n'utilise pas un bloc, mais un champ dynamique pour produire tes étiquettes de longueur. Cela ne fait pas coder beaucoup plus et c'est plus simple. En partant du code que je t'ai donné précedemment: (vl-load-com) (defun l-coor2l-pt (lst flag / ) (if lst (cons (list (car lst) (cadr lst) (if flag (+ (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) (caddr lst)) (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) ) ) (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag) ) ) ) (defun c:CABLAGE_VDI ( / js AcDoc Space dxf_cod mod_sel n lremov ename l_pt l_pr key js_cl obj_vlax pr lst_pt pt nw_obj rtx pt_cl) (princ "\nChoix d'un objet modèle pour le filtrage: ") (while (null (setq js (ssget "_+.:E:S" (list '(0 . "*LINE,POINT,ARC,CIRCLE,ELLIPSE,INSERT") (cons 67 (if (eq (getvar "CVPORT") 1) 1 0)) (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model")) ) ) ) ) (princ "\nCe n'est pas un objet valable pour cette fonction!") ) (setq AcDoc (vla-get-ActiveDocument (vlax-get-acad-object)) Space (if (= 1 (getvar "CVPORT")) (vla-get-PaperSpace AcDoc) (vla-get-ModelSpace AcDoc) ) ) (cond ((null (tblsearch "LAYER" "Label Longueur")) (vlax-put (vla-add (vla-get-layers AcDoc) "Label Longueur") 'color 96) ) ) (setq dxf_cod (entget (ssname js 0))) (foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov)))) (setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod)) ) (initget "Unique Tout Manuel _Single All Manual") (if (eq (setq mod_sel (getkword "\nMode de sélection filtrée, choix [unique/Tout/Manuel]<Manuel>: ")) "Single") (setq n -1) (if (eq mod_sel "All") (setq js (ssget "_X" dxf_cod) n -1) (setq js (ssget dxf_cod) n -1) ) ) (repeat (sslength js) (setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n))))) (setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints)) (foreach n l_pr (if (vlax-property-available-p ename n) (setq l_pt (if (or (eq n 'Coordinates) (eq n 'FitPoints)) (append (if (eq (vla-get-ObjectName ename) "AcDbPolyline") (l-coor2l-pt (vlax-get ename n) nil) (if (and (eq n 'FitPoints) (zerop (vlax-get ename 'FitTolerance))) (l-coor2l-pt (vlax-get ename 'ControlPoints) T) (l-coor2l-pt (vlax-get ename n) T) ) ) l_pt ) (cons (vlax-get ename n) l_pt) ) ) ) ) ) (cond (l_pt (while (and (setq key (grread T 4 0)) (/= (car key) 3)) (redraw) (cond ((eq (car key) 5) (foreach n l_pt (grdraw (trans n 0 1) (cadr key) 3) ) ) ) ) (if (eq (car key) 3) (progn (princ "\nSélectionner la colonne de cablage comme passage obligé: ") (while (not (setq js_cl (ssget "_+.:E:S" '((0 . "LWPOLYLINE")))))) (setq obj_vlax (vlax-ename->vla-object (ssname js_cl 0)) pr -1 lst_pt nil) (repeat (if (zerop (vlax-get obj_vlax 'Closed)) (1+ (fix (vlax-curve-getEndParam obj_vlax))) (fix (vlax-curve-getEndParam obj_vlax))) (setq pt (vlax-curve-GetPointAtParam obj_vlax (setq pr (1+ pr))) lst_pt (cons pt lst_pt) ) ) (if (< (distance (car lst_pt) (trans (cadr key) 1 0)) (distance (last lst_pt) (trans (cadr key) 1 0))) (setq lst_pt (reverse lst_pt)) ) (foreach n l_pt (setq pt_cl (vlax-curve-getClosestPointTo obj_vlax n)) (command "_.pline" "_none" (trans n 0 1) "_none" (trans pt_cl 0 1)) (foreach el lst_pt (if (<= (distance el (trans (cadr key) 1 0)) (distance pt_cl (trans (cadr key) 1 0))) (command "_none" (trans el 0 1)) ) ) (command "_none" (cadr key) "") (setq nw_obj (vla-addMtext Space (vlax-3d-point (setq pt (polar (trans n 0 1) (+ (setq rtx (angle (trans n 0 1) (trans pt_cl 0 1))) (* pi 0.5)) (getvar "TEXTSIZE")))) 0.0 (strcat "{\\fArial|b0|i0|c0|p34;" "%<\\AcObjProp Object(%<\\_ObjId " (itoa (vla-get-ObjectID (vlax-ename->vla-object (entlast)))) ">%).Length \\f \"%lu2%pr2\">%" ) ) ) (mapcar '(lambda (pr val) (vlax-put nw_obj pr val) ) (list 'AttachmentPoint 'Height 'DrawingDirection 'InsertionPoint 'StyleName 'Layer 'Rotation 'BackgroundFill) (list 5 (getvar "TEXTSIZE") 5 pt "Standard" "Label Longueur" rtx 0) ) ) ) ) (redraw) ) ) (prin1) )

C'est sur que la question est très succincte... On ne sait pas du tout si c'est une opération qui sera unique faite en manuel, ou s'il veut le faire depuis un fichier (et quel type de fichier: excel, fichier texte basique) et donc automatiser la saisie de son bloc. Je suggère aussi une recherche sur le site pour trouver une réponse.

Bonjour, Pour ma part il m'es arrivé ce genre de problème (qui n'en est pas un, car autocad continue de fonctionner correctement) quand j'utilise un autre applicatif d'AutoDesk, dans mon cas DWGTrueView. Dans l'explorateur windows les DWG sont alors associés à TrueView et un double-click les ouvre avec celui-ci. Dans ce cas je fais un clic-droit sur un fichier DWG et je fais "ouvrir avec" et repointe la bonne application.

Salut Pat! Très bien imaginé... ;) Pour t'aider le fameux dump (defun c:dump ( / ent obj) (while (setq ent (entsel "\nSélectionnez l'entité pour obtenir les données activeX: ")) (setq obj (vlax-ename->vla-object (car ent))) (vlax-dump-object obj t) (vlax-release-object obj) ) (princ) ) Tu trouvera très vite: ExtensionLineColor et DimensionLineColor Après c'est un jeu d'enfant.

Bonjour, Pour passer tes entitées en Z à zéro tu peux tenter cette procédure my_project.lsp Normalement cette procédure marche bien pour des entités filaires qui ont du mal à être traitées par _move en aller-retour avec le Z à 1E99 et -1E99. Par contre les solides 3D ne sont pas traités... Elle est plus rapide que FLATTEN des ExpressTools, mais flatten reste cependant une bonne procédure qui peut te convenir...

Clique sur le bouton "Ajuster manuellement" Dans la nouvelle boite de dialogue voir si "Activer l'accélération matérielle" est cochée ET si les paramètres sont supportés par ta carte (coche verte = OK) (panneau d"exclamation jaune = Peut fonctionner) (panneau d'exclamation rouge = option non supportée) Ou simplement prendre "les valeur recommandées" Plus tu auras de coches verte, moins tu auras de problème graphique (résumé très grossier) Tu peux jeter un oeil sur les autres boutons "Rechercher mise à jour" et "Journal d'ajustement"

Un peu au hazard, As tu jeté un oeil sur le paramètrage de la config graphique, commande: "3DCONFIG" Au cas ou... la config ait sautée. Je reste sceptique sur ces packs de langues, mais ce n'est que mon avis.

Salut Avec les syntaxes renvoyées, j'aurais tendance à dire: Pour "nombloc" Xref attachée. Pour "monxref|nombloc" Xref liée. A voir...

Bonjour, Je te renvoie sur un sujet ancien, qui lui peut te renvoyer sur une discussion encore plus ancienne...

Bon moko a disparu!... Mais j'en profite pour étendre le sujet. Dans son exemple, il y a des FeatID, je ne les ai pas restitué sur les points, mais ils ont pris la valeur par défaut (c'est à dire zéro). Je me demande si cette démarche n'est pas source d'ennuis, car d'après ce que j'ai compris ce FeatID est un peu comme le Handle d'une entité; c'est à dire unique. Quel est le rique? Y a t-il une procédure pour corriger cela? (par programmation ou autre) On trouve très peu d'exemple de développement en lisp pour Map sur le net. J'ai du mal a progresser dans le domaine et voir toutes les possibilités.

Bonjour, :(rires forts): :(rires forts): :(rires forts): Je trouve que tu n'as pas beaucoup cherché, il est tel que je l'avais posté sur CadXp, mis à part le nom de la fonction qui a changé. Bon je vais être bon prince... essayes le sous cette forme. Mais je n'irais pas plus loin! (defun l-coor2l-pt (lst flag / ) (if lst (cons (list (car lst) (cadr lst) (if flag (+ (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) (caddr lst)) (if (vlax-property-available-p ename 'Elevation) (vlax-get ename 'Elevation) 0.0) ) ) (l-coor2l-pt (if flag (cdddr lst) (cddr lst)) flag) ) ) ) (defun c:CABLAGE_VDI ( / js dxf_cod mod_sel n lremov ename l_pt l_pr key js_cl obj_vlax pr lst_pt pt pt_cl) (princ "\nChoix d'un objet modèle pour le filtrage: ") (while (null (setq js (ssget "_+.:E:S" (list '(0 . "*LINE,POINT,ARC,CIRCLE,ELLIPSE,INSERT") (cons 67 (if (eq (getvar "CVPORT") 1) 1 0)) (cons 410 (if (eq (getvar "CVPORT") 1) (getvar "CTAB") "Model")) ) ) ) ) (princ "\nCe n'est pas un objet valable pour cette fonction!") ) (vl-load-com) (setq dxf_cod (entget (ssname js 0))) (foreach m (foreach n dxf_cod (if (not (member (car n) '(0 67 410 8 6 62 48 420 70))) (setq lremov (cons (car n) lremov)))) (setq dxf_cod (vl-remove (assoc m dxf_cod) dxf_cod)) ) (initget "Unique Tout Manuel _Single All Manual") (if (eq (setq mod_sel (getkword "\nMode de sélection filtrée, choix [unique/Tout/Manuel]<Manuel>: ")) "Single") (setq n -1) (if (eq mod_sel "All") (setq js (ssget "_X" dxf_cod) n -1) (setq js (ssget dxf_cod) n -1) ) ) (repeat (sslength js) (setq ename (vlax-ename->vla-object (ssname js (setq n (1+ n))))) (setq l_pr (list 'StartPoint 'EndPoint 'Center 'InsertionPoint 'Coordinates 'FitPoints)) (foreach n l_pr (if (vlax-property-available-p ename n) (setq l_pt (if (or (eq n 'Coordinates) (eq n 'FitPoints)) (append (if (eq (vla-get-ObjectName ename) "AcDbPolyline") (l-coor2l-pt (vlax-get ename n) nil) (if (and (eq n 'FitPoints) (zerop (vlax-get ename 'FitTolerance))) (l-coor2l-pt (vlax-get ename 'ControlPoints) T) (l-coor2l-pt (vlax-get ename n) T) ) ) l_pt ) (cons (vlax-get ename n) l_pt) ) ) ) ) ) (cond (l_pt (while (and (setq key (grread T 4 0)) (/= (car key) 3)) (redraw) (cond ((eq (car key) 5) (foreach n l_pt (grdraw (trans n 0 1) (cadr key) 3) ) ) ) ) (if (eq (car key) 3) (progn (princ "\nSélectionner la colonne de cablage comme passage obligé: ") (while (not (setq js_cl (ssget "_+.:E:S" '((0 . "LWPOLYLINE")))))) (setq obj_vlax (vlax-ename->vla-object (ssname js_cl 0)) pr -1 lst_pt nil) (repeat (if (zerop (vlax-get obj_vlax 'Closed)) (1+ (fix (vlax-curve-getEndParam obj_vlax))) (fix (vlax-curve-getEndParam obj_vlax))) (setq pt (vlax-curve-GetPointAtParam obj_vlax (setq pr (1+ pr))) lst_pt (cons pt lst_pt) ) ) (if (< (distance (car lst_pt) (trans (cadr key) 1 0)) (distance (last lst_pt) (trans (cadr key) 1 0))) (setq lst_pt (reverse lst_pt)) ) (foreach n l_pt (setq pt_cl (vlax-curve-getClosestPointTo obj_vlax n)) (command "_.pline" "_none" (trans n 0 1) "_none" (trans pt_cl 0 1)) (foreach el lst_pt (if (<= (distance el (trans (cadr key) 1 0)) (distance pt_cl (trans (cadr key) 1 0))) (command "_none" (trans el 0 1)) ) ) (command "_none" (cadr key) "") ) ) ) (redraw) ) ) (prin1) )

Bonjour, Regarde cette discussion, j'avais évoqué cette problèmatique de mesure curviligne.

Bonjour, C'est un truc comme cela que tu désire faire? (defun c:moko ( / js_line ent dxf_ent tbldef lst_data) (princ "\nSélectionner les lignes.") (setq js_line (ssget '((0 . "LINE") (100 . "AcDbEntity") (100 . "AcDbLine")))) (cond (js_line (repeat (setq n (sslength js_line)) (setq ent (ssname js_line (setq n (1- n))) dxf_ent (entget ent) tbldef nil lst_data nil ) (cond ((ade_odgettables ent) (foreach el (ade_odgettables ent) (setq tbldef (ade_odtabledefn el)) (setq lst_data (cons (mapcar '(lambda (fld) (cons el (cons fld (ade_odgetfield ent el fld 0)))) (mapcar 'cdar (cdr (nth 2 tbldef)))) lst_data)) (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (assoc 8 dxf_ent) '(100 . "AcDbPoint") (assoc 10 dxf_ent) '(210 0.0 0.0 1.0) ) ) (setq nwent (entlast)) (foreach el (ade_odgettables ent) (ade_odaddrecord nwent el) (mapcar '(lambda (x) (foreach data x (cond ((/= (cadr data) "FeatId") (ade_odsetfield nwent (car data) (cadr data) 0 (cddr data)))))) lst_data) ) (entmake (list '(0 . "POINT") '(100 . "AcDbEntity") '(67 . 0) '(410 . "Model") (assoc 8 dxf_ent) '(100 . "AcDbPoint") (cons 10 (cdr (assoc 11 dxf_ent))) '(210 0.0 0.0 1.0) ) ) (setq nwent (entlast)) (foreach el (ade_odgettables ent) (ade_odaddrecord nwent el) (mapcar '(lambda (x) (foreach data x (cond ((/= (cadr data) "FeatId") (ade_odsetfield nwent (car data) (cadr data) 0 (cddr data)))))) lst_data) ) ) ) ) ) ) ) (prin1) )

Heuh!... lili2006, tout est dans le fil de discussion! Moi pour faire simple; pour ne pas être embété avec les chemins de dossier et les droit d'accés au dossier (je ne suis pas administrateur de mon PC)), j'ai mis une copie de A C A D.EXE et des dll requises tout dans un dossier provisoire avec l'executable strings.exe donné par (gile), j'ai lancé la command CMD (dans "tout les programmes" "accessoire" "Exécuter"), me suis mis dans le dossier provisoire et lancer string.exe avec les paramètres adéquates, puis executé les lisp de (gile)dans Autocad pour nettoyer les fichiers obtenus. NB: utiliser ">" dans strings.exe pour la première utilisation, puis ">>" dans les utilisations suivantes (pour rajouter les données dans le fichier)

Bonjour, Ayant passé sur MAp 2014 en 64bits, j'ai fais la procédure de recherche sur cette version fraichement installée. En incoporant accore.dll et acwindows.dll, j'arrive à 923 variables et 589 pour l'environnement. Je joins les fichiers txt pour Rebcao, s'il veut aggrandir son "panel" de variables... ou pour tout ceux qui voudrais comparer. Je PRECISE encore une fois, ceci pour AutocadMAP 2014 64bits. sysvars2014.txt envvars2014.txt

Si j'ai bien compris, cela veux dire que tous tes éléments de ton axe en plan ont été tranformés en une seule et même polyligne? Si c'est le cas, je te déconseille de faire la même chose avec les clothoïde reconstituées avec mon code, ou alors dupliques celle-ci pour les joindre avec Pedit (pour faire par exemple un décalage de celle-ci en une seule fois) MAIS CONSERVE les éléments originaux (dans un calque gelé et/ou verrouillé) sous peine d'avoir des informations fausses attachés à ta polyligne. Les données attachées ne sont pas dynamique, si tu modifies ou joint la polylignes, les données ne sont pas recalculées. Cela rejoint le message d'avertissement que j'ai pu mettre dans idclo.lsp Te voilà averti...

Bonjour, Je ne sais si cette solution va te convenir... Comme les entités supports existent (ligne, arc), je te propose de supprimer tes polylignes représentant les clothoïdes et de les recontruire avec clothoide.lsp. Fastidieux, mais ne devrait pas poser de problème de construction puisque déjà réalisées auparavant, donc assez rapide tout de même. Bien que cette routine est très ancienne je pense pas qu'elle pose de problème à être utilisée sur des versions récentes (basique ou depuis un produit vertical: Map Architecture etc...), seul les LT sont exclue (pas de lisp). Ceci fait tu auras une nouvelle polyligne, à la différence que celle-ci aura des Xdata associées (qui contiennent les paramètres principaux). Tu peux y accéder avec XDLIST des ExpressTools ou encore avec idclo.lsp ou tout simplement par une procédure écrite par toi en lisp (ou autre language). Ca peut le faire?

Disons que les besoins en main d’œuvre vont s’amenuiser. Un bureau de géomètre pourra (peut) se composer que d'un seul bonhomme... Alors qu'avant il y avait des brigades (pas de gendarmerie) :P Il restera cependant, je pense, toujours un travail de rattachement ou de compensation à faire, pour la partie technique. Quand au foncier ou au juridique, il restera indispensable. (Il faut bien fixer les impôts...)

Un petit Up, au cas où le sujet aurais échappé à une personne qui aurais une réponse...

As tu bien lu..., car si rien n'est visible à l'écran, il a fait quelque chose. D'ailleurs le code que tu as posté est très similaire à ce que j'ai fais, sauf que le résultat n'est pas dans un boite de dialogue mais il est simplement affectée à la polyligne. Donc après application du code, tu cliques sur une polyligne contenant ton bloc de couleur verte et tu verra que dans les PROPRIETES tu as l'information ADRESSE. (celle qui n'ont pas ce bloc ne sont pas renseignées) Un petit défaut dans mon code (et d'ailleurs dans le tien aussi) est pour la parcelle 68 en magenta. Celle-ci n'est pas pris en compte car l'attribut mord sur la limite de polyligne. Pour y remédier changer (ssget "_WP" ....) en (ssget "_CP"....)

Bien d'accord -1 Je suis presque sûr qu'il a une page facebook qui permettrait d'en apprendre d'avantage à son sujet (c'est bien le genre...) Ça sera peut être moins reluisant... :unsure:

J'ai du mal a cerner exactement ce que tu veux faire... Néanmoins voici un bout de code. Tu copies-colles celui-ci directement en ligne de commande et ensuite tu tapes ADRESS2PARCEL Dans ton exemple ca affecte la valeur de ton attribut 01-ADRESSE du bloc BLOC_BAL_V5 situé sur la calque ADRESSES REPLACEES à une nouvelle table de données d'objet (pour Map) nommée DATA_BAL_V5 pour la polyligne concernée. De ce fait en cliquant sur la polyligne, dans les propriété tu aura la donnée d'objet "01_ADRESSE". (vl-load-com) (ade_oddefinetab '( ("Tablename" . "DATA_BAL_V5") ("TableDesc" . "Adresse de la parcelle") ("Columns" ( ("ColName" . "01_ADRESSE") ("ColDesc" . "Adresse") ("ColType" . "Character") ("DefaultVal" . "") ) ) ) ) (defun c:adress2parcel ( / tbl tbldef js n ent pt_lst ss_bl ent_name obj_vla atts adress) (setq tbl "DATA_BAL_V5" tbldef (ade_odtabledefn tbl)) (setq js (ssget "_X" (list (cons 0 "LWPOLYLINE") (cons 8 "cadastre-1PARCELLE") (cons 67 (if (eq (getvar "CVPORT") 2) 0 1)) (cons 410 (if (eq (getvar "CVPORT") 2) "Model" (getvar "CTAB"))) (cons -4 "&") (cons 70 1) ) ) ) (repeat (setq n (sslength js)) (setq ent (ssname js (setq n (1- n))) pt_lst (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget ent))) ss_bl (ssget "_WP" pt_lst '((0 . "INSERT") (2 . "BLOC_BAL_V5") (8 . "ADRESSES REPLACEES"))) adress nil ) (cond (ss_bl (setq ent_name (ssname ss_bl 0) obj_vla (vlax-ename->vla-object ent_name) atts (vlax-invoke obj_vla 'getattributes) ) (foreach att atts (if (eq (vla-get-TagString att) "01_ADRESSE") (setq adress (vla-get-TextString att)) ) ) ) ) (cond (adress (ade_odaddrecord ent "DATA_BAL_V5") (ade_odsetfield ent "DATA_BAL_V5" "01_ADRESSE" 0 adress) ) ) ) (prin1) )

Bonjour, Je cherche à vérifier la cohérence de mes données d'objets. Pour faire cela, j'ai monter un code en lisp. Cela fonctionne, le programme va jusqu'au bout sans erreur. Seulement à la fin un message d'Autocad Map en boite de dialogue m'indique que j'ai des "Numéros d'enregistrements incorrects." avec le nombre occurrence. Très bien! Mais comment je fais pour identifier au mieux où il y a un problème? J'ai bien ouvert le fichier journal (XML), mais les infos qu'il donne ne m'avance pas plus, ou du moins je ne sais pas les interpréter. Comment faites-vous l'interprétation de ce journal? Dans mon cas précis j'ai 79 occurrences sur 7391 traitées, j'aimerais bien mettre la main dessus facilement sans les fouiller 1 par 1 !...