https://www.cadforum.cz/forum/ Sun, 14 Jun 2026 09:34:38 +0000 Thu, 23 Nov 2017 14:41:16 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25268 https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109521&title=autolisp-pomoc#109521 Autor: johny
Předmět: 25268
Zasláno: 23.lis.2017 v 14:41

Snad takto, snad to pomůže

uploads/1045/Squares_-_popis.lsp

]]> Thu, 23 Nov 2017 14:41:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109521&title=autolisp-pomoc#109521 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109515&title=autolisp-pomoc#109515 Autor: arcHI4
Předmět: 25268
Zasláno: 23.lis.2017 v 11:50

Viem, že to bude znieť dosť otravne, ale vedeli by ste/mali by ste čas ten kód iba stručne vysvetliť ? čo ktorý riadok iba tak dvojslovne znamená ?
]]> Thu, 23 Nov 2017 11:50:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109515&title=autolisp-pomoc#109515 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109434&title=autolisp-pomoc#109434 Autor: arcHI4
Předmět: 25268
Zasláno: 20.lis.2017 v 09:33

Je to super   Vďaka
]]> Mon, 20 Nov 2017 09:33:26 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109434&title=autolisp-pomoc#109434 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109433&title=autolisp-pomoc#109433 Autor: johny
Předmět: 25268
Zasláno: 20.lis.2017 v 09:19

Ou, pravdaže. Zkuste to takto.

(vl-load-com)

(defun c:Squares ( / *error* adoc pnt rad clr n i cmd 1+-)

  (defun *error* (msg)

    (if (not (wcmatch msg "Function cancelled,quit / exit abort,console break,end"))

      (princ (strcat "\nError: " msg)))

    (if cmd (setvar 'CMDECHO cmd))

    (vla-endundomark adoc)

    (princ))

  (vla-endundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))

  (vla-startundomark adoc)

  

  (if (and (setq pnt (getpoint "\nSpecify centre of square: "))

   (not (initget (+ 2 3)))

   (setq rad (getdist "\nSpecify initial radius: "))

   (not (initget 2))

   (setq n (getdist (strcat "\nSpecify number of steps (min: -" (itoa (fix rad)) "): ")))

   (or (>= (+ rad n) 0)

       (prompt "\nError: Number of decreasing steps leads radius below zero!"))

   (setq 1+- (if (minusp n) 1- 1+)

n (abs n) 

i 0

clr 1

cmd (getvar 'CMDECHO))

   (setvar 'CMDECHO 0)

   )

    (while (<= (setq i (1+ i)) n)

      (command "_.POLYGON" 4 "_non" pnt "_C" rad

       "_.CHPROP" "_L" "" "_C" (setq clr (if (= clr 251) 11 (+ clr 10))) "")

      (setq rad (1+- rad))))

  (*error* "end")

)

]]> Mon, 20 Nov 2017 09:19:51 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109433&title=autolisp-pomoc#109433 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109428&title=autolisp-pomoc#109428 Autor: arcHI4
Předmět: 25268
Zasláno: 19.lis.2017 v 20:38

Je to super ;) mám iba ešte jednu malú prosbu, nevyznám sa vám totižto do toho kódu (to asi do žiadneho) takže neviem čo prepísať.

Keď zadávam záporný počet štvorcov (čiže vykresluje dovnútra toho prvého štvorca), tak tá minimálna hodnota trochu nesedí s realitou.

Príklad: zadám začiatočný bod, zadám polomer prvého štvorca (povedzme 2)

,

 a píše mi, že najmenšia možná hodnota je -2).


To znamená že by malo vykresliť ešte jeden štvorec do vnútra (čiže jeho polomer by bol 1).

Ale nič sa nevykreslí. Dala by sa ešte táto chybička opraviť, aby vytvorilo to čo na poslednom screen-e ? O:-) Veľmi pekne ďakujem za Váš čas.





]]> Sun, 19 Nov 2017 20:38:16 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109428&title=autolisp-pomoc#109428 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109427&title=autolisp-pomoc#109427 Autor: johny
Předmět: 25268
Zasláno: 19.lis.2017 v 19:16

Někdy je lepší obrázek... Snad jsem to pochopil, jinak si to upravte dle libosti...

(vl-load-com)

(defun c:Squares ( / *error* adoc pnt rad ckr n i cmd 1+-)

  (defun *error* (msg)

    (if (not (wcmatch msg "Function cancelled,quit / exit abort,console break,end"))

      (princ (strcat "\nError: " msg)))

    (if cmd (setvar 'CMDECHO cmd))

    (vla-endundomark adoc)

    (princ))

  (vla-endundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))

  (vla-startundomark adoc)

  

  (if (and (setq pnt (getpoint "\nSpecify centre of square: "))

   (not (initget (+ 2 3)))

   (setq rad (getdist "\nSpecify initial radius: "))

   (not (initget 2))

   (setq n (getdist (strcat "\nSpecify number of steps (min: -" (itoa (fix rad)) "): ")))

   (or (> (+ rad n) 0)

       (prompt "\nError: Number of decreasing steps leads radius below zero!"))

   (setq 1+- (if (minusp n) 1- 1+)

n (abs n) 

i 0

clr 1

cmd (getvar 'CMDECHO))

   (setvar 'CMDECHO 0)

   )

    (while (<= (setq i (1+ i)) n)

      (command "_.POLYGON" 4 "_non" pnt "_C" rad

       "_.CHPROP" "_L" "" "_C" (setq clr (if (= clr 251) 11 (+ clr 10))) "")

      (setq rad (1+- rad))))

  (*error* "end")

)

]]> Sun, 19 Nov 2017 19:16:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109427&title=autolisp-pomoc#109427 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109423&title=autolisp-pomoc#109423 Autor: arcHI4
Předmět: 25268
Zasláno: 19.lis.2017 v 13:18

To zadanie je napísané vážne dosť nezrozumiteľne, ale pokúsim sa to nejak zreprodukovať:

Celé by sa to malo podľa mňa zaštítiť pod príkazom ''polygon'', s tým, že počet strán bude pevne 4 (aby to bol vždy štvorec), a vždy bude na pevno pokračovať s možnosťou vpisovania kružnice (circumscribed about circle), aby sa vlastne dosiahlo zadávanie toho ''polomeru kružnice''

Čiže asi nejaká postupnosť by mohla vyzerať nasledovne:

Zadáme príkaz --> (cad si automaticky vyberie polygon a zadá počet strán na 4) --> od nás si vypýta bod odkiaľ bude kresliť dané štvorce ---> (cad automaticky vyberie ''circumscribed about circle'') --> a vypýta si od nás hodnotu, ktorá bude vlastne polomer štvorca ---> tento štvorec sa vykreslí

Drúhá časť: cad si vypýta či chceme kresliť štvorce s menším alebo väčším polomerom a potom na ich počet (s pevne daným krokom napr. 1) a každý inou farbou (je úplne jedno aké farby).

A treba nejako vyriešiť ešte ten zápor.




Upravil arcHI4 - 19.lis.2017 v 16:53]]> Sun, 19 Nov 2017 13:18:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109423&title=autolisp-pomoc#109423 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109420&title=autolisp-pomoc#109420 Autor: Vladimír Michl
Předmět: 25268
Zasláno: 18.lis.2017 v 19:06

Asi bude potřeba podrobnější zadání - co je "poloměr čtverce"? co je myšleno krokem a počtem - nějaké pole? jak se mají střídat barvy?]]> Sat, 18 Nov 2017 19:06:36 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109420&title=autolisp-pomoc#109420 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109419&title=autolisp-pomoc#109419 Autor: arcHI4
Předmět: 25268
Zasláno: 18.lis.2017 v 17:50

Dobrý deň všetkým,

mám jeden problém, ktorý sám neviem vyriešiť kvôli mojej slabej znalosti LISPu v AutoCADE. Potrebujem napísať nasledovné:

Užívateľ zadá stred a stranu štvorca. Následne sa ho AutoCAD opýta, či chce kresliť štvorce s menším alebo väčším polomerom a na počet štvorcov. Tie sa potom vykreslia (s pevne daným krokom, napr. 1) každý inou farbou. Pozor na prípad, kedy je dĺžka strany záporná.

Našiel by sa tu niekto, kto ovláda LISP a zvládol by niečo podobné ? Veľmi veľmi by ste mi pomohli.

Vopred ďakujem.
]]> Sat, 18 Nov 2017 17:50:10 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25268&PID=109419&title=autolisp-pomoc#109419