https://www.cadforum.cz/forum/ Thu, 14 May 2026 22:15:44 +0000 Thu, 11 Jul 2013 16:53:37 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=17491 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=17491&PID=79370&title=autolisp-2014#79370 Autor: Kamil Hronovský
Předmět: 17491
Zasláno: 11.čvc.2013 v 16:53

Problém byl s proměnnou ATTDIA - po změně na 0, pracuje jak má.
]]> Thu, 11 Jul 2013 16:53:37 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79370&title=autolisp-2014#79370 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79368&title=autolisp-2014#79368 Autor: Vladimír Michl
Předmět: 17491
Zasláno: 11.čvc.2013 v 16:37

V LISPu by být rozdíl neměl - spíš jsou možná jinak nastavené ATTREQ a podobné parametry chování samotného příkazu _-INSERT. Zkuste jej nejprve ručně, jestli se v onom výkresu neptá na něco dalšího.]]> Thu, 11 Jul 2013 16:37:48 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79368&title=autolisp-2014#79368 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79366&title=autolisp-2014#79366 Autor: alfred
Předmět: 17491
Zasláno: 11.čvc.2013 v 16:32

Dialog pro zadání hodnot atributů při vložení bloku?

Není špatně nastavena proměnná [VAR]ATTDIA[/VAR]?
]]> Thu, 11 Jul 2013 16:32:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79366&title=autolisp-2014#79366 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79364&title=autolisp-2014#79364 Autor: Kamil Hronovský
Předmět: 17491
Zasláno: 11.čvc.2013 v 15:32

Zdravím,
je nějaký rozdíl v funkčnosti lispu mezi 2013 a 2014?

mám takovýhle prográmek, který čísluje body - nakreslí kružnici a osadí blok s číslem které se inkrementálně zvyšuje o 1.

Ve verzi 2014 ale nečísluje - vyskočí tabulka "Zadejte atributy" a atribut je přednastaven vždy na 1.



;*
;  PRIKAZ "vykot" VYPISUJE CISLO BODU DO KROUZKU
;  vhodne pro posloupnost cislovani napr: vytycovaciho schematu
;___________________________________________________________________________
;**

(defun c:vykot ()
(setvar "cmdecho" 0) (setvar "expert" 2)
;****** meritko ********************************************
 (setq meritko (getreal "\nZadej meritko pro vykresleni vykresu - 1:<100> : "))
 (if (= meritko nil) (setq meritko 100.0))
 (setq nasobek (* meritko 1))
;****** reseni  **********************************************************
(setq cislo (getint "\nCISLOVANI OD : "))
(setq natoc(getreal "\nNATOCENI TEXTU:"))
(setq r (* nasobek 0.5))
(while (setq bod (getpoint "\nBod popisu do krouzku :  "))
   (command "_circle" bod r)
   (command "_insert" "cislo" pause nasobek nasobek natoc cislo)
   (setq cislo (+ cislo 1))
)
(setvar "cmdecho" 1) (setvar "expert" 1)
)


díky za pomoc
]]> Thu, 11 Jul 2013 15:32:45 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=17491&PID=79364&title=autolisp-2014#79364