Caractères unicode

[(gile)]

Salut,

 

Je viens de faire un découverte en nettoyant un DWG qui a dû passer par la Chine : certains noms de calques et de blocs contiennent des caractères chinois. Sur une versions française, ces caractères sont traduits en caractères unicode (U+5916, par exemple).

 

Les fonctions vla-get-Name, vla-get-EffectiveName, vla-get-Layer retournent des chaînes où ces caractères sont remplacés par de points d'interrogation (?) ce qui provoque immanquablement une erreur lorsqu'on utilise ce résultat avec vla-Item.

 

Il semble donc que ce soit encore un exemple où on peut voir que Visual LISP n'est pas "meilleur" qu'AutoLISP : l'utilisation des codes DXF retourne un résultat exploitable.

 

Voici donc 3 petites routines qui fonctionnent respectivement comme vla-get-Name, vla-get-Effectivename et vla-get-Layer à ceci près qu'elles acceptent indifférent un argument de type ENAME ou VLA-OBJECT et ne semblent pas poser de problèmes avec les caractères unicode.

 

;; gc:GetName
;; Retourne le nom de l'objet.
;; Fonctionne avec les nome contenant des caractères unicode.
;;
;; Argument
;; obj : objet dont on cherche le nom (ENAME ou VLA-OBJECT)
(defun gc:GetName (obj / elst)
 (or (= (type ent) 'ENAME) (setq obj (vlax-vla-object->ename obj)))
 (cdr (assoc 2 (entget obj)))
)

;; gc:GetEffectiveName
;; Retourne le nom de l'objet.
;; Fonctionne avec les nome contenant des caractères unicode.
;;
;; Argument
;; blkRef : référence de bloc (ENAME ou VLA-OBJECT)
(defun gc:GetEffectiveName (blkRef / elst name)
 (and (= (type blkRef) 'VLA-OBJECT) (setq blkRef (vlax-vla-object->ename blkRef)))
 (setq	elst (entget blkRef)
name (cdr (assoc 2 elst))
 )
 (if (wcmatch name "`*U*")
   (cdr
     (assoc 2
     (entget
       (cdr
	 (assoc	340
		(entget
		  (cdr
		    (assoc 360
			   (entget
			     (cdr
			       (assoc 360
				      (entget (cdr (assoc 360 elst)))
			       )
			     )
			   )
		    )
		  )
		)
	 )
       )
     )
     )
   )
 )
 name
)

;; gc:GetLayer
;; Retourne le nom du calque de l'entité.
;; Fonctionne avec les nom contenant des caractères unicode.
;;
;; Argument
;; ent : entité dont on cherche le nom du calque (ENAME ou VLA-OBJECT)
(defun gc:GetLayer (ent)
 (and (= (type ent) 'VLA-OBJECT) (setq ent (vlax-vla-object->ename ent)))
 (cdr (assoc 8 (entget ent)))
)