Lisp erreur: ADS request error

[lewis185]

Bonjour,Bonsoir,

En rapport avec ce sujet : http://forums.autodesk.com/t5/autocad-francais/lisp-for-set-value-attribute-auto/td-p/5932789
J'ai créé un nouveau lisp qui me donne l'erreur :
; error: ADS request error

Voici le lisp:

(defun c:08_0(/ bloc boucle dxf js nom blocS boucleS dxfS jsS nomS)
  (setq boucle 0)
; ----------------------- Boucle grand titre -----------------------
  (if (setq js (ssget "x" '((0 . "INSERT") (2 . "TBM_DATA01_F,TBM_DATA01_FN,TBM_DATA01_N,TBM_DATA01_NF") (66 . 1))))
    (while (setq bloc (ssname js boucle))
      (setq dxf (entget bloc)
	    nom (cdr (assoc 2 dxf))
      )
      (cond
; ------------------------------ FBMZ ------------------------------
; ---------------------------- Français ----------------------------
	((= nom "TBM_DATA01_F")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_F" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_F" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_F" "BRUXELLES-MIDI")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_F" "BLOCK 1")
	  (setpropertyvalue bloc "AT_DATA_DESC1_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_F" "IMPLANTATION, POSE DES CABLES")
	  (setpropertyvalue bloc "AT_DATA_DESC3_F" "DISTRIBUTION")
	  (setpropertyvalue bloc "AT_DATA_DESC4_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_F" "LOGE XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_F" "")
	)
; --------------------- Français / Néérlandais ---------------------
	((= nom "TBM_DATA01_FN")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_N" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_N" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_N" "BRUSSEL-ZUID")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_N" "BLOK 1")
	  (setpropertyvalue bloc "AT_DATA_DESC1_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_N" "INPLANTING, AANLEG VAN DE KABELS")
	  (setpropertyvalue bloc "AT_DATA_DESC3_N" "VERDELING")
	  (setpropertyvalue bloc "AT_DATA_DESC4_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_N" "KEET XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_N" "")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_F" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_F" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_F" "BRUXELLES-MIDI")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_F" "BLOCK 1")
	  (setpropertyvalue bloc "AT_DATA_DESC1_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_F" "IMPLANTATION, POSE DES CABLES")
	  (setpropertyvalue bloc "AT_DATA_DESC3_F" "DISTRIBUTION")
	  (setpropertyvalue bloc "AT_DATA_DESC4_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_F" "LOGE XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_F" "")
	)
; ------------------------------ FBN -------------------------------
; --------------------------- Néérlandais --------------------------
	((= nom "TBM_DATA01_N")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_N" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_N" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_N" "BRUSSEL-NOORD")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_N" "BLOK 8")
	  (setpropertyvalue bloc "AT_DATA_DESC1_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_N" "INPLANTING, AANLEG VAN DE KABELS")
	  (setpropertyvalue bloc "AT_DATA_DESC3_N" "VERDELING")
	  (setpropertyvalue bloc "AT_DATA_DESC4_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_N" "KEET XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_N" "")
	)
; --------------------- Néérlandais / Français ---------------------
	((= nom "TBM_DATA01_NF")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_N" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_N" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_N" "BRUSSEL-NOORD")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_N" "BLOK 8")
	  (setpropertyvalue bloc "AT_DATA_DESC1_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_N" "INPLANTING, AANLEG VAN DE KABELS")
	  (setpropertyvalue bloc "AT_DATA_DESC3_N" "VERDELING")
	  (setpropertyvalue bloc "AT_DATA_DESC4_N" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_N" "KEET XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_N" "")
	  (setpropertyvalue bloc "AT_DATA_LINENUM_F" "")
	  (setpropertyvalue bloc "AT_DATA_ZONE_F" "")
	  (setpropertyvalue bloc "AT_DATA_STATION_F" "BRUXELLES-NORD")
	  (setpropertyvalue bloc "AT_DATA_BLOCKNUM_F" "BLOCK 8")
	  (setpropertyvalue bloc "AT_DATA_DESC1_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC2_F" "IMPLANTATION, POSE DES CABLES")
	  (setpropertyvalue bloc "AT_DATA_DESC3_F" "DISTRIBUTION")
	  (setpropertyvalue bloc "AT_DATA_DESC4_F" "")
	  (setpropertyvalue bloc "AT_DATA_DESC5_F" "LOGE XX")
	  (setpropertyvalue bloc "AT_DATA_DESC6_F" "")
	)
      )
      (setq boucle (1+ boucle))
(prompt "\nPage Title ok")
(c:tbmupdate)
(c:TBMBlockUpdateSmallTitle)
    )
  )
; ----------------------- Boucle petit titre -----------------------
  (setq boucleS 0)
  (if (setq jsS (ssget "x" '((0 . "INSERT") (2 . "TBM_DATA01_S_F,TBM_DATA01_S_FN,TBM_DATA01_S_NF,TBM_DATA01_S_N") (66 . 1))))
    (while (setq blocS (ssname jsS boucleS))
      (setq dxfS (entget blocS)
	    nomS (cdr (assoc 2 dxfS))
      )
      (cond
; ------------------------------ FBMZ ------------------------------
; ---------------------------- Français ----------------------------
	((= nomS "TBM_DATA01_S_F")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_F" "Implantation, pose des cables")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_F" "Distribution - LOGE XX")
	)
; --------------------- Français / Néérlandais ---------------------
	((= nomS "TBM_DATA01_S_FN")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_F" "Implantation, pose des cables")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_F" "Distribution - LOGE XX")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_N" "Inplanting, aanleg van de kabels")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_N" "Verdeling - KEET XX")
	)
; ------------------------------ FBN -------------------------------
; --------------------------- Néérlandais --------------------------
	((= nomS "TBM_DATA01_S_N")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_N" "Inplanting, aanleg van de kabels")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_N" "Verdeling - KEET XX")
	)
; --------------------- Néérlandais / Français ---------------------
	((= nomS "TBM_DATA01_S_NF")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_N" "Inplanting, aanleg van de kabels")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_N" "Verdeling - KEET XX")
	  (setpropertyvalue blocS "AT_DATA_DESC1_S_F" "Implantation, pose des cables")
	  (setpropertyvalue blocS "AT_DATA_DESC2_S_F" "Distribution - LOGE XX")
	)
      )
      (setq boucleS (1+ boucleS))
(prompt "\nSmalls Titles ok")
    )
  )
(c:code)
)

Est ce que l'un de vous pourrait m'aider ?

Bien à vous,

Lewis185

[lewis185]

j'ai résolu mon problème 😃