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

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

johny2024-01-26 14:17:39

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.

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?