minsert(2.)
Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: CAD programování
Popis fóra: Otázky programování - nadstavby a utility pro CAD a GIS aplikace Autodesk (VBA, AutoLISP, ARX/C++, .Net, JavaScript, Python, MEL...)
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=3340
Datum vytištění: 14.kvě.2026 v 09:04
Téma: minsert(2.)
Odeslal: Ferdinand
Předmět: minsert(2.)
Datum odeslání: 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) ) ------------- -FerTh- |