lisp-简单的填充图案生成

荒野孤行

关于填充图案的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)
(princ "\n选取曲线：")
  (setq userpoint (getpoint "\n请选取基准点"))
  (setq ss (ssget '((0 . "LINE"))))
  (setq offsetdis (getdist "\n请确定间距："))
  (setq ff (open ffn "a"))
  (princ (strcat "*" nam "," "制作者-吴丁运\n") ff)
  (close ff)
  (setq i 0)
  (repeat (sslength ss)
    (setq entnam      (ssname ss i)
          endata
                      (entget entnam)
          start_point
                      (cdr (assoc 10 endata))
          end_point
                      (cdr (assoc 11 endata))
          ang
                      (/ (* (angle start_point end_point) 180.0) pi)
          inter
                      (inters start_point end_point userpoint (list 0 10.0) nil)
          x
                      (atof (rtos (- (car inter) (car userpoint)) 2 4))
          y
                      (atof (rtos (- (cadr inter) (cadr userpoint)) 2 4))
    )
    (setq ff (open ffn "a"))
    (princ ang ff)
    (princ "," ff)
    (princ x ff)
    (princ "," ff)
    (princ y ff)
    (princ ",0," ff)
    (princ offsetdis ff)
    (princ "\n" ff)
    (close ff)
    (setq i (1+ i))
  )
  (setq ff (open ffn "a"))
  (princ "*" ff)
  (close ff)
  (princ "\n提示：图案填充pat文件已生成！")
)

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

ajunseo

支持,总会用到的。

l982414603

支持,总会用到的。

999999

顶起，支持大神

琴剑江山_10184

此贴顶起来

434939575

支持分享！

zbwei120

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

USER2128

实用功能，力挺楼主！

dbqtju

支持,总会用到的。

egos

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

荒野孤行

egos 发表于 2015-3-19 22:35
特别有用，但是复杂的图案就不行了

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

白色微風1991

支持分享！

qyming

学习学习……。