CAD Fórum : Suradnice bodov autoLISP pomoc https://www.cadforum.cz/forum/ Fri, 15 May 2026 06:29:24 +0000 Wed, 22 Nov 2017 10:45:49 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25284 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Suradnice bodov autoLISP pomoc : Je několik aplikací už vytvořeno,...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109495&title=suradnice-bodov-autolisp-pomoc#109495 Autor: zdrk
Předmět: 25284
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.]]> Wed, 22 Nov 2017 10:45:49 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109495&title=suradnice-bodov-autolisp-pomoc#109495 <![CDATA[Suradnice bodov autoLISP pomoc : majo6541 napsal(a):...Potreboval...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109479&title=suradnice-bodov-autolisp-pomoc#109479 Autor: johny
Předmět: 25284
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]]> Tue, 21 Nov 2017 14:33:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109479&title=suradnice-bodov-autolisp-pomoc#109479 <![CDATA[Suradnice bodov autoLISP pomoc : Dobrý deňPotreboval by som pomoc...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109472&title=suradnice-bodov-autolisp-pomoc#109472 Autor: majo6541
Předmět: 25284
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
]]> Tue, 21 Nov 2017 11:49:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25284&PID=109472&title=suradnice-bodov-autolisp-pomoc#109472