本帖最后由 cable2004 于 2015-8-2 00:53 编辑
 - (defun c:tt()
- (setq ss (ssget '((0 . "LWPOLYLINE"))))
- (if ss
- (foreach e1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
- (setq pts(mapcar 'cdr (vl-remove-if '(lambda (a) (/= (car a) 10)) (entget e1))))
- (setq p1 (car pts) p2 (last pts) lst (cdr(reverse (cdr(reverse pts)))))
- (setq lst (mapcar '(lambda (a b) (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) a b)) lst (cdr lst)))
- (setq OLDOS(getvar"OSMODE"))(setvar"OSMODE" 0)(command "spline" p1)
- (mapcar '(lambda (a) (command a)) lst)
- (command p2)(command "" "" "")(setvar"OSMODE"OLDOS)
- ))
- (princ)
- )
|