局部放大—山寨版 v1.4.3（2024-8-3更新）

xzd716

不错，多谢分享，辛苦了。按 GB／T 4458.1-2002 机械制图 图样画法 视图 放大部位用罗马数字表明。如能将默认字母改为罗马数字，位置改在横线的上中部就更完美。

huisguiji

1.37使用不了  命令: GB
->请画矩形放大区域:
->指定视图名称放置点:
命令:
命令:
命令:
命令:
** no function definition: FY_VARSET **

lifenwei

好用。刚好用得上。

阳阳阳

谢谢一直在用！！

chslwj521

YANGF85 发表于 2012-10-14 14:47
对块不起作用啊

楼主威武

xiaofeixia007

功能强大，谢谢分享！

fangmin723

可惜中望用不了

jh1005

fangmin723 发表于 2024-4-8 15:22
可惜中望用不了

没用过中望，对中望了解不多，可能有些函数不支持。
这函数在CAD使用中没有报错，也能返回正确的值，一直没发现，谢谢提醒。修改如下：

2. ;;返回第N个元素之后的所有元素(包括N)   by  Lispboy
   
3. ;;测试: (fy_List_nB '(2334 556 33 33 44 44 66 77 22) 3) ==> (33 44 44 66 77 22)
   
4. (defun fy_List_nB (lst n / lst1 i L)
   
5.   (setq L (length lst))
   
6.   (cond
   
7.     ((< n 1) lst)
   
8.     ((= n 1) (cdr lst))
   
9.     ((= n 2) (cddr lst))
   
10.     ((= n 3) (cdddr lst))
    
11.     ((= n 4) (cddddr lst))
    
12.     ((and (>= n 5) (< n L))
    
13.       (setq i 0)
    
14.       (if (< n (/ L 2.0))
    
15.         (progn
    
16.           (while (and (setq a (car lst)) (< i n))
    
17.             (setq lst (cdr lst) i (1+ i))
    
18.           )
    
19.           lst
    
20.         )
    
21.         (progn
    
22.           (setq lst (reverse lst))
    
23.           (while (and (setq a (car lst)) (< i (- L n)))
    
24.             (setq lst1 (cons a lst1) lst (cdr lst) i (1+ i))
    
25.           )
    
26.           lst1
    
27.         )
    
28.       )
    
29.     )
    
30.   )
    
31. )

;;返回第N个元素之后的所有元素(包括N)   by  Lispboy<br /> ;;测试: (fy_List_nB '(2334 556 33 33 44 44 66 77 22) 3) ==> (33 44 44 66 77 22)<br /> (defun fy_List_nB (lst n / lst1 i L)<br />   (setq L (length lst))<br />   (cond<br />     ((< n 1) lst)<br />     ((= n 1) (cdr lst))<br />     ((= n 2) (cddr lst))<br />     ((= n 3) (cdddr lst))<br />     ((= n 4) (cddddr lst))<br />     ((and (>= n 5) (< n L))<br />       (setq i 0)<br />       (if (< n (/ L 2.0))<br />         (progn<br />           (while (and (setq a (car lst)) (< i n))<br />             (setq lst (cdr lst) i (1+ i))<br />           )<br />           lst<br />         )<br />         (progn<br />           (setq lst (reverse lst))<br />           (while (and (setq a (car lst)) (< i (- L n)))<br />             (setq lst1 (cons a lst1) lst (cdr lst) i (1+ i))<br />           )<br />           lst1<br />         )<br />       )<br />     )<br />   )<br /> )

414249149

下载试试，感谢楼主更新

huxu823

又更新了，感谢分享！