Neue Schichten erstellen

[joe]

Bitte beachten Sie diese

(Defun c:crealay()
(setq var)
(getstring "\ninseriting the layer name: ")
(Befehl "_layer" "_n" var)
(sektq)
(getstring "\ninseriting color for questo schicht: "
(befehl "_layer" mit var ")
(sectq var nil)
(setq mit nil)
(princ)
)

ich möchte an stelle von "questo schicht"der name eingefügt" und dann stellen sie sicher, dass, wenn es bereits einen anderen ähnlichen namen gibt, die anfrage wiederholt

können sie mir bitte helfen?

 

[rpor66]

(getstring (strcat "\ninserire il color per il layer " war ": "))))

 

[GP.]

pro il controllo sul nome layer esistente:


(setq var "0")
(while (tblsearch "layer" var)
(setq var (getstring "\ninserire il nome del layer: "))
(wenn (tblsearch "layer" var) (alert (strcat "il layer \"" var "\" è già esistente")))
)
(Befehl "_layer" "_n" var ")

...... ecc.

 

[joe]

vielen dank.
ich bringe es morgen rein.
guten abend

 

[joe]

funktioniert gut
nur, wenn ich eine schicht aus zwei namen einfügen muss (z.b.: außenwände) ich kann den raum nicht einfügen, weil die bar auf der tastatur dem sendeschlüssel entspricht.
können sie dies im code überwinden, um sicherzustellen, dass die leertaste nicht die funktion des sendens hat?

 

[GP.]

so dass die string leere räume enthalten kann:

(setq var) t "\ninseri il nome del layer: "