ARKANCE - globální Platinum partner Autodesk ARKANCE | KONTAKT - CZ | SK | EN | DE
Děkujeme za účast na konferenci CADfórum 2025 - podívejte se na reportáž
Přes 120.000 registrovaných u nás, celkem 1.105.000 registrovaných (CZ+EN), přes 53.000 CAD/BIM bloků. Vyzkoušejte nový přesný Inženýrský kalkulátor a proměnné prostředí AutoCADu.
RSS kanál - CAD tipy RSS tipy
RSS diskuze

Diskuze Diskuzní fórum, poradna

?
CAD 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, 3ds Max, Vault a s dalšími CAD/BIM/PDM 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 (CAD Studio) - přímá podpora pro zákazníky funguje na helpdesk.arkance-systems.cz
  FAQ FAQ  Prohledat fórum   Události   Registrovat Registrovat  Přihlásit Přihlásit

Téma uzavřenoSuradnice bodov autoLISP pomoc
 Odpovědět Odpovědět archiv
Autor
  Najít Téma Najít Téma  Možnosti tématu Možnosti tématu
majo6541 Zobrazit panel
Nováček
Nováček
Avatar

Přihlášen: 13.říj.2014
Lokalita: Slovensko
Používám:
autoCAD2014
Stav: Offline
Bodů: 2
 Přímý odkaz na tuto zprávu Téma: Suradnice bodov autoLISP pomoc
    Zasláno: 21.lis.2017 v 11:49
Dobrý deň

Potreboval by som pomoc s jedným LISP suborom. A to konkretne Suradnice bodov.
Kedže moje znalosti nie sú rozsiahle potreboval by som pomoc.

Užívateľ v Autocade zadá suradnice bodov. Okrem toho ze bod vykresli tak pri kazdom bode vypise jeho poradove cislo X a Y súradnice. 

Dakujem Smile
Zpět nahoru
johny Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 24.led.2006
Lokalita: ČR (JM)
Používám:
C3D 2024
Stav: Offline
Bodů: 1749
 Přímý odkaz na tuto zprávu Zasláno: 21.lis.2017 v 14:33
Původně odeslal(a) majo6541 majo6541 napsal(a):

...
Potreboval by som pomoc s jedným LISP suborom. ...
Kedže moje znalosti nie sú rozsiahle potreboval by som pomoc.
...

Možná byste chtěl začít znovu a pravdivěji. Nebo opravdu chcete jen napomoct? Dát nápovědu a chytnete se?

Edit: Netuším proč nemáte odvahu něco napsat... diskusi evidentně sledujete, nikdo vás soudit nebude. Ale budiž. 

Takovýchto prográmků kolují po netu desítky, stačí trochu googlit. A jsou velmi jednoduché, i začátečník by je napsal... Tak jsem něco nahodil... Když na to kouknete, tak si to pomocí komentářů (středníkem) můžete upravit, že buď to budete labelovat mleaderem nebo mtextem, no a ten buď umísťovat ručně nebo automaticky. 

(defun c:PointLabel (/ pnt txt)
  
  (or *pl-n*
      (setq *pl-n* 1))
  
  (if (setq *pl-n* (cond ((getint (strcat "\nStart with <" (itoa *pl-n*) ">:" )))
(*pl-n*)))
    (while (setq pnt (getpoint (strcat"\rPlace point no. " (itoa *pl-n*) ": ")))
      (setq pnt (trans pnt 1 0)
    txt (strcat (itoa *pl-n*)
"\n"
(rtos (car pnt) 2 3)
"\n"
(rtos (car pnt) 2 3)))

      (entmakex (list (cons 0 "POINT")
      (cons 10 pnt)))
      (entmakex (list (cons 0 "MTEXT")
      (cons 100 "AcDbEntity")
      (cons 100 "AcDbMText")
      (cons 10

;;;     MTEXT poloha automaticky
    ;(polar pnt (* 1.75 pi) (* 2. (getvar 'TEXTSIZE)))

;;;     MTEXT poloha ručně
    (progn (initget 1) (trans (getpoint " --> Place text: ") 1 0))
    )
      (cons 1 txt)
      (cons 50 0)
      (cons 71 1)
      (cons 72 5)))

; varianta MLEADER      

      ;(command "_.MLEADER" "_non" (trans pnt 0 1) PAUSE txt)
      
      (setq *pl-n* (1+ *pl-n*))))
  (princ)
  )


Upravil johny - 22.lis.2017 v 15:39
Zpět nahoru
zdrk Zobrazit panel
TOP uživatel
TOP uživatel

Přihlášen: 03.kvě.2007
Lokalita: ČR (KV)
Používám:
Začínám bojovat s AutoCad 2015 respektive BDS 2015
Stav: Offline
Bodů: 1808
 Přímý odkaz na tuto zprávu Zasláno: 22.lis.2017 v 10:45
Je několik aplikací už vytvořeno, stačí případně jen lehce poupravit.
Vkládá se blok nebo bod.
Zpět nahoru

Pro technickou podporu CAD
kontaktujte Helpdesk

Příbuzné CAD tipy:
Tip 9492:VIPPřevod mračna bodů na 3D model (postup, tipy).
Tip 2083:VIPSnadný import XYZ souřadnic z Excelu do AutoCADu.
Tip 7217:Vyrovnání výkresu na více bodů (4, 5, 6...)
Tip 10455:Jak v AutoCADu nakreslit obdélník zadaný středem?
Tip 7307:Jak vložit obrázek AutoLISP makrem?
Tip 5249:Načtení seznamu (souboru) bodů do projektu.


 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,210 sekund.
CADfórum
CADfórum
Tipy, triky, podpora, pomoc a rady pro AutoCAD, LT, Inventor, Revit, Map, Civil 3D, 3ds Max, Fusion, Forma, Vault, PowerMill a další Autodesk aplikace (support firmy ARKANCE). Viz O portálu.
Copyright © 2025 | Web reklama na tomto serveru | Ochrana soukromí, podmínky
ARKANCE (CAD Studio) - Autodesk Platinum Partner & Training Center & Services Partner
KONTAKT:
webmaster.cz@arkance.world | tel. +420 910 970 111
FB LN TW YT TW Blog RSS
.
TOPlist
img