CAD Fórum : Auto LISP výpis vrcholů entity (rectangle) https://www.cadforum.cz/forum/ Tue, 21 Apr 2026 10:17:02 +0000 Wed, 24 Jan 2018 10:11:30 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=25576 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : Koukněte na příkazy foreach, repeat...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110252&title=auto-lisp-vypis-vrcholu-entity-rectangle#110252 Autor: johny
Předmět: 25576
Zasláno: 24.led.2018 v 10:11

Koukněte na příkazy foreach, repeat a while. 
V tomto případě je nejvhodnější foreach.

Spoiler alert!

;; code
(if (setq en (car (entsel)))
    (foreach x (entget en)
      (if (= 10 (car x))
        (print (cdr x)))))
;; end of code


Upravil johny - 26.led.2018 v 09:51]]> Wed, 24 Jan 2018 10:11:30 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110252&title=auto-lisp-vypis-vrcholu-entity-rectangle#110252 <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : moc děkuji za radu, bohužel tyhle...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110250&title=auto-lisp-vypis-vrcholu-entity-rectangle#110250 Autor: michal.s
Předmět: 25576
Zasláno: 24.led.2018 v 08:37

moc děkuji za radu, bohužel tyhle příkazy vl-... v těch se moc nevyznám používám jen ty "obyčejny" :-)

každopádně díky m.
]]> Wed, 24 Jan 2018 08:37:29 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110250&title=auto-lisp-vypis-vrcholu-entity-rectangle#110250 <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : Nth je dost pomalé - možná něco...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110247&title=auto-lisp-vypis-vrcholu-entity-rectangle#110247 Autor: Vladimír Michl
Předmět: 25576
Zasláno: 24.led.2018 v 06:48

Nth je dost pomalé - možná něco jako:

(setq vert (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel "\nSelect a Polyline: ")))))
(foreach x vert (print x))
]]> Wed, 24 Jan 2018 06:48:52 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110247&title=auto-lisp-vypis-vrcholu-entity-rectangle#110247 <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : ..To mě napadlo ale nevěděl jsem...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110246&title=auto-lisp-vypis-vrcholu-entity-rectangle#110246 Autor: michal.s
Předmět: 25576
Zasláno: 24.led.2018 v 04:39

..To mě napadlo ale nevěděl jsem jak seznam procházet, pohledal jsem a našel funkci "nth" tudy by asi cesta mohla vest?

díky za nakopnutí.. m.


]]> Wed, 24 Jan 2018 04:39:00 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110246&title=auto-lisp-vypis-vrcholu-entity-rectangle#110246 <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : Funkce entget vám dala list. Čili...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110245&title=auto-lisp-vypis-vrcholu-entity-rectangle#110245 Autor: johny
Předmět: 25576
Zasláno: 23.led.2018 v 23:18

Funkce entget vám dala list. Čili udělejte cyklus, který bude testovat každý člen toho listu jestli náhodou není asociován s 10. ]]> Tue, 23 Jan 2018 23:18:38 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110245&title=auto-lisp-vypis-vrcholu-entity-rectangle#110245 <![CDATA[Auto LISP výpis vrcholů entity (rectangle) : Zdravím,mohl by někdo poradit...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110244&title=auto-lisp-vypis-vrcholu-entity-rectangle#110244 Autor: michal.s
Předmět: 25576
Zasláno: 23.led.2018 v 22:24

Zdravím,
 mohl by někdo poradit jak se dostanu v LISPu k vypsání například vrcholů obdélníku. Umím ho vybrat a vypsat přes "print" celý obsah entity a pak přes "cdr+assoc" vypíšu první tečka-dvojici (10) kde je první vrchol.. ale jak se dostanu k dalším (ostatním třem) vrcholům v entitě, které mají taky tečka-dvojici 10? To mi není jasné Unhappy

díky za tipy!

m.
]]> Tue, 23 Jan 2018 22:24:21 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=25576&PID=110244&title=auto-lisp-vypis-vrcholu-entity-rectangle#110244