[编程交流] 将对象复制到线条中间

(defun mid (p1 p2)
 (list
   (/ (+ (car p1) (car p2)) 2.0)
   (/ (+ (cadr p1) (cadr p2)) 2.0)
 )
)
;______________________________________
(defun c:test ( / ob1 ob2 d0 i j ) 
 (setq ob0 (ssget))
 (setq d0 (getpoint))
 (setq ob1 (ssget "_:L" '((0 . "LINE"))))
 ;(setq i (- (sslength ob1) 1))
(repeat (setq i (sslength ob1))
 (setq j i)
 (setq d1 (cdr (assoc 10 (entget (ssname ob1 (setq i (1- i)))))))
 (setq d2 (cdr (assoc 11 (entget (ssname ob1 (setq j (1- j)))))))
 (setq mi (mid d1 d2))
 (command ".copy" ob0 "" "m" d0 mi "")
)
(princ)
)