TA的每日心情 | 开心 3 天前 |
---|
签到天数: 11 天 [LV.3]偶尔看看II
管理员
- 积分
- 1234
|
- ;椭圆转SPLINE 明经 ZZXXQQ 2008.2.1
- (defun c:tt ()
- (setvar "CMDECHO" 0)
- (setq oldos (getvar "OSMODE"))
- (if (and (setq s1 (entsel "\nSelect a Ellipse 选择椭圆 :"))
- (setq ent (entget(car s1)))
- (= (cdr(assoc 0 ent)) "ELLIPSE")
- ) (progn
- (command ".undo" "BE")
- (command "divide" s1 16)
- (setq p1 (cdr(assoc 10 ent))
- p2 (cdr(assoc 11 ent))
- p2 (polar p1 (angle '(0 0) p2) (distance '(0 0) p2))
- p3 (polar p2 (+ (angle p1 p2) (/ pi -2)) 5))
- (setq ss (ssget "P"))
- (setq pt (cdr(assoc 10 (entget(ssname ss 0)))))
- (setq i 0)
- (setvar "OSMODE" 0)
- (command ".spline" pt)
- (repeat (1- (sslength ss))
- (setq pt (cdr(assoc 10 (entget(ssname ss (setq i (1+ i)))))))
- (command pt)
- )
- (command "c" p3)
- (setvar "OSMODE" oldos)
- (command ".erase" ss (car s1) "")
- (command ".undo" "E")
- ))
- (setvar "CMDECHO" 1)
- (princ)
- )
复制代码 |
|