Vytisknout stránku | Zavřít okno

Chytrá severka

Vytištěno z: CAD Fórum
Kategorie: Autodesk - stavebnictví, strojírenství, CAD/GIS
Název fóra: AutoCAD
Popis fóra: Otázky kolem aplikací AutoCAD a AutoCAD LT, AutoCAD 360, prohlížečů, DWG a DWF, Design Review, Navisworks, nadstavby, 123D, A360 a cloud Autodesk 360
URL: https://www.cadforum.cz/forum/forum_posts.asp?TID=34896
Datum vytištění: 28.kvě.2026 v 09:58


Téma: Chytrá severka
Odeslal: martinhainc
Předmět: Chytrá severka
Datum odeslání: 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


Odpovědi:
Odeslal: johny
Datum odeslání: 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" rel="nofollow - https://www.lee-mac.com/runlisp.html

Odeslal: PepaR
Datum odeslání: 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.

-------------
PepaR
https://www.jremes.cz" rel="nofollow - jremes.cz | https://www.stavlab.cz" rel="nofollow - stavlab.cz

Odeslal: Jílková
Datum odeslání: 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?


Vytisknout stránku | Zavřít okno