Používám tento lisp ma spojování do křivek

(defun C:Krivspoj( / ss index n Ano tepent) ;spoj "krivky" s mezerou do 2
(command "_select" pause)
(setq ss (ssget "_p"))
    (setq index 0
   n (sslength ss))
    (repeat n
      (setq typent (cdr (assoc 0 (entget (ssname ss index)))))
       (if (or (equal typent "LINE") (equal typent "ARC"))
(setq Ano T))
       (setq index (+ 1 index)))

(command "_pedit" "_m" "_p" "")
(if Ano (command "_y")) ;Kdyz je cara nebo oblouk
(command "_j" "_j" "_e" "2.00" "")
(princ)
)

Vypisuje tuto chybu:
Chyba: Neznámé selhání příkazů (command-s)
Nelze vyvolat (command) z *chyba* bez předchozí volání (*push-error-using-command*).
Doporučuje se převést volání příkazu (command) na (command-s).

Který nahradit nebo všechny. Zkoušek už jsem skoro vše, ale výpis je pořád stejný.

Možná dělá, ale ne úplně podle představ.
Něco mi na SPOJ vadí, ale teď si nevzpomenu co.

Klasické zlepšení k horšímu.
Když to v tom lispu zaměním, píše to pořád stejnou chybu.
Tady u toho lispu mi vyhovovalo, že jsem mohl vybrat cokoliv, kdekoliv a on spojil vše co mohl.
U příkazu SPOJ mi to tak úplně nedaří. Snad si časem zvyknu, nebo budu používat jiný list z GG menu.

Upravil zdrk - 10.zář.2014 v 16:29

;Nemám acad2015, vlastně teď žádný acad k dispozici, tak nevím jestli to pomůže vašemu problému, kód lze zjednodušit s setvar "peditaccept" 1.