谁能搞到这个填充图案PAT文件吗？

尘缘一生 · 发表于昨天 21:53

这个似乎找不到，

果真没有，谁能写个程序吗？

hhh454 · 发表于昨天 23:06

可以用做一个填充图案，只要是标准图就行，发个cad上来，我试试

尘缘一生 · 发表于昨天 23:34

hhh454 发表于 2024-11-27 23:06
可以用做一个填充图案，只要是标准图就行，发个cad上来，我试试

好的，好的

hhh454 · 发表于昨天 23:51

填充时选择，原点左下角，填充框的大小按图就行
测试用cad文件

pat文件

moranyuyan · 发表于 11 小时前

这个填充没看懂，代表什么意思

puzb2023 · 发表于 9 小时前

直接做成块填充，缺点是不能修改比例

尘缘一生 · 发表于 9 小时前

moranyuyan 发表于 2024-11-28 07:17
这个填充没看懂，代表什么意思

应该是自然土壤

另两个我写了程序

考虑到填充的话，在作SLD时候，可以抛弃填充，SLD文件就会小很多，
另外，特别是线类，如果密集型，实体就会造成DWG文件大，如填充就不会。

比如：下面是彩钢瓦屋面填充。

如果画线，哪会多出来很多线，DWG文件大，且SLD做出来也大。

尘缘一生 · 发表于 9 小时前

本帖最后由尘缘一生于 2024-11-28 09:00 编辑

puzb2023 发表于 2024-11-28 08:47
直接做成块填充，缺点是不能修改比例

没事，有四种解决办法：
1：常规的放大缩小，不是理想的
2：填充入库，做好后，用“继承填充”作，会继承比例等参数。三领已完成
3：如果图纸业已存在，继承填充即可，三领已完成。
4：动态填充比例角度，本坛有程序。

下面是我集成的代码，示意

;;继承填充------------
(defun c:jctc (/ nam tcm tcl tcj tcb col)
(if (and (setq nam (car (entsel (slmsg "\n 点选一个填充图案<退出>:" "\n 翴匡滁恶瓜<癶>:" "\n Click a hatch pattern<Exit>:"))))
(= (strcase (dxf1 nam 0)) "HATCH")
)
(progn
(setq tcm (dxf1 nam 2))
(if (not (hpnam-to-system tcm)) (enamtohatch nam))
(setq
tcl (dxf1 nam 8)
tcj (dxf1 nam 52) ;获取填充图案的角度(弧度)
tcj (sl-r2d tcj) ;;角度
col (sl-getcolor nam)
;tcb (vla-get-patternscale (en2obj nam))
tcb (vlax-get (en2obj nam) 'PatternScale)
)
(jctc tcm tcl tcj tcb col)
)
)
)
;;继承填充函数------(一级)----------

p-3-ianlcc · 发表于 6 小时前

尘缘一生发表于 2024-11-28 08:54
没事，有四种解决办法：
1：常规的放大缩小，不是理想的
2：填充入库，做好后，用“继承填充”作，会继 ...

刚刚测试了一下，出现错误的消息
指令: (LOAD "C:/lsp/jm/mi/继承填充jctc.lsp") JCTC
指令: JCTC
Application Error: 0 :- no function definition: SLMSGADS 要求错误
指令:
指令:
指令: (LOAD "C:/lsp/jm/mi/继承填充jctc.lsp") JCTC
指令: jctc
Application Error: 0 :- no function definition: SLMSGADS 要求错误

xyp1964 · 发表于 4 小时前

素土夯实

账号		自动登录	找回密码
密码			注册

[提问] 谁能搞到这个填充图案PAT文件吗？

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源

点评

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源