Examples Lisp for Autocad acad.lsp

AutoLisp

Le fichier acad.lsp est fondamental : Autocad le charge par défaut.
Il a été modifié pour répondre aux demandes spécifiques.

;---------------------------------------------------------------------------------
;---------------------      PROCEDURE DE DEMARRAGE  ---------------------------
;---------------------      Copyright (C) 1987... Jean-Paul MOLINA ---------------
;---------------------------------------------------------------------------------

;                            CONDITIONS GENERALES

;------------------------------------------------------------------------------
(defun stoppe( )
     (defun *error* (s)
	(if old_error (setq *error* old_error))
	(princ)
     )
     (alert (strcat "Erreur: Impossible de trouver mabib.lsp!"
		"\n\nCommandes indisponibles!")
     )
     (exit)
)
;------------------------------------------------------------------------------
(defun beep( / f)
   (write-line "\007" (setq f (open "CON" "w")))
   (setq f (close f))
)
;------------------------------------------------------------------------------
(defun Supp_Echo()
       (setq mark (getvar "blipmode"))
       (setq eko (getvar "cmdecho"))
       (setvar "blipmode" 0)
       (setvar "cmdecho" 0)
)
;------------------------------------------------------------------------------
(defun Remet_Echo()
       (setvar "blipmode" mark)
       (setvar "cmdecho" eko)
)
;------------------------------------------------------------------------------
(defun chargement( / boitedia)
    (Supp_Echo)
    (setvar "aperture" 5)
    (setvar "limcheck" 1)

(cond                 ;vérifie l'existence des fichiers,puis charge
       (  (not (findfile "mabib.lsp") ) 
	       (stoppe) 
	       nil
       )
       ( (eq "ECHEC" (load "mabib" "ECHEC"))
	  (alert "Chargement de mabib.lsp non effectué!")
	  nil
       )
       (T  (progn
		 (command "MENU" ff )
		;---------- création du plan RLT  de couleur rouge
		(command "PLAN" "N" "RLT" "CO" "rouge" "RLT" "")
		(command "APROPOS")
	   )
       )
    )
     (Remet_Echo) 
)
;------------------------------------------------------------------------------
;    commandes
;-----------------------------------------------------------------------------
(defun C:nettoie_plan(/ jeu)
    (Supp_Echo)
    (setq pl (getvar "CLAYER"))
    ;------------------------------ plan courant RLT ???
    ; ------  si oui on se met dans le plan 0
    ;-----------------------------------------------------------------
    (if (wcmatch pl "RLT") (command "PLAN" "CH" "0" "") )
    ;---  on nettoie le plan RLT ---------------------
    (setq jeu (ssget "X" '((8 . "RLT"))) )
    ;---------  on efface si entités présentes
    (if (= jeu nil) () (command "EFFACER" jeu  "" ) )
    (command "RESVUE" "O" 500)  ; résolution des cercles
    (princ)
    (Remet_Echo)
)
;---------------------------------------------------------------------------------------
;         efface les entités du plan courant avec le typlign ttyp
;----------------------------------------------------------------------------------------
(defun C:efface_trait(ttyp / A jeu pl alist)
    (Supp_Echo)
    (setq pl (getvar "CLAYER"))
    (setq alist (list "\nPas d'entité avec le type de ligne " ttyp " trouvé!"))
    (setq jeu (ssget "X" (list (cons 8 pl) (cons 6 ttyp)) ))
    (if (= jeu nil)
	 (ForEach A alist (princ A))    ; si nil
	 (command "EFFACER"  jeu  "")   ; sinon
    )
    (setq ttyp nil)
    (princ)
    (Remet_Echo)
)
;------------------------------------------------------------------------------
(if s::startup
    (setq s::startup (append s::startup '((chargement)) ))
    (defun s::startup() (chargement) )
)
;------------------------------------------------------------------------------

Page de Jean-Paul Molina

Subjects

Resources

C.A.D.

Langages

Flash

Systems

Social Networks

AutoLisp