[编程交流] 如何获得第一个和第二个ve

; pline co-ords by BIG AL
(defun plcords (/ ent obj plobs )
(vl-load-com)
(defun getcoords (ent)
 (vlax-safearray->list
   (vlax-variant-value
     (vlax-get-property
   (vlax-ename->vla-object ent)
   "Coordinates"
     )
   )
 )
)
(defun co-ords2xy ( / I)
; convert now to a list of xy as co-ords are x y x y x y if 3d x y z x y z
(setq numb (/ (length co-ords) 2))
(setq I 0)
(repeat numb
(setq xy (list (nth (+ I 1) co-ords)(nth I co-ords) ))
(setq coordsxy (cons xy coordsxy))
(setq I (+ I 2))
) ; end repeat
)
(setq plobjs (ssget (list (cons 0 "lwpolyline"))))
(setq numb1 (sslength plobjs))
(setq x numb1)
(repeat numb1
(setq obj (ssname plobjs (setq x (- x 1))))
(setq co-ords (getcoords obj))
)
(co-ords2xy)
(setq inc (length coordsxy))
(repeat (/ inc  2) 
(setq x (rtos (nth (setq inc (- inc 1)) co-ords) 2 3 ))
(setq y (rtos (nth (setq inc (- inc 1)) co-ords) 2 3 ))  
(setq xy (strcat x "," y ))
 (princ xy)
 (princ "\n ")
 )
)
(plcords)

(if (and (setq s (car (entsel "\n Select Polyline :")))
        (eq (cdr (assoc 0 (setq e (entget s)))) "LWPOLYLINE")
   )
 (progn
   (setq d (distance (setq 1p (cdr (car (setq l
                                               (vl-remove-if-not '(lambda (u) (eq (car u) 10)) e)
                                        )
                                   )
                              )
                     )
                     (setq 2p (cdr (cadr l)))
           )
         a (angle 1p 2p)
   )
   (command "text"
            "mc"
            (mapcar '(lambda (q p) (* (+ q p) 0.5)) 1p 2p)
            0.2
            (/ (* a 180) pi)
            (strcat (rtos d 2 2) "/BT/RD")
   )
 )
)

(defun c:Test (/ s en e sn l ly o dz d a 1p 2p)
 ;;        Tharwat 08.12.2014        ;;
 (princ "\n Select Polyline :")
 (if (and (setq en (entlast)
                s  (ssget "_+.:S:E:L" '((0 . "LWPOLYLINE")))
          )
          (setq dz (getvar 'DIMZIN))
          (setvar 'DIMZIN 0)
          (setq *offDist*
                 (cond ((getdist (strcat "\n Specify offset distance <"
                                         (rtos (if *offDist*
                                                 *offDist*
                                                 (setq *offDist* 1.0)
                                               )
                                               2
                                               2
                                         )
                                         " > :"
                                 )
                        )
                       )
                       (*offDist*)
                 )
          )
          (progn
            (initget 6 "Current Source")
            (setq ly
                   (cond
                     ((getkword
                        "\n Enter layer option for offset objects [Current/Source] <Source>: "
                      )
                     )
                     ("Source")
                   )
            )
          )
     )
   (progn
     (setq d (distance (setq 1p (cdr (car (setq l
                                                 (vl-remove-if-not
                                                   '(lambda (u) (eq (car u) 10))
                                                   (setq e (entget (setq sn (ssname s 0))))
                                                 )
                                          )
                                     )
                                )
                       )
                       (setq 2p (cdr (cadr l)))
             )
           a (angle 1p 2p)
     )
     (foreach x (list *offDist* (- *offDist*))
       (vla-offset (vlax-ename->vla-object sn) x)
       (if (and (eq ly "Current")
                (not (eq en (setq o (entlast))))
           )
         (vla-put-layer (vlax-ename->vla-object o) (getvar 'CLAYER))
       )
     )
     (command "text"
              "mc"
              (mapcar '(lambda (q p) (* (+ q p) 0.5)) 1p 2p)
              0.2
              (/ (* a 180) pi)
              (strcat (rtos d 2 2) "/BT/RD")
     )
   )
 )
 (if dz
   (setvar 'DIMZIN dz)
 )
 (princ)
)(vl-load-com)