乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 260|回复： 12

求助~可否当完成绘制PLINE后自动填充HATCH呢?

[复制链接]
cadauto

2

主题

5

帖子

2

银币

初来乍到

Rank: 1

铜币
13
发表于 2011-9-16 01:06:00 | 显示全部楼层 |阅读模式
小弟对LISP认识不深, 看了半天书也不懂门路,不知有否解决方法, 求教~
回复

使用道具 举报

gaics

26

主题

224

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
327
发表于 2018-10-18 08:19:00 | 显示全部楼层

这段程序我用了好多年了，确实很好。但有时也不太稳定，hh有时画出来的是矩形框而没有生成填充。个人觉得这个程序有点繁琐了，而且有些系统变量已经在新版本CAD中废弃了，比如blipmode。昨天还试着简化一下，可以实现同样的功能，但有几段代码还没理解其意义和目的，不知道删除后会不会出现什么bug，现在还在测试中。
回复

使用道具 举报

gaics

26

主题

224

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
327
发表于 2022-7-16 16:02:00 | 显示全部楼层

(if (= (tblsearch "layer" "HAT") nil)
    (command "layer" "N" "HAT" "C" 8 "HAT" "")
  )
更新了，增加上述代码。
回复

使用道具 举报

gaics

26

主题

224

帖子

7

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
327
发表于 2018-10-18 08:21:00 | 显示全部楼层

(command "hatch" "" "" "" "l" "")
用这行代码可以在最后生成的封闭图形中自动填充，你可以试试。但是这句代码是什么意思我还没搞懂，发帖要问下论坛前辈。
回复

使用道具 举报

cjjh8301

11

主题

69

帖子

9

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
113
发表于 2011-9-16 08:49:00 | 显示全部楼层
给你一个网上淘来的，HH 是画矩形填充，HHH 是任意封闭PL 填充，填充样式是你上一次用CAD自带填充的样式。
不过有时候会出小问题，自己感受吧。
请点击此处下载

请先注册会员后在进行下载

已注册会员，请先登录后下载

文件名称:jhqec1i1p2v.lsp 
下载次数:0  文件大小:3.71 KB  售价:2银币 [记录]
下载权限: 不限 以上或 Vip会员   [开通Vip]   [签到领银币]  [免费赚银币]



回复

使用道具 举报

無恒的地盘

7

主题

34

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2011-9-16 15:01:00 | 显示全部楼层
好东西，好用
回复

使用道具 举报

無恒的地盘

7

主题

34

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2011-9-16 15:59:00 | 显示全部楼层
怎么样指定填充样式
回复

使用道具 举报

yoyoho

15

主题

644

帖子

20

银币

中流砥柱

Rank: 25

铜币
698
发表于 2011-9-16 21:29:00 | 显示全部楼层
感谢 cjjh8301 楼主分享程序,学习了!
回复

使用道具 举报

cjjh8301

11

主题

69

帖子

9

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
113
发表于 2011-9-17 13:11:00 | 显示全部楼层

填充样式是前一次用CAD 自带命令填充的那个样式。
回复

使用道具 举报

無恒的地盘

7

主题

34

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
62
发表于 2011-9-17 17:39:00 | 显示全部楼层

这个会值(if (= (getvar "hpname") "")是不是CAD上次自带命令填充的那个样式，我是菜鸟不懂，怎么设置指定样式填充，用户定义填充会有BUG
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-1-31 12:37 , Processed in 0.170428 second(s), 77 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表