明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 127403|回复: 452

[【Gu_xl】] 【Gu_xl】自动提取AutoCAD 图形中填充图案的定义文件

    [复制链接]
发表于 2011-12-24 21:57:13 | 显示全部楼层 |阅读模式
本帖最后由 Gu_xl 于 2013-6-11 10:41 编辑

在有些时候,从别人处得到dwg图形,里面有非常漂亮的非标准填充图案方案,要想借用其图案是很困难的!
里面的非标准的填充图案,我们cad标准填充图案文件acad.pat或acadiso.pat文件有若没有该图案定义,这时想要对图案进行编辑和使用,也非常麻烦和不方便!一个好的办法是将图案定义提取出来,添加到acad.pat或acadiso.pat文件中!这一切烦恼的问题都不存在了!
在程序的编制过程中,得到了highflybird和caoyin两位版主的鼎力技术支持,在此表示感谢!
游客,本帖隐藏的内容需要发帖数高于 20 才可浏览,你当前发帖数只有 0




本帖子中包含更多资源

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

x

点评

能直接做成格式刷吗  发表于 2015-9-2 14:33
程序的功底很深...  发表于 2012-3-7 14:20
数据还应该受到图案填充原点影响  发表于 2011-12-26 04:17

评分

参与人数 20明经币 +28 金钱 +100 收起 理由
趣意人生 + 1 很给力!
xyp1964 + 3 很给力!
xshrimp + 2 + 30 很给力!
hmseu + 1 + 10 赞一个!
ucuc2003 + 1 很给力!
vlisp2012 + 1
T_T + 1
yoyoho + 1 赞一个!
hhh454 + 1 + 50 很给力!
1993063 + 5 赞一个! G 版出手,不同凡响!

查看全部评分

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

本帖被以下淘专辑推荐:

发表于 2023-4-17 10:50:04 | 显示全部楼层
atone 发表于 2023-4-17 10:48
我这样设置了快捷键,也保存了ini文件,快捷键不起作用或者叫CAD不识别

我想知道我是逻辑理解错了,还是有什么东西没有添加?
发表于 2021-1-8 21:21:51 | 显示全部楼层
花了两天的时间逛明经,终于把发帖数攒到20了!!!下载来使用了一下,不要太好用!!!
那些求发邮箱的。朋友,这个插件还是源码,值得你为了它好好逛逛论坛。
发表于 2021-4-5 10:03:47 | 显示全部楼层
swb4420 发表于 2021-2-28 15:11
两个测试CAD提示图形文件无效。

fixmj.exe  本版块搜索这个文件  修复下即可
发表于 2011-12-24 21:58:09 | 显示全部楼层
本帖最后由 highflybir 于 2011-12-24 22:15 编辑

占沙发。
不知道关于镜像后的填充图案是不是真的无解?

评分

参与人数 1明经币 +2 金钱 +30 收起 理由
gbhsu + 2 + 30 赞一个!

查看全部评分

发表于 2011-12-24 22:01:10 | 显示全部楼层
本帖最后由 gbhsu 于 2011-12-24 22:01 编辑

坐板凳!!!!
发表于 2011-12-24 22:03:51 | 显示全部楼层
鼓掌!!!!!!
发表于 2011-12-24 23:39:47 | 显示全部楼层
GXL-STRPARSE 没有定义
发表于 2011-12-25 08:24:23 | 显示全部楼层
精品作品!支持!
 楼主| 发表于 2011-12-25 09:43:28 | 显示全部楼层
highflybir 发表于 2011-12-24 23:39
GXL-STRPARSE 没有定义

函数补上:
  1. ;;;字串分割
  2. (defun gxl-StrParse (str del / pos lst)
  3.   (while (setq pos (vl-string-search del str))
  4.     (setq lst (cons (substr str 1 pos) lst)
  5.           str (substr str (+ pos 1 (strlen del)))
  6.     )
  7.   )
  8.   (if (= " " Del)
  9.     (vl-remove "" (reverse (cons str lst)))
  10.     (reverse (cons str lst))
  11.   )
  12. )
发表于 2011-12-25 10:31:07 | 显示全部楼层
还有几点建议:

1、建议用measurement 系统变量
   ;;measurement
  (setq MEASUREMENT (getvar 'MEASUREMENT)) ;_ 0 Ó¢ÖÆ 1 ¹«ÖÆ
  (cond
    ((= 0 MEASUREMENT) ;
     (setq patname (getenv "ANSIHatch"))
    )
    ((= 1 MEASUREMENT)  
     (setq patname (getenv "ISOHatch"))
    )
  )

   (setq filename (findfile patname))
  (setq filepath (strcat (VL-FILENAME-DIRECTORY filename) "\\"))
2、好像应该按照i文件支持路径顺序找acad.pat或者acadiso.pat

譬如天正,斯维尔之类的,它们的  标准pat文件并不在你的那个目录下,(getpath)

3、如果是根据图案名字来定义文件名,可以不考虑添加,因为一个文件名只有一种图案有效。
4、如果是批量或者连续选择,建议前面让用户选择,是否添加到标准图案库中,如果是,则判断标准图案中是否有
有则不计算,无则计算。
如果不是添加到标准图案中,则寻找支持目录下是否有同名的图案名,有的话不计算,否则计算。
这样可以防止覆盖原来的pat

点评

第4点意见,已参照更新!谢谢!  发表于 2011-12-25 20:59

评分

参与人数 1明经币 +3 收起 理由
Gu_xl + 3 赞一个!

查看全部评分

发表于 2011-12-25 10:48:39 | 显示全部楼层
精彩,无私奉献
发表于 2011-12-25 10:59:44 | 显示全部楼层
我搞机械的,虽然用不上,但是很支持!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-27 03:42 , Processed in 0.191286 second(s), 36 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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