Kevin,
Take a look at this, it may help!
Code:
(SETQ SS1 (ssget ;GET ALL WATER LAT'S AND PIPES
'((0 . "LINE")
(-4 . "<OR")
(8 . "WTR-P-PIPE")
(8 . "WTR-P-LAT")
(-4 . "OR>")
)
)
)
(COMMAND "ZOOM" "E" "")
(IF (/= SS1 NIL)
(PROGN (SETQ LNGTH (SSLENGTH SS1)) ;LENGTH OF SELECTION SET (SS1)
(SETQ INDEX 0) ;SET INDEX TO ZERO
(REPEAT LNGTH ;REPEAT FOR EACH WATER LINE
(SETQ ENT1 (ENTGET (SSNAME SS1 INDEX))) ;GET WATER LINE
(SETQ ENTTYPE (CDR (ASSOC 0 ENT1))) ;GET ENTITY TYPE
(IF (= ENTTYPE "LINE") ;IF ENTITY IS A LINE
(PROGN (SETQ PT1 (TRANS (CDR (ASSOC 10 ENT1)) 0 1))
;PROGN/GET 1ST ENDPOINT
(SETQ PT2 (TRANS (CDR (ASSOC 11 ENT1)) 0 1))
;GET 2ND ENDPOINT
(SETQ PNTS (LIST PT1 PT2)) ;LIST BOTH POINTS
(SETQ INDEX (+ INDEX 1)) ;INDEX +1
)
)
(STM_WTR)
(SAN_WTR)
(SAN_LAT)
)
)
)