Ressencer les Variables et les Fonctions Utilisées

[Fraid]

Bonjours,

 

Y a t'il un moyen de connaitre le nom de toutes les variables utilisées ?

 

Ainsi que les fonctions avec leurs arguments ?

 

Parce qu'au bout de quelques années d'accumulation de routines venues d'ailleurs

je pense bien quelles doivent s'emmeler les fonctions dans les parentheses......

[Carboleum]

 

Vas voir du coté de la fonction (atoms-family ...)

 

[(gile)]

salut,

 

Atoms-family retourne la liste de tous les symboles ayant une valeur affectée (fonctions ou variables globales).

Il faut donc un peu filtrer pour y retrouver ses petits.

 

Exemples pour retourner les commandes définies en LISP (defun c:* ...) et les variable globales

 

;;Commandes définies en LISP

(vl-remove-if-not
 '(lambda (x)
    (and
      ;; commandes définies en LISP
      (wcmatch (strcase x) "C:*")
      ;; Commandes AutoCAD + expressTools
      (not (member x
	    '("C:ADDVARS2SCR"	 "C:-BLOCKTOXREF"
	      "C:MVSETUP"	 "C:ALIGNSPACE"
	      "C:SUPERHATCH"	 "C:VLIDE"
	      "C:LSPDUMP"	 "C:DDRMODES"
	      "C:AI_FMS"	 "C:TORIENT"
	      "C:ACETUCS-LEFT"	 "C:CLIPIT"
	      "C:AI_TRAINING_SAFE"
	      "C:AI_DIM_TEXTABOVE"
	      "C:XDLIST"	 "C:COPYM"
	      "C:RTEDIT"	 "C:DEMODIDACT"
	      "C:IMAGEOVERLAP"	 "C:MPEDIT"
	      "C:LSPSURF"	 "C:AI_WEDGE"
	      "C:ACETUCS-RIGHT"	 "C:AI_MESH"
	      "C:AI_BOX"	 "C:PCXIN"
	      "C:TCOUNT"	 "C:TREX"
	      "C:TJUST"		 "C:GOTOURL"
	      "C:3D"		 "C:LAYMCUR"
	      "C:GIFIN"		 "C:EDITTIME"
	      "C:GETSEL"	 "C:MOVEBAK"
	      "C:CHURLS"	 "C:EXOFFSET"
	      "C:LAYOUTMERGE"	 "C:EXTRIM"
	      "C:RENDCALQUECOUR" "C:TUTCLEAR"
	      "C:AI_PSPACE"	 "C:AI_DRAWORDER"
	      "C:BTRIM"		 "C:RTEXT"
	      "C:TFRAMES"	 "C:BLOCKTOXREF"
	      "C:DDEMODES"	 "C:-OVERKILL"
	      "C:VARS2SCR"	 "C:ACETUCS-BOTTOM"
	      "C:ALIASEDIT"	 "C:AI_TORUS"
	      "C:FLATTEN"	 "C:TSPACEINVADERS"
	      "C:GATTE"		 "C:RTUCS"
	      "C:EXPLAN"	 "C:REVERT"
	      "C:AI_DISH"	 "C:FSMODE"
	      "C:FASTSEL"	 "C:LSP"
	      "C:TCASE"		 "C:DDGRIPS"
	      "C:SHP2BLK"	 "C:DATE"
	      "C:AI_MOLC"	 "C:VPSCALE"
	      "C:XLIST"		 "C:AI_PRODUCT_SUPPORT"
	      "C:REPURLS"	 "C:AI_DIM_TEXTCENTER"
	      "C:AI_PRODUCT_SUPPORT_SAFE"
	      "C:TEXTUNMASK"	 "C:DECHARGDIDACT"
	      "C:CDORDER"	 "C:-CDORDER"
	      "C:AI_TILEMODE1"	 "C:BREAKLINE"
	      "C:BLOCKREPLACE"	 "C:EXPRESSMENU"
	      "C:SSX"		 "C:DDSELECT"
	      "C:TIFFIN"	 "C:NCOPY"
	      "C:XDATA"		 "C:ACETUCS-FRONT"
	      "C:MOTIFPS"	 "C:MKSHAPE"
	      "C:TEXTMASK"	 "C:ATTOUT"
	      "C:AI_PYRAMID"	 "C:AI_DOME"
	      "C:BSCALE"	 "C:MSTRETCH"
	      "C:DIMREASSOC"	 "C:SHOWURLS"
	      "C:BLOCK?"	 "C:IMAGEAPP"
	      "C:-TCASE"	 "C:-XLIST"
	      "C:ETBUG"		 "C:MKLTYPE"
	      "C:TUTDEMO"	 "C:3DARRAY"
	      "C:AI_CIRCTAN"	 "C:AI_DESELECT"
	      "C:VLISP"		 "C:PSBSCALE"
	      "C:TCIRCLE"	 "C:EDGE"
	      "C:-REDIRMODE"	 "C:VPSYNC"
	      "C:REDIR"		 "C:TXTEXP"
	      "C:ATTREDEF"	 "C:ACETUCS-BACK"
	      "C:PSFILL"	 "C:TFHELP"
	      "C:-LAYOUTMERGE"	 "C:PLT2DWG"
	      "C:EXPRESSTOOLS"	 "C:BURST"
	      "C:AI_CUSTOM_SAFE" "C:OVERKILL"
	      "C:FS"		 "C:BEXTEND"
	      "C:AI_SELALL"	 "C:ACADINFO"
	      "C:TSCALE"	 "C:IMAGEEDIT"
	      "C:ATTIN"		 "C:REDIRMODE"
	      "C:TEXTFIT"	 "C:AI_SPHERE"
	      "C:AI_CONE"	 "C:-BLOCKREPLACE"
	      "C:QQUIT"		 "C:RTEXTAPP"
	      "C:ACETUCS-TOP"	 "C:BCOUNT"
	      "C:AI_DIM_TEXTHOME"
	      "C:PSTSCALE"	 "C:SAVEALL"
	     )
    )
      )
    )
  )
 (atoms-family 1)
)

;; Variables globales

(vl-remove-if
 '(lambda (x)
    (or
      (member (type (eval (read x))) '(SUBR USUBR EXRXSUBR))
      (wcmatch x "AC*,:VLR*,VLAX*,VLR*,:*")
      (member x
       '("AI_SYSVAR"	 "PAUSE"	 "*LAST-VALUE*"
	 "*LOAD-PRINT*"	 "PI"		 "INITSTRING"
	 "T"
	)
      )
    )
  )
 (atoms-family 1)
)

[Fraid]

Merci :D

 

J'essai de suite

[Fraid]

sa marche super

 

du coup j'ai fait une recherche avec Atoms-family

 

et je suis tombé sur ce post ou Bonuscad nous a délivrer un code monstrueux... :o

 

http://www.cadxp.com/XForum+print-fid-101-tid-7241.html

 

 

Enorme