这个似乎找不到，
果真没有，谁能写个程序吗？
网友答: 本帖最后由 尘缘一生 于 2024-11-28 09:00 编辑
没事，有四种解决办法：
1：常规的放大缩小，不是理想的
2：填充入库，做好后，用“继承填充”作，会继承比例等参数。三领已完成
3：如果图纸业已存在，继承填充即可，三领已完成。
4：动态填充比例角度，本坛有程序。
下面是我集成的代码，示意
网友答:
刚刚测试了一下，出现错误的消息
指令: (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 要求错误网友答:
应该是自然土壤
另两个我写了程序
考虑到填充的话，在作SLD时候，可以抛弃填充，SLD文件就会小很多，
另外，特别是线类，如果密集型，实体就会造成DWG文件大，如填充就不会。
比如：下面是彩钢瓦屋面填充。
如果画线，哪会多出来很多线，DWG文件大，且SLD做出来也大。
网友答: 可以用做一个填充图案，只要是标准图就行，发个cad上来，我试试网友答:
好的，好的
网友答: 填充时选择，原点左下角，填充框的大小按图就行
测试用cad文件
pat文件
网友答: 这个填充没看懂，代表什么意思网友答: 直接做成块填充，缺点是不能修改比例网友答: 素土夯实
果真没有，谁能写个程序吗？
网友答: 本帖最后由 尘缘一生 于 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)
- )
- )
- )
- ;;继承填充函数------(一级)----------
网友答:
尘缘一生 发表于 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 要求错误网友答:
moranyuyan 发表于 2024-11-28 07:17
这个填充没看懂，代表什么意思
应该是自然土壤
另两个我写了程序
考虑到填充的话，在作SLD时候，可以抛弃填充，SLD文件就会小很多，
另外，特别是线类，如果密集型，实体就会造成DWG文件大，如填充就不会。
比如：下面是彩钢瓦屋面填充。
如果画线，哪会多出来很多线，DWG文件大，且SLD做出来也大。
网友答: 可以用做一个填充图案，只要是标准图就行，发个cad上来，我试试网友答:
hhh454 发表于 2024-11-27 23:06
可以用做一个填充图案，只要是标准图就行，发个cad上来，我试试
好的，好的
网友答: 填充时选择，原点左下角，填充框的大小按图就行
测试用cad文件
pat文件
网友答: 这个填充没看懂，代表什么意思网友答: 直接做成块填充，缺点是不能修改比例网友答: 素土夯实