荒野孤行 发表于 2015-3-17 21:36:49

lisp-简单的填充图案生成

本帖最后由 荒野孤行 于 2016-4-15 23:40 编辑

关于填充图案的pat格式文件的使用说步骤：
（1）将生成的pat格式文件放到文件夹里并复制其所在文件夹的路径
（2）在CAD中输入命令“OP”，在选项→文件→支持文件搜索路径中点击“添加”，Ctrl+V粘贴到输入列中，点击下方确定，OK
（3）然后用CAD里自带的图案填充命令“H”，找到我们生成的pat文件，看效果吧。

源码如下：
(defun c:expat ()
(princ "\n功能：自动生成无限长度延伸线的填充图案pat文件。")
(setvar "cmdecho" 0)
(vl-load-com)
(setq nam "wdypat_extend")
(setq        ffn (getfiled "指定文件存储路径及文件名"
                      nam
                      "pat"
                      1
          )
)
(setq nam (vl-filename-base ffn)) ;获取文件名
(setq ff (open ffn "w"))
(close ff)
**** Hidden Message *****

;|看了图案填充pat文件里面的数据，然后看了pat文件的编码规则，就像是将一个单元进行了两个不同方向的阵列，但是pat里面的数据是用垂直&平行阵列方向来记录的，将阵列与偏移的转换公式做出来，那编写生成更复杂的填充图案就完成了一大步。|;

ajunseo 发表于 2021-5-21 20:49:13

支持,总会用到的。

l982414603 发表于 2021-5-20 08:20:12

支持,总会用到的。

999999 发表于 2021-1-21 01:06:35

顶起，支持大神

琴剑江山_10184 发表于 2015-3-17 22:13:58

此贴顶起来

434939575 发表于 2015-3-17 22:14:04

支持分享！

zbwei120 发表于 2015-3-17 22:16:19

支持，绘图填充的人应该挺有用的。

USER2128 发表于 2015-3-18 08:26:56

实用功能，力挺楼主！

dbqtju 发表于 2015-3-18 08:27:50

支持,总会用到的。

egos 发表于 2015-3-19 22:35:02

特别有用，但是复杂的图案就不行了

荒野孤行 发表于 2015-3-24 18:59:43

egos 发表于 2015-3-19 22:35 static/image/common/back.gif
特别有用，但是复杂的图案就不行了

我的数学功底差，公式变换不会做。

白色微風1991 发表于 2016-6-26 07:42:14

支持分享！

qyming 发表于 2016-6-26 12:52:11

学习学习……。
页: [1] 2
查看完整版本: lisp-简单的填充图案生成