本帖最后由 xzd716 于 2024-3-24 15:32 编辑
不错，多谢分享，辛苦了。按 GB／T 4458.1-2002 机械制图 图样画法 视图 放大部位用罗马数字表明。如能将默认字母改为罗马数字，位置改在横线的上中部就更完美。
1.37使用不了命令: GB
->请画矩形放大区域:
->指定视图名称放置点:
命令:
命令:
命令:
命令:
** no function definition: FY_VARSET **
好用。刚好用得上。
谢谢一直在用！！
YANGF85 发表于 2012-10-14 14:47
对块不起作用啊
楼主威武;P
功能强大，谢谢分享！
可惜中望用不了
本帖最后由 jh1005 于 2024-4-8 16:56 编辑
fangmin723 发表于 2024-4-8 15:22
可惜中望用不了
没用过中望，对中望了解不多，可能有些函数不支持。
这函数在CAD使用中没有报错，也能返回正确的值，一直没发现:L，谢谢提醒。修改如下：
;;返回第N个元素之后的所有元素(包括N) byLispboy
;;测试: (fy_List_nB '(2334 556 33 33 44 44 66 77 22) 3) ==> (33 44 44 66 77 22)
(defun fy_List_nB (lst n / lst1 i L)
(setq L (length lst))
(cond
((< n 1) lst)
((= n 1) (cdr lst))
((= n 2) (cddr lst))
((= n 3) (cdddr lst))
((= n 4) (cddddr lst))
((and (>= n 5) (< n L))
(setq i 0)
(if (< n (/ L 2.0))
(progn
(while (and (setq a (car lst)) (< i n))
(setq lst (cdr lst) i (1+ i))
)
lst
)
(progn
(setq lst (reverse lst))
(while (and (setq a (car lst)) (< i (- L n)))
(setq lst1 (cons a lst1) lst (cdr lst) i (1+ i))
)
lst1
)
)
)
)
)
下载试试，感谢楼主更新
又更新了，感谢分享！