局部放大—山寨版 v1.4.3（2024-8-3更新）
本帖最后由 jh1005 于 2024-8-3 10:13 编辑因为代码很多来源于论坛，所以叫山寨版，感谢部分函数的原作者(代码里有备注)
2024-08-03更新：支持中望，浩辰
————————————————————————————————
2024-05-21更新：
修复使用注释性标注与全局比例冲突导致出错的问题。
————————————————————————————————
2024-05-07更新：
新增动态引线F8正交切换。
————————————————————————————————
2024-04-19更新：
允许文字高度和箭头小于1
————————————————————————————————
2024-04-13更新：
1.优化对象引线动态时的箭头方向的判定。
————————————————————————————————
2024-04-03更新：
1.漏了“FY_VARSET”子函数，v1.3.7附件已更新，请下载过的朋友重新下载。
————————————————————————————————
2024-03-28更新：
1.修复视图名称不能用中文的bug
2.修复选择区域内含有二维多段线导致闪退的bug
3.修复图元在0层，动态时显示为白色的问题。
4.视图名称根据当前设置大小，不再随图放大。
5.尺寸文字/箭头，大小按需放大。
6.增加【文字随比例放大】的选项（如果文字选择不放大，与原位置会有偏差）
7.增加罗马数字(感谢xzd716的建议和mahuan1279，freedom_ice的转换函数)
8.增加视图名称的放置位置(上或下)
9.其它新增加项，如下图红框。
————————————————————————————————
2020-10-13更新：
增加了几个选项。
————————————————————————————————
2020-08-17更新：
修正CAD2015,2016版出现VVC: Internal Error的问题。
————————————————————————————————
2020-08-17更新：
提升速度，增加字体和修剪精度设置，增加填充过滤。
————————————————————————————————
2019-12-29更新：
更新新版本支持，CAD2020测试通过。
————————————————————————————————
2013-9-16更新：
1.修复一些闪退的Bug，优化了一下代码。
2.支持放大普通的块。
3.调用了G版的图层状态保存函数(感谢G版)。
4.增加选择区域功能。
5.修复不能分解solid填充的Bug。
6.增加Z轴归0处理，避免某些线不能修剪。
对块不起作用啊 命令: GB ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)
CAD2014 本帖最后由 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
)
)
)
)
)
本帖最后由 yjr111 于 2012-9-22 00:12 编辑
看起来很美，先支持一个
实战试用，速度忒慢，无法忍受，好像是get-touching这个地方问题
下载试试！！！ 加个视图文字放在上面的选择就好了 不错，这个局部放大程序功能比较强大。 强烈支持，程序还可再精减，还有好几处bug!好多年前我刚学lsp时，写这个指今整整写了三年才写成,十几行代码，能写出来的都不容易!支持 好工具，先赞一个！~~
楼主！问一下，大小在哪里可以修改！~~图纸大时感觉这个会显小！~~
另外引线的线形能修改吗？！~~最好是实线！~~
然后引线文字大小最好也能设定！~~
先支持源码....... 不错，这个局部放大程序功能比较强大。 下载试试！！！