Creare nuovi elementi

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#1
Salve a tutti,
dopo l'esecuzione di questo codice :
Codice:
(command "_scale" LineaPN "" PrimoTargetLat (/ Dist5 LungLineaPN) "")
(command "_scale" LineaTA "" PrimoTargetLat (/ Dist3 LungLineaTa) "")
(command "_copy" LineaPN "" PrimoTargetLat PrimoGps "")
(command "_copy" LineaTA "" PrimoTargetLat PrimoGps "")
vorrei creare LineaPN e LineaTA come nuovi elementi, nel mio caso da ruotare.
Grazie mille.
 

rpor66

Utente Standard
Professione: Programmatore
Software: AutoCad, GstarCAD, CadWorx, Excel, Lisp, VBA
Regione: Sicilia
#2
(command "_copy" LineaPN "0,0" "0,0" "") crea la copia della linea
(setq NuovaLineaPn (entlast)) memorizza il nome dell'ultima entità creata
stessa procedura con LineaTA
Fai attenzione che se alla coordinata 0,0 c'è qualche entità è preferibile spegnere gli osnap prima di copy.
 

Angelo2449

Utente Junior
Professione: Pensionato
Software: Autocad
Regione: Lombardia
#3
Grazie,
ma allora posso scrivere :
Codice:
(command "_scale" LineaPN "" PrimoTargetLat (/ Dist5 LungLineaPN) "")
(command "_scale" LineaTA "" PrimoTargetLat (/ Dist3 LungLineaTa) "")
(command "_copy" LineaPN "" PrimoTargetLat PrimoGps "")
(setq NuovaLineaPN (entlast))
(command "_copy" LineaTA "" PrimoTargetLat PrimoGps "")
(setq NuovaLineaTA (entlast))
per ottenere NuovaLineaPN e NuovaLineaTA rispettivamente in PrimoGps, mi sembra di averlo già fatto ma veniva copiato, credo, solo l'ultimo.
Grazie.