本帖最后由 Gu_xl 于 2013-6-11 10:41 编辑
在有些时候，从别人处得到dwg图形，里面有非常漂亮的非标准填充图案方案，要想借用其图案是很困难的！
里面的非标准的填充图案，我们cad标准填充图案文件acad.pat或acadiso.pat文件有若没有该图案定义，这时想要对图案进行编辑和使用，也非常麻烦和不方便！一个好的办法是将图案定义提取出来，添加到acad.pat或acadiso.pat文件中！这一切烦恼的问题都不存在了！
在程序的编制过程中，得到了highflybird和caoyin两位版主的鼎力技术支持，在此表示感谢！
网友答: 感谢Gu版给我们带来这个很好的插件，有些Pat文件CAD识别失败，这时可以用笔记本打开Pat文件，复制出需要的部分粘贴到CAD自带的Pat文件中就能使用了，关于Pat文件的资料如下：
https://help.autodesk.com/view/O ... 6-A476-0CA817ADD77E网友答:
我想知道我是逻辑理解错了，还是有什么东西没有添加？网友答: 花了两天的时间逛明经，终于把发帖数攒到20了！！！下载来使用了一下，不要太好用！！！
那些求发邮箱的。朋友，这个插件还是源码，值得你为了它好好逛逛论坛。网友答: 本帖最后由 highflybir 于 2011-12-24 22:15 编辑
占沙发。
不知道关于镜像后的填充图案是不是真的无解？
网友答: 本帖最后由 gbhsu 于 2011-12-24 22:01 编辑
坐板凳！！！！
网友答: 鼓掌！！！！！！网友答: GXL-STRPARSE 没有定义网友答: 精品作品！支持！
网友答:
函数补上：
网友答:
还有几点建议：
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
网友答: 精彩，无私奉献网友答: 我搞机械的，虽然用不上，但是很支持！
在有些时候，从别人处得到dwg图形，里面有非常漂亮的非标准填充图案方案，要想借用其图案是很困难的！
里面的非标准的填充图案，我们cad标准填充图案文件acad.pat或acadiso.pat文件有若没有该图案定义，这时想要对图案进行编辑和使用，也非常麻烦和不方便！一个好的办法是将图案定义提取出来，添加到acad.pat或acadiso.pat文件中！这一切烦恼的问题都不存在了！
在程序的编制过程中，得到了highflybird和caoyin两位版主的鼎力技术支持，在此表示感谢！
游客，本帖隐藏的内容需要发帖数高于 20 才可浏览，你当前发帖数只有 0
网友答: 感谢Gu版给我们带来这个很好的插件，有些Pat文件CAD识别失败，这时可以用笔记本打开Pat文件，复制出需要的部分粘贴到CAD自带的Pat文件中就能使用了，关于Pat文件的资料如下：
https://help.autodesk.com/view/O ... 6-A476-0CA817ADD77E网友答:
atone 发表于 2023-4-17 10:48
我这样设置了快捷键，也保存了ini文件，快捷键不起作用或者叫CAD不识别
我想知道我是逻辑理解错了，还是有什么东西没有添加？网友答: 花了两天的时间逛明经，终于把发帖数攒到20了！！！下载来使用了一下，不要太好用！！！
那些求发邮箱的。朋友，这个插件还是源码，值得你为了它好好逛逛论坛。网友答: 本帖最后由 highflybir 于 2011-12-24 22:15 编辑
占沙发。
不知道关于镜像后的填充图案是不是真的无解？
网友答: 本帖最后由 gbhsu 于 2011-12-24 22:01 编辑
坐板凳！！！！
网友答: 鼓掌！！！！！！网友答: GXL-STRPARSE 没有定义网友答: 精品作品！支持！
网友答:
highflybir 发表于 2011-12-24 23:39
GXL-STRPARSE 没有定义
函数补上：
- ;;;字串分割
- (defun gxl-StrParse (str del / pos lst)
- (while (setq pos (vl-string-search del str))
- (setq lst (cons (substr str 1 pos) lst)
- str (substr str (+ pos 1 (strlen del)))
- )
- )
- (if (= " " Del)
- (vl-remove "" (reverse (cons str lst)))
- (reverse (cons str lst))
- )
- )
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
网友答: 精彩，无私奉献网友答: 我搞机械的，虽然用不上，但是很支持！