CAD Fórum : Chytrá severka https://www.cadforum.cz/forum/ Mon, 13 Apr 2026 06:12:02 +0000 Sat, 27 Jan 2024 10:56:33 +0000 http://blogs.law.harvard.edu/tech/rss Web Wiz Forums 12.04 360 https://www.cadforum.cz/forum/RSS_post_feed.asp?TID=34896 <![CDATA[CAD Fórum]]> https://www.cadforum.cz/forum/forum_images/web_wiz_forums.png https://www.cadforum.cz/forum/ <![CDATA[Chytrá severka : V Mapu nebo Civilu je funkce severky...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129455&title=chytra-severka#129455 Autor: Jílková
Předmět: 34896
Zasláno: 27.led.2024 v 10:56

V Mapu nebo Civilu je funkce severky s automatickým natočením. Ale tak jak to popisujete, stačí dát severku do modelu a bude správně otočená i v natočených rozvrženích, nebo ne?]]> Sat, 27 Jan 2024 10:56:33 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129455&title=chytra-severka#129455 <![CDATA[Chytrá severka : Praktický požadavek, díky johny...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129454&title=chytra-severka#129454 Autor: PepaR
Předmět: 34896
Zasláno: 27.led.2024 v 10:04

Praktický požadavek, díky johny za tip na lsp. Přemýšlím jen, zdali by byla možná i cesta integrovat přímo do dynamického bloku na základě provázání hodnoty v poli, parametru a následné akci.]]> Sat, 27 Jan 2024 10:04:40 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129454&title=chytra-severka#129454 <![CDATA[Chytrá severka : Pokud budete držet trochu nějaký...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129453&title=chytra-severka#129453 Autor: johny
Předmět: 34896
Zasláno: 26.led.2024 v 13:52

Pokud budete držet trochu nějaký systém, tak můžete mít takovou řekněme chytře se tvářící hloupou severku.
Ten systém. V každém rozvržení budete mít jeden blok jménem ChytraSeverka a jeden výřez v hladině VYREZ-CHS. No a pak spustíte příkaz ChytraSeverka, který vám je v celým výkrese je ponatáčí.

(vl-load-com)

(defun c:ChytraSeverka ( / v b)

  (if (and (setq v (ssget "_x" '((0 . "VIEWPORT") (8 . "VYREZ-CHS"))))     ; jméno hladiny výřezu
   (setq b (ssget "_x" '((0 . "INSERT")   (2 . "ChytraSeverka")))) ; jméno bloku
   (setq v (mapcar '(lambda (e) (cons (cdr (assoc 410 (entget e))) e)) (mapcar 'cadr (ssnamex v))))
   (setq b (mapcar '(lambda (e) (cons (cdr (assoc 410 (entget e))) e)) (mapcar 'cadr (ssnamex b))))
   )
    (foreach e b (if (setq i (cdr (assoc (car e) v))) (setpropertyvalue (cdr e) "Rotation" (getpropertyvalue i "TwistAngle")))))
  (princ)
  )

https://www.lee-mac.com/runlisp.html


Upravil johny - 26.led.2024 v 14:17]]> Fri, 26 Jan 2024 13:52:04 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129453&title=chytra-severka#129453 <![CDATA[Chytrá severka : Ahoj!zpracovávám aktuálně velké...]]> https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129438&title=chytra-severka#129438 Autor: martinhainc
Předmět: 34896
Zasláno: 25.led.2024 v 13:52

Ahoj!
zpracovávám aktuálně velké množství situačních výkresů a chtěl bych vědět, zda je možnost vytvořit třeba blok, který se bude samostatně orientovat na základě úhlu otočení modelu v rozvržení.
Chtěl bych tedy "chytrou severku", kterou bych mohl umístit do Legendy a nemusel v průběhu práce kontrolovat zda je orientována správně.

Děkuji,
MH
]]> Thu, 25 Jan 2024 13:52:20 +0000 https://www.cadforum.cz/forum/forum_posts.asp?TID=34896&PID=129438&title=chytra-severka#129438