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

Gu_xl

在有些时候，从别人处得到dwg图形，里面有非常漂亮的非标准填充图案方案，要想借用其图案是很困难的！
里面的非标准的填充图案，我们cad标准填充图案文件acad.pat或acadiso.pat文件有若没有该图案定义，这时想要对图案进行编辑和使用，也非常麻烦和不方便！一个好的办法是将图案定义提取出来，添加到acad.pat或acadiso.pat文件中！这一切烦恼的问题都不存在了！
在程序的编制过程中，得到了highflybird和caoyin两位版主的鼎力技术支持，在此表示感谢！

游客，本帖隐藏的内容需要发帖数高于 20 才可浏览，你当前发帖数只有 0

atone

atone 发表于 2023-4-17 10:48
我这样设置了快捷键，也保存了ini文件，快捷键不起作用或者叫CAD不识别

我想知道我是逻辑理解错了，还是有什么东西没有添加？

kucha007

花了两天的时间逛明经，终于把发帖数攒到20了！！！下载来使用了一下，不要太好用！！！
那些求发邮箱的。朋友，这个插件还是源码，值得你为了它好好逛逛论坛。

guosheyang

swb4420 发表于 2021-2-28 15:11
两个测试CAD提示图形文件无效。

fixmj.exe  本版块搜索这个文件  修复下即可

highflybir

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

gbhsu

坐板凳！！！！

cxs259

鼓掌！！！！！！

highflybir

GXL-STRPARSE 没有定义

仲文玉

精品作品！支持！

Gu_xl

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. )
    

;;;字串分割<br /> (defun gxl-StrParse (str del / pos lst)<br />   (while (setq pos (vl-string-search del str))<br />     (setq lst (cons (substr str 1 pos) lst)<br />           str (substr str (+ pos 1 (strlen del)))<br />     )<br />   )<br />   (if (= " " Del)<br />     (vl-remove "" (reverse (cons str lst)))<br />     (reverse (cons str lst))<br />   )<br /> )<br />

highflybir

还有几点建议：

1、建议用measurement 系统变量
   ;;measurement
  (setq MEASUREMENT (getvar 'MEASUREMENT)) ;_ 0 &Oacute;&cent;&Ouml;&AElig; 1 &sup1;&laquo;&Ouml;&AElig;
  (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

gzxl

精彩，无私奉献

669423907

我搞机械的，虽然用不上，但是很支持！