Diskuzní fórum a databáze tipů a utilit pro AutoCAD, Inventor, Revit a další produkty Autodesk - od firmy Arkance Systems [www.cadforum.cz]
CZ | SK | EN | DE
Přihlášení
či registrace
   právě nás čte: 5616 
eLearning školení Základy Autodesk Revit
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

 

NápovědaCAD diskuze, rady, výměna zkušeností

 
CAD Fórum - Homepage Veřejné diskuzní fórum k CAD aplikacím - ptejte se na libovolné otázky týkající se oboru CAx, podělte se o vaše znalosti a zkušenosti s programy AutoCAD, Inventor, Revit, Fusion 360, 3ds Max a s dalšími CAD aplikacemi. Zaregistrujte se nebo se přihlašte a zašlete váš příspěvek do odpovídajícího fóra. Viz další informace o CAD Fóru. Nechcete se registrovat? Zeptejte se v naší Facebook poradně.
Fórum nenahrazuje technický support firmy Arkance Systems (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.cadstudio.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenobleader

 Odpovědět Odpovědět archiv
Autor
Ferdinand Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 01.říj.2004
Lokalita: ČR (JM)
Používám:
AutoCAD2004 (EN) na Windows XP
Stav: Offline
Bodů: 1904
Přímý odkaz na tuto zprávu Téma: bleader
    Zasláno: 30.kvě.2008 v 11:35
Vytvořil jsem novou fci bleader:
(defun C:bleader
   (/ MM ORM SNM GRM KROK RASTR VLBL OB KR DG ZB)
  (setq ORM (getvar "orthomode"))
  (setq SNM (getvar "snapmode"))
  (setq GRM (getvar "gridmode"))
  (setvar "osmode" 55)
  (setvar "attdia" 0)
  (if (/= ORM 0)
    (setvar "orthomode" 0)
    nil
  )
  (setq MM (getvar "dimscale"))
  (setq KROK (getvar "snapunit"))
  (setq RASTR (getvar "gridunit"))
  (setq OB (strcase "FBM-DET_4"))
  (setq KR (strcase "FBM-DET_0"))
  (command "_snap" "10" "" "_grid" "100" "")
  (if (/= SNM 1)
    (setvar "snapmode" 1)
    nil
  )
  (if (/= GRM 1)
    (setvar "gridmode" 1)
    nil
  )
  (initget "D K")
  (setq keypart (getkword "\nPoložka bude v [obDélníku/Kroužku]: <K> "))
  (if (= keypart nil)
    (setq keypart "K")
  )
  (cond ((= keypart "D")
  (setq VLBL OB)
  (setq part 1)
 )
 ((= keypart "K")
  (setq VLBL KR)
  (setq part 2)
 )
  )
  (command "_leader"
    pause
    pause
    (setq ZB (getvar "lastpoint"))
    "_F"
    "_N"
    "_A"
    ""
    "_B"
    (setvar "orthomode" 1)
    VLBL
    "_PS"
    MM
    ZB
    MM
    MM
    pause
  )
  (setvar "osmode" 39)
  (setvar "orthomode" ORM)
  (setvar "snapmode" SNM)
  (setvar "gridmode" GRM)
  (setvar "snapunit" KROK)
  (setvar "gridunit" RASTR)
  (redraw)
  (princ)
)

která při provádění na p.ř. píše hlášku (při startu fce)
Command: _BLEADER Unknown command "BLEADER".  Press F1 for help.
a pak ještě další hlášku (za výzvou k zadání názvu bloku)
"1.dwg": Can't find file in search path:
C:\...
...
1. Jak lze docílit, aby znal i uživatelsky nadefinované fce?
2. Potřebuji, aby při zadání vynášecí čáry byla orthomode=0 a při zadávání otočení byla orthomode=1.
-FerTh-
Zpět nahoru
Vladimír Michl Zobrazit panel
Moderátor
Moderátor
Avatar
Arkance Systems

Přihlášen: 09.zář.2004
Lokalita: ČR (JČ)
Používám:
Dodáváme produkty Autodesk
Stav: Offline
Bodů: 21517
Přímý odkaz na tuto zprávu Zasláno: 30.kvě.2008 v 15:05

ad 1) ale on ji zná - jinak by nešla spustit; to hlášení je zřejmě z pokusu o opakování příkazu (někde je Enter navíc)

ad 2) nejlépe je (pokud to jde) požadované body zadávat mimo (před) spuštěním samotné funkce (command)

 

Vladimír Michl (moderátor)
Arkance Systems s.r.o. - www.arkance-systems.cz
(podpora viz hd.cads.cz)
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:


 Odpovědět Odpovědět

Přejít na fórum Oprávnění fóra Zobrazit panel



Stránka byla vygenerována za 0,352 sekund.