Diskuzní fórum, poradna

archiv · (moderátor)

;;;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)
)

Autor	Zpráva Najít Téma Možnosti tématu Odpovědět Vytvořit nové téma Verze pro tisk Přeložit Téma
Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	Téma: minsert 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) )
	-FerTh-

Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	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
	-FerTh-

Vladimír Michl Profil člena Odeslat soukromou zprávu Najít příspěvky člena Navštívit stránky člena Přidat do seznamu známých Moderátor ARKANCE Přihlášen: 09.zář.2004 Lokalita: ČR (JČ) Používám: Implementujeme řešení Autodesk Stav: Offline Bodů: 22020	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.
	Vladimír Michl (moderátor) ARKANCE CZ - arkance.world (podpora viz helpdesk.arkance-systems.cz)

Ferdinand Profil člena Odeslat soukromou zprávu Najít příspěvky člena Přidat do seznamu známých TOP uživatel Přihlášen: 01.říj.2004 Lokalita: ČR (JM) Používám: AutoCAD2004 (EN) na Windows XP Stav: Offline Bodů: 1906	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
	-FerTh-

Příbuzné CAD tipy:
Tip 6690:		Snadné rozložení MINSERT objektů.
Tip 1386:		Přehled vlastností objektů Architectural Desktopu.

Diskuzní fórum, poradna

?CAD diskuze, rady, výměna zkušeností

minsert

?
CAD diskuze, rady, výměna zkušeností