;;;This drills into a corridor object ;;;Only a few rabbit trails are followed ;;;Cannot find any object that exposes a Region's target(s) (DEFUN C:CORRDRILL () (VL-LOAD-COM) (PRINC "Select a Corridor object (just one, then enter): ") (PRINC) (SETQ this_corr_ss (SSGET '((0 . "AECC_CORRIDOR")))) (SETQ this_corr_ename (SSNAME this_corr_ss 0)) (SETQ this_corr_obj (VLAX-ENAME->VLA-OBJECT this_corr_ename)) (SETQ corr-appliedsubassemblies (VLAX-GET-PROPERTY (VLAX-INVOKE ;VLAX-INVOKE is used with 'Item # (SETQ corr-appliedassemblies (VLAX-GET-PROPERTY (VLAX-INVOKE ;VLAX-INVOKE is used with 'Item # (SETQ corr-baselineregions (VLAX-GET-PROPERTY (VLAX-INVOKE ;VLAX-INVOKE is used with 'Item # (SETQ corr-baselines (VLAX-GET-PROPERTY this_corr_obj 'Baselines ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of SETQ 'Item 0 ) ;_ end of VLAX-INVOKE 'BaselineRegions ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of SETQ 'Item ;VLAX-INVOKE is used with 'Item # 0 ) ;_ end of VLAX-INVOKE 'AppliedAssemblies ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of SETQ 'Item ;VLAX-INVOKE is used with 'Item # 0 ) ;_ end of VLAX-INVOKE 'AppliedSubassemblies ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of SETQ (VLAX-DUMP-OBJECT this_corr_obj) (VLAX-DUMP-OBJECT corr-baselines) (VLAX-DUMP-OBJECT corr-baselineregions) (VLAX-DUMP-OBJECT corr-appliedassemblies) (VLAX-DUMP-OBJECT corr-appliedsubassemblies) (VLAX-DUMP-OBJECT (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-INVOKE corr-baselineregions 'Item 3) 'AssemblyDbEntity); 'Item # cannot be greater than item-count minus 1 'Position ;Position refers to the actual assembly position in the drawing, not the position on the corridor ) ;_ end of VLAX-GET-PROPERTY ) (SETQ this_x (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-INVOKE corr-baselineregions 'Item 1) 'AssemblyDbEntity) 'Position ) ;_ end of VLAX-GET-PROPERTY 'X ) ;_ end of VLAX-GET-PROPERTY ) (SETQ this_y (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-INVOKE corr-baselineregions 'Item 1) 'AssemblyDbEntity) 'Position ) ;_ end of VLAX-GET-PROPERTY 'Y ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of SETQ (VLAX-SAFEARRAY->LIST ;Makes a list of the CodeNames safearray (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-GET-PROPERTY (VLAX-INVOKE (VLAX-GET-PROPERTY (VLAX-INVOKE (VLAX-GET-PROPERTY (VLAX-INVOKE corr-baselineregions 'Item 56) 'AppliedAssemblies) 'Item 0 ) ;_ end of VLAX-INVOKE 'AppliedSubassemblies ) ;_ end of VLAX-GET-PROPERTY 'Item 3 ) ;_ end of VLAX-INVOKE 'BaselineHookedTo ) ;_ end of VLAX-GET-PROPERTY 'MainBaselineFeaturelines ) ;_ end of VLAX-GET-PROPERTY 'FeaturelinesCol ) ;_ end of VLAX-GET-PROPERTY 'CodeNames ) ;_ end of VLAX-GET-PROPERTY ) ;_ end of VLAX-SAFEARRAY->LIST (PRINC) ) ;_ end of DEFUN ;|«Visual LISP© Format Options» (120 2 15 2 T "end of " 100 9 2 0 nil nil nil T T) ;*** DO NOT add text below the comment! ***|;