|
G:\ENGDESGN\BeaufordT\Blocks\2019\MyNorthArrows\Blocks.dwg,Aerial,2 For the record, here are the 3 "types": 2 = North Arrow 3 = Scale Bar 4 = Legend The "Select a viewport for the Open Symbols Folder where "Map - North Arrows.dwg" is located macro example: ^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)); Select Map.View.Rotation, right-click pick Action Selection Set → Modify Selection Set to Add or Remove objects from action set. Blocks.dwg North Arrow macro examples: ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow1,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow2,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow3,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow4,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow5,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow6,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Arrow7,2") ^C^C(command "-MAPINSERTPLE" "G://ENGDESGN//BeaufordT//Blocks//Blocks.dwg,Aerial,2") |