Topic: Align North

[mohan]

Help to fix this route!

Code - Auto/Visual Lisp: [Select]

1. (defun c:autorotatenorth (/ ss ent1 tw new rt temp blo ent2 elist)
2. (foreach tab (layoutlist)
3. (setvar 'ctab tab)
4.       (setq ss (ssget "_x" '((0 . "VIEWPORT") (100 . "AcDbViewport") (8 . "-TEXT"))))
5.       (setq ent1 (ssname ss 0))
6.       (setq tw (entget ent1))
7.       (setq new (cdr (assoc 0 tw )))
8. (cond ((= new "VIEWPORT") (setq rt (cdr (assoc 51 tw))))
9.       ((= new "LWPOLYLINE") (setq temp (entget (cdr (assoc 330 tw)))) (setq rt (cdr (assoc 51 temp)))))
10.       (setq blo (ssget "_x" '((2 . "NORTH") (8 . "Symbol"))))
11.       (setq ent2 (ssname blo 0))
12.       (setq elist (entget ent2))
13.       (setq elist (subst (cons 50 rt) (assoc 50 elist) elist))
14.   (entmod elist)) (princ))

It will work through Layouts to match viewports

• Each layout have only single no of viewport with layer name "-TEXT"
• Each layout have only single no of North block name "NORTH" with layer name "Symbol"

[ronjonp]

I wrote this about 15 years ago 
http://www.theswamp.org/index.php?topic=19285.msg234463#msg234463

[Lee Mac]

Time flies

[BIGAL]

Not as long, my attempt only 2 years old. Just rotates any object so no need for block name.

Code: [Select]

; Rotate a block in pspace to match world in model
; By Alan H Aug 2020

(defun c:roblklay ( / obj1 obj rot ent)
(command "._PSPACE")
(setvar 'nomutt 1)
(princ "\nSelect a viewport")
(setq sss (ssget "_+.:E:S" (list (cons 0 "Viewport"))))
(setq obj1 (vlax-ename->vla-object (ssname sss 0)))
(setq ang (vlax-get obj1 'TwistAngle))

(while (setq ent (entsel "Pick block Enter to exit"))
(setq obj (vlax-ename->vla-object (car ent)))
(vla-put-rotation obj ang)
)

(princ)
)
(c:roblklay)

[tombu]

For those using AutoCAD Map 3D & verticals only the undocumented "-MAPINSERTPLE" command will add North Arrows in Paper Space matching Model Space Rotation by selecting a Viewport Boundary. If you twist the viewport afterwards the North Arrow automatically rotates to match.
Described here: https://forums.autodesk.com/t5/civil-3d-customization/civil-3d-2015-mapinsertple-command/m-p/9970125#M19256
and here: http://www.theswamp.org/index.php?topic=48049.0;all
For the record, here are the 3 "types":

2 = North Arrow
3 = Scale Bar
4 = Legend

(The "Select a viewport for the <type>:" command prompt changes based on which number you use.)

 The Symbols folder for the "Map - North Arrows.dwg" can be opened with the Macro:

Code: [Select]

^C^C^P(progn(startapp "explorer" (strcat "/n,/e," (vl-string-subst (strcat "Map" (chr 92) "Sample" (chr 92) "Symbols") "express" (vl-filename-directory (findfile "acetauto.lsp")))))(princ));
I modified all of them to use masked Mtext with Standard text style referencing TrueType fonts so they wouldn't require adding additional text styles and displayed better over images into "Blocks.dwg" attached. Added a drop-down with macros of the North Arrows I've used like this one:
Command Name: Aerial N↑
Macro:                ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Aerial,2")
Notice macro includes drawing name with path,block name,type=2.