明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 56996|回复: 293

[源码] 局部放大—山寨版 v1.3.9(2024-04-19更新)

    [复制链接]
发表于 2012-9-21 23:32 | 显示全部楼层 |阅读模式
本帖最后由 jh1005 于 2024-4-19 10:00 编辑

因为代码很多来源于论坛,所以叫山寨版,感谢部分函数的原作者(代码里有备注)

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处理,避免某些线不能修剪。































本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x

点评

你好,请问你QQ 1368205880还用吗  发表于 2020-8-15 02:01
强烈支持  发表于 2020-8-8 09:28
非常不错,不过有些放大区域外有裁剪不了的线  发表于 2013-9-27 11:59

评分

参与人数 17明经币 +18 金钱 +20 收起 理由
tigcat + 1 + 10
shirker + 1 很给力!
兰同学 + 1 很给力!
hubeiwdlue + 1 赞一个!
muwind + 1
songyujie928 + 1 + 10 很给力!
zag0666 + 1 感谢分享
fangseng + 1 很给力!
ucuc2003 + 1 赞一个!
love12314 + 1 很给力!

查看全部评分

"觉得好,就打赏"
    共1人打赏

本帖被以下淘专辑推荐:

发表于 2012-10-14 14:47 | 显示全部楼层
对块不起作用啊
回复 支持 1 反对 0

使用道具 举报

发表于 2020-11-21 14:17 | 显示全部楼层
命令: GB ; 错误: 出现异常: 0xC0000005 (访问冲突)
; 警告: 忽略展开 异常
; 错误: 出现异常: 0xC0000005 (访问冲突)


CAD2014
回复 支持 1 反对 0

使用道具 举报

 楼主| 发表于 2024-4-8 16:55 | 显示全部楼层
本帖最后由 jh1005 于 2024-4-8 16:56 编辑

没用过中望,对中望了解不多,可能有些函数不支持。
这函数在CAD使用中没有报错,也能返回正确的值,一直没发现,谢谢提醒。修改如下:
  1. ;;返回第N个元素之后的所有元素(包括N)   by  Lispboy
  2. ;;测试: (fy_List_nB '(2334 556 33 33 44 44 66 77 22) 3) ==> (33 44 44 66 77 22)
  3. (defun fy_List_nB (lst n / lst1 i L)
  4.   (setq L (length lst))
  5.   (cond
  6.     ((< n 1) lst)
  7.     ((= n 1) (cdr lst))
  8.     ((= n 2) (cddr lst))
  9.     ((= n 3) (cdddr lst))
  10.     ((= n 4) (cddddr lst))
  11.     ((and (>= n 5) (< n L))
  12.       (setq i 0)
  13.       (if (< n (/ L 2.0))
  14.         (progn
  15.           (while (and (setq a (car lst)) (< i n))
  16.             (setq lst (cdr lst) i (1+ i))
  17.           )
  18.           lst
  19.         )
  20.         (progn
  21.           (setq lst (reverse lst))
  22.           (while (and (setq a (car lst)) (< i (- L n)))
  23.             (setq lst1 (cons a lst1) lst (cdr lst) i (1+ i))
  24.           )
  25.           lst1
  26.         )
  27.       )
  28.     )
  29.   )
  30. )


发表于 2012-9-22 00:05 | 显示全部楼层
本帖最后由 yjr111 于 2012-9-22 00:12 编辑

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

点评

期待严大师的作品  发表于 2012-9-22 21:24
发表于 2012-9-22 09:15 | 显示全部楼层
下载试试!!!
发表于 2012-9-22 09:24 | 显示全部楼层
加个视图文字放在上面的选择就好了
发表于 2012-9-22 10:49 | 显示全部楼层
不错,这个局部放大程序功能比较强大。
发表于 2012-9-22 11:38 | 显示全部楼层
强烈支持,程序还可再精减,还有好几处bug!好多年前我刚学lsp时,写这个指今整整写了三年才写成,十几行代码,能写出来的都不容易!支持

点评

十几行代码?不会吧,放出源码让大伙见识见识  发表于 2012-9-22 14:57
发表于 2012-9-22 13:13 | 显示全部楼层
好工具,先赞一个!~~
楼主!问一下,大小在哪里可以修改!~~图纸大时感觉这个会显小!~~
另外引线的线形能修改吗?!~~最好是实线!~~
然后引线文字大小最好也能设定!~~

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2012-9-22 13:14 | 显示全部楼层
先支持源码.......
发表于 2012-9-22 14:36 | 显示全部楼层
不错,这个局部放大程序功能比较强大。
发表于 2012-9-22 17:34 | 显示全部楼层
下载试试!!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-26 12:58 , Processed in 0.376770 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表