機能しないコード

[Angelo2449]

salve a tutti,
premesso che tutte le variabili sono valorizzate, queste poche linee di codice :

    (setq davsx (polar psex agsx 0.05))
    ;;(command "_circle" davsx 0.05)
    (setq davsx1 (polar davsx agsu 0.05))
    ;;(command "_circle" davsx1 0.05)
    (command "_line" davsx1 davsx "")

si comportano in modo strano.
se traccio i cerchi anche la linea viene tracciata, altrimenti ottengo il messaggio :
"punto interno: linea di lunghezza zero creata nel punto (-1100.06, 59.85, 0.00)"
come è possibile?
grazie.

 

[Cristallo]

fa una prova, inserisci prima della prima riga
(setvar "osmode" 0)
vediamo se cambia qualcosa.

 

[Angelo2449]

grazie!!!
non mi ricordo mai di ripristinare l'osnap!
ho messo comunque :

(setvar "osmode" 16384)

grazie ancora cristallo, stavo impazzendo.

 

[Cristallo]

perche 16384? cosa è?
tu hai capito, vero, cosa succedeva? in pratica l'osnap intercettava il primo punto e quindi la linea era di lunghezza zero.

io uso questa sequenza sempre, nei lisp, in modo che risulti trasparente all'utente.

(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
...
...
...
(setvar "osmode" oldosmode)+

 

[Cristallo]

prima o poi dovrai passarmi uno dei tuoi lisp, per capire cosa fanno... visto che metà dei problemi te li ho risolti io :roflmao::roflmao::roflmao:
scherzo ne!