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

jh1005 · 发表于 2012-9-21 23:32:40

本帖最后由 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处理，避免某些线不能修剪。

YANGF85 · 发表于 2012-10-14 14:47:31

对块不起作用啊

伪书虫86 · 发表于 2020-11-21 14:17:35

命令: GB ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开异常
; 错误: 出现异常: 0xC0000005 (访问冲突)

CAD2014

jh1005 · 发表于 2024-4-8 16:55:19

本帖最后由 jh1005 于 2024-4-8 16:56 编辑

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

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

，谢谢提醒。修改如下：

;;返回第N个元素之后的所有元素(包括N) by Lispboy
;;测试: (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:05:33

本帖最后由 yjr111 于 2012-9-22 00:12 编辑

看起来很美，先支持一个
实战试用，速度忒慢，无法忍受，好像是get-touching这个地方问题

成仔 · 发表于 2012-9-22 09:15:04

下载试试！！！

fengshi0519 · 发表于 2012-9-22 09:24:25

加个视图文字放在上面的选择就好了

hpy · 发表于 2012-9-22 10:49:44

不错，这个局部放大程序功能比较强大。

dz-2011 · 发表于 2012-9-22 11:38:35

强烈支持，程序还可再精减，还有好几处bug!好多年前我刚学lsp时，写这个指今整整写了三年才写成,十几行代码，能写出来的都不容易!支持

daidong013 · 发表于 2012-9-22 13:13:40

好工具，先赞一个！~~
楼主！问一下，大小在哪里可以修改！~~图纸大时感觉这个会显小！~~
另外引线的线形能修改吗？！~~最好是实线！~~
然后引线文字大小最好也能设定！~~

kwok · 发表于 2012-9-22 13:14:51

先支持源码.......

cable2004 · 发表于 2012-9-22 14:36:24

不错，这个局部放大程序功能比较强大。

杨如迁 · 发表于 2012-9-22 17:34:43

下载试试！！！

账号		自动登录	找回密码
密码			注册

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

本帖子中包含更多资源

点评

评分

本帖被以下淘专辑推荐:

点评

点评

本帖子中包含更多资源