https://www.cadforum.cz/forum/ Wed, 10 Jun 2026 07:37:52 +0000 Mon, 30 Oct 2006 12:48:52 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=3340 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=3340&PID=15516&title=minsert2#15516 Autor: Ferdinand
Předmět: 3340
Zasláno: 30.říj.2006 v 12:48

Lisp bych chtěl používat pro vytvoření pole z bloku, pokaždé z jiného Název vkládaného bloku = VLBL je volán na konci řádku menu pro vytvoření pole z příslušného bloku:
[FB(FBS-SLOUP11_POLE,čtvercový -pole)]^C^C(setq VLBL "FBS-SLOUP11") _VLMMS
Nevím proč, ale volby bere jako příkaz
1. Průběh na příkazovém řádku:
Command: _appload VLMMS.lsp successfully loaded.


Command:
Command:
Command:
Command:
Command:
Command:
Command: (setq VLBL "FBS-SLOUP11") "FBS-SLOUP11"

Command: _VLMMS
Zadejte mìøítko bloku pro smìr X: 50
Zadejte mìøítko bloku pro smìr Y :  <50> 25

Zadejte bod:Unknown command "PX".  Press F1 for help.
50
Unknown command "PY".  Press F1 for help.
; error: bad argument value: AutoCAD command:

2. Aplikace:
(defun c:VLMMS (/ ZB MX MY VLBL)
  (setvar "osmode" 39)
  (setq MX (getint "\nZadejte měřítko bloku pro směr X: "))
  (setq MY (default MX "\Zadejte měřítko bloku pro směr Y : " "int"))
  (prompt "\nZadejte bod:")
  (command "_-insert" VLBL "_PX" MX "_PY" MY pause ^C^C)
  (setq ZB (getvar "lastpoint"))
  (command "_minsert" VLBL "_PX" MX "_PY" MY "_PR" 0 ZB MX MY 0 pause pause pause pause)
  (princ)
)

]]> Mon, 30 Oct 2006 12:48:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=3340&PID=15516&title=minsert2#15516