minsert
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=4552
Datum vytištění: 13.kvě.2026 v 15:33
Téma: minsert
Odeslal: Ferdinand
Předmět: minsert
Datum odeslání: 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) )  ------------- -FerTh- |
Odpovědi:
Odeslal: Ferdinand
Datum odeslání: 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 http://www.iproject.cz/get.asp?/Soubory/CAD%5FForum/U%9Eivatelsk%E9%2Dupload/default.lsp - i-projectu ------------- -FerTh- |
Odeslal: Vladimír Michl
Datum odeslání: 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. ------------- Vladimír Michl (moderátor) ARKANCE CZ - https://arkance.world - arkance.world (podpora viz helpdesk.arkance-systems.cz) |
Odeslal: Ferdinand
Datum odeslání: 23.kvě.2007 v 16:09
|
To myslíte princ v Default.lsp anebo princ v diskutované aplikaci? ------------- -FerTh- |