CAD Fórum : minsert https://www.cadforum.cz/forum/ Tue, 12 May 2026 08:46:49 +0000 Wed, 23 May 2007 16:09:43 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=4552 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[minsert : To myslíte princ v Default.lsp...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22321&title=minsert#22321 Autor: Ferdinand
Předmět: 4552
Zasláno: 23.kvě.2007 v 16:09

To myslíte princ v Default.lsp anebo princ v diskutované aplikaci?

Upravil Ferdinand - 11.čvc.2007 v 16:02]]> Wed, 23 May 2007 16:09:43 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22321&title=minsert#22321 <![CDATA[minsert : Funkce je v pořádku, jen jaksi...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22277&title=minsert#22277 Autor: Vladimír Michl
Předmět: 4552
Zasláno: 22.kvě.2007 v 13:47

Funkce je v pořádku, jen jaksi nevrací návratovou hodnotu, protože tu si na konci přepisujete funkcí (princ). Vymažte ji a bude to fungovat.]]> Tue, 22 May 2007 13:47:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22277&title=minsert#22277 <![CDATA[minsert : Prosím vás, mohl by mi někdo poradit,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22271&title=minsert#22271 Autor: Ferdinand
Předmět: 4552
Zasláno: 22.kvě.2007 v 12:51

Prosím vás, mohl by mi někdo poradit, v čem je zrada anebo co tam chybí? Nemohu na to přijít... Funkce DEFAULT je na i-projectu]]> Tue, 22 May 2007 12:51:12 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22271&title=minsert#22271 <![CDATA[minsert : ;;;Nasobne vlozeni -pole (MI...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22065&title=minsert#22065 Autor: Ferdinand
Předmět: 4552
Zasláno: 15.kvě.2007 v 16:43

;;;Nasobne vlozeni -pole (MINSERT)
;;;InsertionPoint=ZADAT; Scale=ZADAT-X/Y; Rotate=0;
;;;Columns=ZADAT; RowsDistance=ZADAT; ColumnsDistance=ZADAT
 (defun c:VLMMS (/ ZB MX MY VLBL OSM)
  (setvar "cmdecho" 0)
  (setvar "attdia" 1)
  (setq OSM (getvar "osmode"))
  (setvar "osmode" 39)
  (setq MX (getint "\nZadejte měřítko bloku pro směr X: "))
  (setq MY (getint "\Zadejte měřítko bloku pro směr Y : "))
;;ev. bych raději s předdef. volbou MX, kde "default" je další malí lispík pro zadání předvoleb (real, int, str) ale nechce to brát :-(
  ;(setq MY (default MX "\Zadejte měřítko bloku pro směr Y : " "int"))
  (PROMPT "\nZadejte bod:")
  (command "_minsert" VLBL "_PX" MX "_PY" MY pause ^c^c)
;;tak tady se mi to zasekne:
;;Unknown command "PX".  Press F1 for help.
  (setq ZB (getvar "lastpoint"))
  (command "_minsert" VLBL "_X" MX "_Y" MY ZB MX MY "" pause pause pause pause)
;;tak tady se mi to zasekne taky:
;;Unknown command "X".  Press F1 for help.
;;zajímavé je, že u ostatních aplikací pro spec. vkládání formulace pro získání vkládacího bodu funguje:
  ;;(command "_insert" VLBL pause ^c^c)
;;(což jsem zde prvně zkoušel samozřejmě taky jako možnost č.1, ale nezabrala...)
  (setvar "osmode" OSM)
  (princ)
)
Question
]]> Tue, 15 May 2007 16:43:06 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=4552&PID=22065&title=minsert#22065