Export Autocad vers objet MAP HTML

[GEGEMATIC]

Bonjour,

J'ai besoin d'exporter des cartes au format HTML, en utilisant le composant MAP d'HTML

Ce n'est pas très compliqué comme format, et

Il existe aussi des applis genre FrontPage qui le font à partir de SVG, mais je tiens à le faire directement depuis autocad pour des raisons pratiques

Mais peut être que ça existe déjà, alors si quelqu'un a du code là dessus ?

--

[GEGEMATIC]

Pour répondre sur le forum Autodesk:

Ci joint le code disponible pour faire ceci:

Pour fonctionner, il faut au minimum les librairies de PowerClic

Je n'ai plus utilisé ce code depuis, je sais que ça marchait sans pb, mais je ne me rappelle plus le mode opératoire exact.

Je pourrai mettre un exemple de résultat en ligne, ça ça peu se faire assez vite.

 

 

 
;;*******************************************
;;MAP HTML
;;*******************************************
;§/HTML/ecrit l'entête Données associées/ f
;
(defun write_entete_donnees (  f )
(write-line "[b]<[/b]TABLE >" f)
 (write-line "[b]<[/b]TR>" f)
 (write-line "[b]<[/b]TD>" f)
 (write-line "[b]<[/b]TABLE >" f)
 (write-line "[b]<[/b]H2>Données associées[b]<[/b]/H2>" f)
 (write-line "[b]<[/b]/TR>" f)
 (write-line "[b]<[/b]/TD>" f)
)
;;*******************************************
;§/HTML/ecrit un entête MAP/str f
;[b]<[/b]MAP name="map">
(defun write_map_header ( str f )
(write-line (strcat  "[b]<[/b]MAP name=\"" str "\">") f)
)
;;*******************************************
;§/HTML/ecrit une fin MAP/ f
;[b]<[/b]/MAP>
(defun write_map_footer (  f )
(write-line "[b]<[/b]/MAP>" f)
)
;;*******************************************
;§/HTML/ecrit une AREA Circulaire/cercl href f
;[b]<[/b]AREA shape="circle" coords="73,73,72" href="../../plongee/index.html">
(defun write_area_circle ( cercl href title f / ray )
 (if (= "CIRCLE" (cdr (assoc 0 (setq eg (entget cercl)))))
   (setq ray (cdr (assoc 40 eg)))
   (setq ray ade-html-rayon)
 )  
 (setq lacoord (list (cdr (assoc 10 eg ))))
 (setq coords (pixel_coords lacoord))
 (setq ray (itoa (fix (* ade-html-fpix ray))))
 (setq coords (strcat coords "," ray))
 (write-line (strcat "[b]<[/b]AREA shape=\"circle\" coords=\"" coords "\" href=\"" href "\" title=\"" title"\"  target=\"donnees\"   >" ) f)
)

;;*******************************************
;§/HTML/ecrit une AREA Rectangulaire/rect f
;[b]<[/b]AREA shape="rect" coords="60,123,242,190" href="../../nucleaire/index.html">
(defun write_area_rect_hyper ( rect  f)
 (setq lacoord (pw_lsomm rect))
 (setq lacoord (list (car lacoord) (nth 2 lacoord)))
 (setq coords (pixel_coords lacoord))
 (setq href (car (retourne_hyperliens rect)))
 (write-line (strcat "[b]<[/b]AREA shape=\"rect\" coords=\"" coords "\" href=\"" href "\">") f)
)
;;*******************************************
;§/HTML/ecrit une AREA Poly avec l'hyperlien contenu/epol f
;[b]<[/b]AREA shape="polygon" coords="88,58,297,58,254,171" href="../../musique/index.html">
(defun write_area_polygon_hyper ( epol  f /  lacoord coords)
 (setq lacoord (simplifie_contour epol))
 (setq coords (pixel_coords lacoord))
 (setq href (car (retourne_hyperliens epol)))
 (write-line (strcat "[b]<[/b]AREA shape=\"polygon\" coords=\"" coords "\" href=\"" href "\">") f)
)
;;*******************************************
;§/HTML/ecrit une AREA Poly avec l'hyperlien spécifié/epol href f
;[b]<[/b]AREA shape="polygon" coords="88,58,297,58,254,171" href="../../musique/index.html">
(defun write_area_polygon ( epol href title f / lacoord coords )
 (setq href (strcat "donnees/" href))
 (setq lacoord (simplifie_contour epol))
 (setq coords (pixel_coords lacoord))
 ;title="74 - Limousin"
 (write-line (strcat "[b]<[/b]AREA shape=\"polygon\" coords=\"" coords "\" href=\"" href "\" title=\"" title"\"  target=\"donnees\"   >" ) f)
)

;;*******************************************
;§/HTML/ecrit une image usemap /usemap img width height f
;[b]<[/b]IMG USEMAP="#map" SRC="images/map.gif" border=0 WIDTH=300 HEIGHT=191>
(defun write_img_usemap ( usemap img width height f)
 (write-line (strcat "[b]<[/b]IMG USEMAP=\"#" usemap " SRC=\"" img "\" border=0 WIDTH=" WIDTH " HEIGHT=" HEIGHT ">") f)
)
;;*******************************************
;§/HTML/convertie une série de coordonnées autocad vers des coordonnée en pixel/acoords

(defun pixel_coords ( lacoords / lrect pbase res )
 (setq lrect (pw_lsomm (ssname (ssget "x" '((0 . "LWPOLYLINE")(8 . "TI-FORMAT-TRACER"))) 0 )))
 (setq pbase (car lrect))
 (setq xbase (car pbase)
ybase (cadr pbase))
 (setq phaut (nth 2 lrect))
 (setq xhaut (car phaut)
yhaut (cadr phaut))
 (setq largeTracer (- xhaut xbase))
 (setq pixfo (pixels_du_format_actuel))
 ;;attention : on présupose qu'il y a adéquation entre le format en pixels, et les element map
 ;;autrement dit, le facteur en x = le facteur en y
 (setq ade-html-fpix (/ (car pixfo) largeTracer))
 (setq res (mapcar '(lambda (x)
      (list
	(fix (* ade-html-fpix (- (car x) xbase)))
	;;la coordonée y part du coint haut gauche

	(fix (* ade-html-fpix (- yhaut (cadr x) )))
	
	)
      )
   lacoords
   )
  )
 (setq res (pw_reduct_list res))
 (pw_ch_de_lst (pw_flatten_list res) ",")
)
;****************************************************************************
;§/poly/simplifie un contour, dans le but de le limiter à 100 pts/pt
;sert à créer un contour AREA MAP html
(defun simplifie_contour (epol /  lptaco lpt long englo dist coef resolu )
 (setq lpt (pw_lsomm epol))
 (setq long (pw_long_pol epol))
(setq englo (pw_englobe lpt))
(setq dist (distance (car englo)(cadr englo)))
 ;;100 correspond au nombre de pt maxi à atteindre
 (setq coef (/ (length lpt) 100.0))
 ;;10 est arbitraire, comme également sqrt expt: c'est empirique, mais ça marche à peu près
;;  (setq resolu (* 10 (fix (* (sqrt coef) (expt (/ long dist) 2.0)))))
 (setq resolu (/ (* (fix (* (sqrt coef) (sqrt long)))) 2.0) )
 
 (debug_print 'coef)
 (debug_print 'resolu)
 (debug_print 'long)
 (debug_print 'dist)
 (princ)
 (setq lpt (pw_lpt_rnd lpt resolu))
 ;;boucle jusqu'à obtenir 100
(while (> (setq nb (length (setq lptaco (contour_simplifie lpt resolu)))) 99)
  (setq resolu (* resolu (/ nb 100.0)))
  (debug_print 'nb)

)
lptaco   
)
;--------------------------------------------------------------------
;§/poly/cree un contour simplifié à delta près/lpt delta
;
(defun contour_simplifie ( lpt delta / p1 p2 p3 lptaco i ptaconserver)
 
 (setq p1 (car lpt))
 (setq lptaco (list p1))
 (setq i 2)
 (while (< i ( - (length lpt) 1))
   
   (while (and (est_colineaire p1 (setq p2 (nth (- i 1) lpt)) (setq p3 (nth i lpt))  delta)
	(sont_colineaire p1 lptaverifier p3  delta)
	(< i ( - (length lpt) 1))
	)
     ;(if (> (distance p2 p3) delta)
      (setq lptaverifier (cons p2 lptaverifier))
     ;)
     (setq ptaconserver p3)
     (setq i (+ 1 i))
     ;(command "_redraw")
     ;(mapcar 'PW_FOCUS (list p1 p2 p3))
   )
   (if ptaconserver
     (progn
     (setq lptaco (cons ptaconserver lptaco))
     (setq p1 ptaconserver)
     (setq ptaconserver nil)
     )
     (progn
(setq lptaco (cons p2 lptaco))
(setq p1 p2)
     )
    )
   (setq lptaverifier nil)
   (setq i (+ 1 i))
   )
 (pw_reduct_list lptaco)
)

;;*******************************************
(defun c:try_arron2 ( /  )
 (setq lptaco nil)
 (setq epol (enam))
 (setq lptaco (simplifie_contour epol))
 (pw_setvar1 "cmdecho" 0)
 (command "_pline")
 (mapcar 'command lptaco)
 (command "_close")
 (pw_setvar2 "cmdecho")
)

;;*******************************************
(defun c:try_html_rect ( /  f)
 (setq fhtml (getfiled "Selectionnez le fichier html pour map" "" "HTML" 0))
 (setq f (open fhtml "a"))
 (write_map_header "map" f )
 (write_area_rect (enam)  f)
 (write_map_footer f)
 (close f)
)
;;*******************************************
(defun c:try_html_poly ( /  g)
 (setq fhtml (getfiled "Selectionnez le fichier html pour map" "" "HTML" 0))
 (setq g (open fhtml "a"))
 (write_map_header "map" g )
 (write_area_polygon (enam)  g)
 (write_map_footer g)
 (close g)
)
;;*******************************************
;§/HTML/exporte les données ade d'entités au format html/none
;; f = fichier de données (multiple)
;; g = fichier MAP unique

(defun c:export_ade_html ( / ltablchamps g fhtml lfhtml)
 
 (pw_bydefault "ade-html-chemin" (getvar "dwgprefix"))
 (setq fhtml (getfiled "Selectionnez le fichier html pour map" ade-html-chemin "HTML" 0))
 (setq lfhtml (pw_scie_fich fhtml))
 (setq ade-html-chemin (car lfhtml))
 ;;supprime la section map éventuellement présente
 (pw_cpt_occu_cop "Section map trouvée" "[b]<[/b]MAP*"  fhtml "tmp") 
 (pw_modif_fich (strcat (car lfhtml)(cadr lfhtml) ".tmp") fhtml '("") "[b]<[/b]MAP*" "[b]<[/b]/MAP>" )
 (setq g (open fhtml "a"))
 (write_map_header "map" g )
 
 (setq ade-html-entites (pw_ch_calques_msg  ade-html-entites "Calques des entités à exporter en html :" ))
 (pw_getmemlvar "ade-html-entites" "Calques des entités à exporter en html :" "STR")
 
 (setq tlc (pw_ch_de_lst ade-html-entites ","))
 ;;(setq sel (ssget "x" (list '(0 . "LWPOLYLINE,MPOLYGON")(cons 8 tlc))))
 (PW_GETKWORDMEM "Type d'entités à exporter ?/Lwpolyline,mpolygon Point" "ade-html-type")
 (if (= "Point" ade-html-type)
   (PW_GETrealmem "\nRayon du cercle de Sélection?" "ade-html-rayon")
 )
 (setq sel (ssget (list (cons 0 ade-html-type)(cons 8 tlc))))
 
 (setq e0 (ssname sel 0))
 (setq ltabl (AM_GETTABLES e0))
 ;;choix des tables à exporter
 (setq ade-html-tables (pw_s_lchaines3 "Tables à exporter:" ltabl 1 ade-html-tables ))
 (pw_getmemlvar "ade-html-tables" "Tables à exporter:" "STR")
 
 (foreach table ade-html-tables
   (pw_getstringmem (strcat "\nTitre à afficher pour les données de la table " table " ?") (strcat "ade-html-intitule-" table))
   (setq vchptable (strcat "ade-html-champs-" table))
   (setq lchp (AM_GETTABLEFORMAT table))
   (setq lchp (mapcar '(lambda (x)
		  (strcat (nth 0 x) "$" (nth 1 x))
		  )
		  lchp
	       )
  )
		  
   (set (read  vchptable) (pw_s_lchaines3 (strcat "Champs à exporter pour la table" table " :") lchp 1 (eval (read  vchptable)) ))
   (pw_getmemlvar vchptable "Tables à exporter:" "STR")
   (setq tmp (mapcar '(lambda (x)
		 (car (pw_lst_de_ch x "$"))
		 )
		 (eval (read  vchptable))
	      )
  )
   (setq ltablchamps (cons (list table tmp) ltablchamps))
   ;;pour servir plus tard:
   (set (read (strcat "ade-html-champs-" table "-clef")) tmp)
   (pw_getmemlvar (strcat "ade-html-champs-" table "-clef") "pas de message" "STR")			 
 )
 ;choix de la dénomination des liens (tabel champs clefs)
 ;;table
 (if (> (length ade-html-tables) 1)
  (setq ade-html-table-clef (car (pw_s_lchaines2 "Table du champ clef ? " ade-html-tables ade-html-table-clef)))
  (setq ade-html-table-clef (car ade-html-tables))
 )
 (pw_getmemlvar "ade-html-table-clef" "Table du champ clef ? " "STR")
 ;;champ
 (setq lchp (AM_GETTABLEFORMAT ade-html-table-clef))
   (setq lchp (mapcar '(lambda (x)
		  (strcat (nth 0 x) "$" (nth 1 x))
		  )
		  lchp
	       )
  )
 
 (setq ade-html-champ-clef (car (pw_s_lchaines2 "Champ clef pour nom de fichier? " lchp ade-html-champ-clef)))
 (pw_getstringmem "\nPrefix à ajouter pour nom de fichier ?" "ade-html-champ-clef-pref")
 (setq ade-html-champ-title (car (pw_s_lchaines2 "Champ clef pour infobulle sur le liens ? " lchp ade-html-champ-title)))
 (pw_getmemlvar "ade-html-champ-title"  "Champ clef pour infobulle sur le liens ?" "STR")
 
 (foreach epol (pw_listsel sel)
   (setq cc-lastent epol)
  (ecrit_ade_html epol)
 )
 ;;le fichier MAP (g)
 (write_map_footer g)
 (close g)

)

;;*******************************************
;§/HTML/ecrie les données ade d'entités au format html/epol

(defun ecrit_ade_html (epol / ltablchamps ldonn title  f)
 (foreach table ade-html-tables
   (setq ldonn
   (cons
     (list (eval (read (strcat "ade-html-intitule-" table)))
	   (pw_assoc_multi
	     (eval (read (strcat "ade-html-champs-" table "-clef")))
	     (NA_GetfieldDescData epol table)
	   )
     )
     ldonn
     )
   )
 )
 ;;nom du fichier: champs clef
 (setq nfich (strcat "donnees/" ade-html-champ-clef-pref (pw_guil_make (V5_GETEVAR epol ade-html-table-clef (car (pw_lst_de_ch ade-html-champ-clef "$")))) ".html"))
 ;;title="TITLE SAINT-JEAN-DE-MAURIENNE"
 (setq title (pw_guil_make (V5_GETEVAR epol ade-html-table-clef (car (pw_lst_de_ch ade-html-champ-title "$")))))
 (if (not (wcmatch nfich "*'nil*" ))
   (progn
 ;;l'area MAP
  (cond
    ((= "POINT" (strcase ade-html-type))
       (write_area_circle  epol nfich title  g)
    )
    (T
     (write_area_polygon  epol nfich title g)
     )
    )
 (setq f (open   (setq nfich (strcat ade-html-chemin  nfich)) "w"))
 ;;les données
 (write_entete_donnees f)
 ;;ecrit le tableau:
 (foreach l ldonn
   (write-line "[b]<[/b]TR>[b]<[/b]TD>" f)
   (write_h3 (car l) f )
   (write-line "[b]<[/b]/TD>[b]<[/b]/TR>" f)
   (foreach ll (cadr l)
    (write-line "[b]<[/b]TR>[b]<[/b]TD>" f)
    (write-line (cadr ll) f )
    (write-line "[b]<[/b]/TD>[b]<[/b]/TR>[b]<[/b]TR>[b]<[/b]TD>" f)
    (write-line (strcat  "[b]<[/b]B>" (pw_guil_make (last ll)) "[b]<[/b]/B>") f )
    (write-line "[b]<[/b]/TD>[b]<[/b]/TR>" f)      
   )
 )
 (write-line "[b]<[/b]/TABLE >" f)
 (close f)
  )
  (progn
  (Prompt "\nProbleme détecté")
  (pw_entmodifi epol 62 2)
  )
   
 ) 
)
; ****************************************************************************
;;§/INI/appel principal pour crire une variables dans un fichier ini spécifié par l'utilisateur/none
(defun c:ecrini_ade_html ( / lvar  fich f)
(setq fich (getfiled "Fichier ini de variables à écrire : " ade-html-chemin "ini" 1))
(setq lvar (mapcar 'car pw-getmemlvar))
(setq lvar (pw_wcmatch_list lvar "ade-html*"))
;;effacement du fichier
 (setq f (open fich "w"))
 (write-line "" f)
 (close f)
 
(foreach l lvar
 (pw_ecrini_ligne  l fich)
)
)

[Edité le 19/12/2008 par GEGEMATIC]

[scls19fr]

Merci je vais regarder ça dès que j'ai un peu de temps.

Mais j'avoue ne pas être un grand fan du LISP (trop de parenthèses pour moi)

 

 

PS: la question était initialement posté sur

http://discussion.autodesk.com/thread.jspa?threadID=689362

 

[Edité le 30/12/2008 par scls19fr]

[(gile)]

Mais j'avoue ne pas être un grand fan du LISP (trop de parenthèses pour moi)

 

les parenthèses, c'est pas vraiment un problème avec un éditeur de code (l'éditeur visual LISP par exemple)

 

Le problème avec ce code en particulier, c'est qu'il écrit du code HTML et que CADxp interprète tout les signes ici).

Je viens de passer presque un quart d'heure à rendre le code lisible sur le forum :mad:

[scls19fr]

Je suis en train d'essayer... mais je connais VBA pas VisualLISP

J'ai fait un fichier Autocad minimaliste (juste deux rectangles)

j'ai tapé vlisp

Fichier / Nouveau

j'ai collé le code plus haut (sans avoir trop cherché à comprendre comment ça marche... on verra ça ensuite)

J'ai enregistré ça sous le nom export_map.lsp

Je fais quoi maintenant ?

 

J'ai Autocad Archi 2009 (version éducation)

Je ne suis pas sûr que PowerClic le prenne en charge

 

Merci d'avance

 

[Edité le 30/12/2008 par scls19fr]

[(gile)]

Salut,

 

Depuis l'éditeur, tu peux charger le LISP directement dans le dessin courant (CTRL+ALT+E ou menu Outil > Charger le texte dans l'éditeur).

 

Pour le rendre pus lisible (retraits), tu fais CTRL+ALT+F ou menu Outils > Formater le code dans l'éditeur.

 

Chaque routine, séparée par des commentaires (surlignés en gris) est une expression defun (DEfine FUNction), le symbole qui suit le defun est le nom de la fonction.

Si ce nom a un préfixe c: comme c:try_arron2, c:try_html_rect try_arron2, c:try_html_poly... ce qui suit directement le c: (try_arron2, try_html_rect try_arron2, try_html_poly...) peut être utilisé en ligne de commande comme une commande AutoCAD native.

Tous les autres defun sont des sous routines utiles au programme (équivalent des fonctions LISP natives).

 

De plus amples renseignements sur le chargement ou la syntaxe des programmes LISP

 

[scls19fr]

Merci pour ces informations

mais maintenant que dois-je lancer comme commande dans Autocad ?

En fait c'est "l'esprit" du script que je ne pige pas

Il faut définir un grand rectangle qui contiendra l'ensemble du dessin (afin de pouvoir faire les conversion entre unité Autocad et pixel dans l'image)

Les polylignes qui dont on cherche les coordonnées pour la map (balise area) doivent elle être sur un calque particulier ?

 

[(gile)]

Là désolé, je ne peux pas te dire grand chose.

À la lecture du code, les commandes semblent ajouter à un fichier HTML existant des informations concernant une entité sélectionnée.

Mais le programme appelle de nombreuses fonctions LISP qui doivent être spécifiques à MAP, parce que je ne les connais pas.

 

[scls19fr]

Merci je pense pas que soit des fonctions spécifiques à Autocad Map mais des fonctions de PowerClic http://www.g-eaux.com/powerclic/index.php

 

Il n'y a plus qu'à attendre son auteur ici ;-)

 

Je trouve d'ailleurs étrange qu'il faille créer d'abord le fichier html

Faut-il mettre la balise map pour que le script sache où ajouter les balises area ?

Personnellement j'aurais simplement fait un script qui génère juste les balises map et area

dans un fichier carte.html et j'aurais ensuite utilisé un éditeur de texte pour coller le contenu de carte.html dans mon fichier html final...

[lili2006]

Bonsoir à toutes et tous,

 

nombreuses fonctions LISP qui doivent être spécifiques à MAP

 

Je ne pense pas, mais plutôt à => PowerClic

 

Pour fonctionner, il faut au minimum les librairies de PowerClic

 

Dés que j'ai un peu de temps, je testerai aussi,...

 

J'ai Autocad Archi 2009 (version éducation)

Je ne suis pas sûr que PowerClic le prenne en charge

 

Je ne suis pas sur non plus,...

Ayant le même équipement, on verra bien,..

[lecrabe]

 

Hello

 

Bien que je sois presque nul en Lisp/V-Lisp, je confirme qu'il n'y a AUCUN appel

à des fonctions spécifiques de MAP dans ce programme ! :)

 

Par contre, il y a de nombreux appels à des fonctions provenant

sans doute de la librairie PowerClic :D

 

Joyeuse Année 2009 & Bonne Santé, Le Decapode

 

[(gile)]

Au temps pour moi. :P

 

Face à des fonctions que ni moi ni l'éditeur Visual LISP ne reconnaissait, j'ai parlé un peu vite de fonctions LISP spécifiques à MAP (je sais qu'il en existe), je n'avais pas bien lu le sujet de GEGEMATIC...

[lili2006]

Re,

 

Je viens d'installer powerclic sur MAP 2009 3D, voilà ce que me dis la ligne de commande =>

 

Commande: (if (/= (getcname "_STRETCH") "ETIRER")

(_> (progn

((_> (setq pw-foreign "english")

((_> (vl-propagate 'pw-foreign)

((_> )

(_> )

nil

 

Commande: (setq pw-chem (strcat (vl-registry-read

"HKEY_CURRENT_USER\\SYSTEM\\CurrentControlSet\\Control\\Session

Manager\\Environment" "PowerClicDirectory") "\\"))

"D:\\AUTOCAD -PERSONNALISATION\\UTILITAIRES\\05- POWERCLIC\\INSTALL\\"

 

Commande: (vl-propagate 'pw-chem)

"D:\\AUTOCAD -PERSONNALISATION\\UTILITAIRES\\05- POWERCLIC\\INSTALL\\"

 

Commande: (vl-load-all (strcat pw-chem "pw_loader.lsp"))

 

Loading powerclic.ini2454832

 

"type d'argument incorrect: streamp nil" error success

Commande: (c:powerclicmenu)

 

"type d'argument incorrect: VLA-OBJECT nil" ; erreur: une erreur est survenue

dans la fonction *erreur*type d'argument incorrect: VLA-OBJECT nil

 

Commande: (c:powertextools)

 

"type d'argument incorrect: VLA-OBJECT nil" ; erreur: une erreur est survenue

dans la fonction *erreur*type d'argument incorrect: VLA-OBJECT nil

 

Commande: (pw_LoadPowerClicPartialMenu)

 

PowerClic now initialize mouse keys ...._MenuLoad

Entrez un nom de fichier de personnalisation à charger: D:\AUTOCAD

-PERSONNALISATION\UTILITAIRES\05-

POWERCLIC\INSTALL\french/Pw_partial_menu_2key.mns

Fichier de personnalisation chargé avec succès. Groupe de personnalisation:

POWERCLIC

 

Appuyez sur RETOUR ARRIERE pour interrompre le script.

 

Commande: done.Initialisation du système VBA...

PowerClic now load VBA reactor to add items to shortcutmenu ... done.nil

 

Commande: (pw_InitializeClearMnrClass)

_.-VBARUN

Nom de la macro: InitializeClearMnrClass Appuyez sur RETOUR ARRIERE pour

interrompre le script.

 

Commande: T

 

Commande: (pw_test_1st_launch)

_.-VBARUN

Nom de la macro: PowerClic1stload

Commande: "PowerClic1stload"

 

Commande: (s::startup)

 

"no function definition: S::STARTUP" ; erreur: une erreur est survenue dans la

fonction *erreur*type d'argument incorrect: VLA-OBJECT nil

 

Je ne sais pas si l'install est mauvaise, la version non compatible ou,...

 

Bref, je vais regarder d'un peu plus prés,...

 

Si quelqu'un à une idée en attendant,...

[lili2006]

Re,

 

J'ai bien un ".cui" partiel quasi vide si ce n'est des boutons de la tablette =>

 

http://images2.hiboox.com/images/0108/57a219915229af46229ed3cda4588d7a.jpg

 

Que faire avec ça, pas la moindre idée,....

 

[lili2006]

Rere,

 

Il semble qu'en sélectionnant une entité d'un des exemples fournis, j'ai de nouvelles options sur le clic droit (mais AutoCAD ne reconnait pas les macros,..)

 

http://images1.hiboox.com/images/0108/5ea61d559338a8a18cacb924436a96e0.jpg

 

Du coup, "grouper les objets", je ne sais pas si c'est une fonction AutoCAD 2009 base ou un rajout powerclic (jamais fait attention avant,...).

 

Bon, je crois qu'il faut lire le fichier texte entièrement avant,...

[GEGEMATIC]

Oups, désolé pour l'oubli de la surveillance du sujet ...

PowerClic ne marche certainement pas avec autocad 2009, en tout cas, je ne l'ai jamais testé avec cette version.

Je vais bientôt passer à la 2009, j'en profiterai pour mettre à jour PowerClic

Par contre, charger le vlx de PowerClic devrait suffire à faire marcher les routines que j'ai présenté.

J'aimerai bien mettre PowerClic en openSource, le problème c'est que certains composants (rares) ne m'appartiennent pas, et la personne qui les a développé n'était pas d'accord pour l'open source.

Il faudrait que je trie tout ce merdier, et je n'ai pas le temps, désolé.

Je vais certainement devoir mettre à jour ma carte html, j'en profiterai pour noter un mode opératoire.

 

 

[GEGEMATIC]

voilà un lien ou on peux voir les possibilité de map 2 html

http:// http://www.g-eaux.com/pages_perso/caid/

Avec IE, on a même droit à des infos-bulles (pas avec firefox)

le fichier autocad source:

http:// http://www.g-eaux.com/pages_perso/caid/contours_communes_savoie_LIIe_caid.dwg

les images en références sont à télécharger depuis le site web (clic

droit enregister sous)

J'espère que ça peux aider

gégé

[scls19fr]

Ce qui peut être sympa ça serait de rajouter :

- la mise en lumière de la zone

exemple : http://davidlynch.org/js/maphilight/docs/demo_world.html

 

- l'affichage en texte du nom de la zone avec un effet de grossissement du nom lorsqu'on passe sur le nom ou sur la zone

[lili2006]

Bonsoir à toutes et tous,

 

Par contre, charger le vlx de PowerClic devrait suffire à faire marcher les routines que j'ai présenté.

 

@ priori, non !

 

Je l'ai désinstallé (MAP 2009), donc ne pas pas contrôler mais testerai + tard sur Civil 3D 2009,...

[GEGEMATIC]

Donc comme je l'ai dit dans un autre sujet, une version de PowerClic mise à niveau pour la 2009 est en ligne.

Elle devrait permetre de faire fonctionner Map2html.

Je dis bien devrait, car je n'ai pas fait des tests poussé pour vérifier que PowerClic s'installe correctement dans toutes les situations avec Autocad 2009.

Les retours d'expérience sont les bienvenus.