Créer un calque en lisp

[lenoil]

salut à tous,

 

est-il possible de créer un calque en lisp en définissasnt les couleurs , le type d'objet (ligne, polygone, ....)

Si oui avez vous un exemple car je sais pas comment m'y prendre ?

 

 

Merci à tous

 

[Tramber]

Le type d'objet ?

Impossible

 

(command "calque" "E" "nomducalque" "")

 

ou

(defun c:NVC()
 (setq nnom(getstring"\nNom du calque ? "))
 (command "calque" "E" nnom "")
)

 

le lisp chargé on tape NVC

 

Pour mettre au point ce lisp, j'ai appris à répondre à la commande -CALQUE à la main d'abord.

 

Mais ce n'est pas "aller plus loin en LISP", c'est "débuter en LISP".

 

 

 

[Edité le 28/3/2006 par Tramber]

[lenoil]

ok merci

 

et sui on veut tester son existence avant c'est a dire ne le créer que si le calque existe ....

 

Comment faire ?

 

 

[Tramber]

 

(tblsearch "layer" "0") la liste de l'entité calque

(tblsearch "layer" "Calquequinexistepas") renvoie nil

 

Au fait, E pour Etablir dans la commande Calque ne pose jamais de problème, que le calque existe ou non, il le crée le cas échéant et le rend courant.

 

[bonuscad]

Ou par (entmake)

 

Ex:

(setq name_layer (getstring T "\nDonner le nom du calque: "))
(if (not (tblsearch "LAYER" name_layer))
(entmake
	(list
		(cons 0  "LAYER")
		(cons 100 "AcDbSymbolTableRecord")
		(cons 100 "AcDbLayerTableRecord")
		(cons 2 name_layer)
		(cons 70 0)
		(cons 62 7)
		(cons 370 -3)
		(cons 6 "Continuous")
	)
)
)

[BTO]

ou encore :

(setq objAcad (vla-get-activedocument (vlax-get-acad-object)))

(vla-add (vla-get-layers objAcad) "Mon calque")

 

Bruno Toniutti

 

[Patrick_35]

ou encore :

(setq objAcad (vla-get-activedocument (vlax-get-acad-object)))

(vla-add (vla-get-layers objAcad) "Mon calque")

 

Bruno Toniutti

 

Eh, bienvenue à un nouveau qui manie le vlisp

 

@+

[BTO]

Eh, bienvenue à un nouveau qui manie le vlisp

 

Merci :)