Tworzenie nowego układu

[geo-tech]

Witam,

Interesuje mnie możliwość stworzenia np. 200 układów z zadaną numeracją np. szkic1, szkic2 i tak do 200.

 

[kojacek]

Nie ma problemu. Zainteresuj się CADPL-Pack'iem: http://forum.cad.pl/cadpl-pack-v1-lsp-t78161.html

Potem, wczytaj go, oraz poniższą funkcję:

(defun -MakeLayout (Start End Pref / i n l)
  (setq i Start
        l (layoutlist)
  )
  (while
    (< i End)
    (progn
      (setq n (strcat Pref (itoa i)))
      (if
        (not (member n l))
        (vla-Add (cd:ACX_Layouts) n)
      )
      (setq i (1+ i) l (cons n l))
    )
  )
)

Ma ona trzy argumenty: Start - to liczba całkowita od jakiej zaczyna się licznik, End - to koniec, Pref to łańcuch tekstowy, nazwy układu.

Wywołujesz ją w ten sposób:

(-MakeLayout 1 201 "Szkic")

i po chwili masz te Layouty...

kojacek (https://kojacek.wordpress.com)

Edited February 15, 2017 by kojacek