Dobrý den,

 

potřebuji zapsat do skriptu sekvenci, která vybere blok A, blok B, blok C vymaže je a vyčistí výkres na bloky. Nejsem bohužel u AutoCADu a neznám nazpamět klíčová slova, pomůže někdo prosím?

 

Předem děkuji

 

Příkaz: cisti_vn
; chyba: chybný typ argumentu: stringp <Selection set: 32>

 

Pomůžete prosím?

 

[QUOTE=cisti_vn.lsp]

(defun c:cisti_vn ( / sezn_soub sez_togg sez_eb p_s CR I adr_es co_cistit KONEC
   vychozi_adresar)

 

****************************
(setq vychozi_adresar "c:/" )
****************************

 

(defun scri_pt ( / Pis_demo I )

 

(setvar "FILEDIA" 0)

 

(setq p_atr (cdr (nth 0 sez_eb)))
(setq Pis_demo (open (strcat adr_es "cisti_vn.scr") "w")) 
(write-line (setq QS1 (ssget "_X" '((0 . "INSERT") (2 . "Podpis_*,Remes")))) Pis_demo) 
(write-line (strcat "_erase" QS1 "") Pis_demo)
(write-line (strcat "_purge " co_cistit " * _n" ) Pis_demo)
(write-line "_qsave" Pis_demo)

 

(setq I 1)
(repeat (- (length sezn_soub) 1)

 

    (if (= (cdr (nth I sez_togg)) "1") 
  (progn
  (write-line (strcat "_open \"" adr_es (car (nth I sez_eb)) "\"") Pis_demo)
    (write-line (setq QS1 (ssget "_X" '((0 . "INSERT") (2 . "Podpis_*,Remes")))) Pis_demo) 
    (write-line (strcat "_erase" QS1 "") Pis_demo)
  (write-line (strcat "_purge " co_cistit " * _n" ) Pis_demo)
  (write-line "_qsave" Pis_demo)
       (if (> (atoi(substr(getvar "ACADVER") 2 1)) 4)
      (write-line "_close" Pis_demo)
         )
        )
 
      )
 (setq I (+ 1 I))
)

 

(write-line "_new " Pis_demo)
(write-line "FILEDIA 1 " Pis_demo)
(write-line "" Pis_demo)

 

(close Pis_demo)

 

(command "_script" (strcat adr_es "cisti_vn.scr"))

 

);defun

[\QUOTE]

 

Bohužel nejsem tak zdatný programátor abych to přidal do toho LISPu a na studování příručky momentálně taky není čas neboť termín odevzdání dokumentace neskutečně hoří ;) a práce je na ní habaděj.

 

Najde se prosím nějaká dobrá duše?

(ssget "X"(list(cons 0 "INSERT")(cons 2 NFP))))