CAD Fórum : Array “ručne“ alebo v rutine. https://www.cadforum.cz/forum/ Fri, 05 Jun 2026 03:26:18 +0000 Wed, 27 Jan 2021 09:24:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=31546 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Array “ručne“ alebo v rutine. : Použijte (initcommandversion).Samo...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=31546&PID=122662&title=array-rucne-alebo-v-rutine#122662 Autor: johny
Předmět: 31546
Zasláno: 27.led.2021 v 09:24

Použijte (initcommandversion).
Samo musíte mít defaultně arrayassociativity. Nebo si to do toho kódu mužete připsat.

(defun c:MenoArray ( / r c)

  (if (and (or (tblsearch "block" "meno-block")
       (prompt "\nError: 'meno-block' not found in the drawing."))
   (setq r (getint "\nNo of rows: "))
   (setq c (getint "\nNo of columns: "))
   )
    (progn
      (command "_.insert" "meno-block" "_s" 1 "_r" 0 "_non" '(0 0))
      (initcommandversion)
      (command "_.array" "_last" "" "_rec" "_row" r 5 0 "_col" c 5 "_exit")))
  (princ)
  )


Upravil johny - 27.led.2021 v 09:41]]> Wed, 27 Jan 2021 09:24:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=31546&PID=122662&title=array-rucne-alebo-v-rutine#122662 <![CDATA[Array “ručne“ alebo v rutine. : Často používam Array jedného prvku...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=31546&PID=122659&title=array-rucne-alebo-v-rutine#122659 Autor: Lufttechnik
Předmět: 31546
Zasláno: 27.led.2021 v 08:14

Často používam Array jedného prvku , tak by som stále nemusel odpovedať na ponuku príkazu napisal som autolispovský riadok , kde zadám iba počet radov a stlpcov.
Zisťujem , že výsledok je však rozdielny v tom , že „ručný“ array mi vytvorí pole prvkov ako blok , teda všetko sa drží v kope , ale ten lisp ich nechá separátne. Teda ako rozbitý blok.
V podstate ten array nevykona „ASociative“ – taká je tam možnost , ale v nedokážem mu to v tom lispe zadat. Prosim poradite mi kde robim chybu ?
(DEFUN C:array1 ()
(COMMAND "INSERT" "meno-blocku" "0,0" "1" "1" "0" )
(SETQ RR (GETINT "POCET RADOV : "))
(SETQ SS (GETINT "POCET SLTPCOV : "))
(COMMAND "ARRAY" "L" "" "R" SS RR 5 5 )    - alternativa 1
(COMMAND "ARRAY" "L" "" "R" SS RR 5 5 AS Y "" ) - skúšam i toto alt.2
)

čísla 5 - sú zadane napevno ako rozostupy.


Upravil Lufttechnik - 27.led.2021 v 08:17]]> Wed, 27 Jan 2021 08:14:47 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=31546&PID=122659&title=array-rucne-alebo-v-rutine#122659