[编程交流] 矩形中的点

(setq obj2 (vlax-ename->vla-object (car(entsel))))
(setq co-ords (vlax-safearray->list (vlax-variant-value (vlax-get-property obj2 "Coordinates" ))))
(setq I 0)
(repeat (/(length co-ords) 2)
(setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) ))
(setq co-ordsxy (cons xy co-ordsxy))
(setq I (+ I 2))
)
(princ co-ordsxy)

(and (setq s (car (entsel "\nSelect Polyline with four coordinates :")))
    (or (= (cdr (assoc 0 (setq e (entget s)))) "LWPOLYLINE")
        (alert "Invliad object. Try again")
    )
    (or (= (cdr (assoc 90 (setq e (entget s)))) 4)
        (alert "Invliad number of coordinates")
    )
    (mapcar '(lambda (p) (and (= (car p) 10) (setq l (cons (cdr p) l)))) e)
    (mapcar 'set '(p1 p2 p3 p4) l)
)

; the list of points starts with item zero not 1
; want 3rd point
(setq pt3 (nth 2 co-ordsxy)) 
; want 4th point
(setq pt4 (nth 3 co-ordsxy)) 

(defun InnerShape (/ InnerShape co-ords I xy co-ordsxy Innerpt1 Innerpt2 Innerpt3 Innerpt4)
   (setq InnerShape (vlax-ename->vla-object (entlast))) ;my name choice "InnerShape"
   (setq co-ords (vlax-safearray->list (vlax-variant-value 
   (vlax-get-property InnerShape "Coordinates" )))) ;my name choice "InnerShape"
   (setq I 0) 
 (repeat (/(length co-ords) 2) 
   (setq xy (list (nth i co-ords)(nth (+ I 1) co-ords) )) 
   (setq co-ordsxy (cons xy co-ordsxy)) 
   (setq I (+ I 2)))
(princ co-ordsxy)
(setq Innerpt1 (nth 0 co-ordsxy) :always start with 0 NOT 1
       Innerpt2 (nth 1 co-ordsxy)
       Innerpt3 (nth 2 co-ordsxy)
       Innerpt4 (nth 3 co-ordsxy))
) 

(setq co-ordsxy (reverse co-ordsxy))