生成图案填充边界

tong123

各位大神，我想用AutoLISP批量生成图案填充的边界，并且生成的边界与图案填充在同一图层上，求各位大神指点。

stoyer

(defun c:hl ()
  (setvar "cmdecho" 0)
  (setq s (ssget '((0 . "hatch"))))
  (setq n (sslength s))
  (setq k 0)
  (while (< k n)
    (setq name (ssname s k))
    (setvar "clayer" (cdr (assoc 8 (entget name))))
    (command "-hatchedit" name "b" "p" "y")
    (setq k (+ k 1))
  )  
   (setvar "cmdecho" 1)
)

Linhay

命令: -HATCHEDIT
选择图案填充对象:找到 1 个
选择图案填充对象:
输入图案填充选项 [解除关联(DI)/样式(S)/特性(P)/绘图次序(DR)/添加边界(AD)/删除边界(R)/重新创建边界(B)/关联(AS)/独立的图案填充(H)/原点(O)/注释性(AN)/图案填充颜色(CO)/图层(LA)/透明度(T)] <特性>: B
输入边界对象的类型 [面域(R)/多段线(P)] <多段线>:  P
要关联图案填充与新边界吗？[是(Y)/否(N)] <Y>:

tong123

以下代码可以实现批量生成边界，但是生成的边界都是在当前图层，和图案填充不在一个图层，我想把图案填充和边界放在同一图层，不知怎么处理，跪求大神解答。
(princ "\n图案填充批量生成边界命令:hl")
(defun c:hl ()
  (setvar "cmdecho" 0)
  (setq s (ssget '((0 . "hatch"))))
  (setq n (sslength s))
  (setq k 0)
  (while (< k n)
    (setq name (ssname s k))
    (command "-hatchedit" name "b" "p" "y")
    (setq k (+ k 1))
  )  
   (setvar "cmdecho" 1)
)

tong123

stoyer 发表于 2017-11-22 15:36
(defun c:hl ()
  (setvar "cmdecho" 0)
  (setq s (ssget '((0 . "hatch"))))

亲测，可用，十分感谢

li809

非常感谢 的了。谢谢分享

KO你

tong123 发表于 2017-11-22 10:21
以下代码可以实现批量生成边界，但是生成的边界都是在当前图层，和图案填充不在一个图层，我想把图案填充和 ...

快捷键  hq  填充重新创建边界
(defun c:hq () (command"-hatchedit"(ssget)"b""p""y"))

寒潮大冬瓜

H填充选择对象和拾取点在重建边框时的区别！

你有种再说一遍

寒潮大冬瓜 发表于 2025-1-1 20:23
H填充选择对象和拾取点在重建边框时的区别！

生成的时候自己处理咯,
这种东西IFox都写了n年了...

寒潮大冬瓜

你有种再说一遍 发表于 2025-1-1 20:32
生成的时候自己处理咯,
这种东西IFox都写了n年了...

感谢指导！IFox搜索了一下：号外！号外！ifoxcad源码包发布啦！！！！
35 个回复 - 10160 次查看
公元2023年，你还在为写代码痛苦吗？ 现在ifoxcad类库推出了源码包，一次解决你写代码痛苦的难题。 从此你的项目再也不会带一堆的依赖dll了，用了ifox就如同你自己写的代码一般。 具体的使用方法简单到令人发指 ...
2023-1-31 21:39 - 落魄山人 - AutoCAD.net/VB.net/C# 编程技术
cad.net IFox拉伸填充技术要点讲解
0 个回复 - 707 次查看
# 拉伸填充 拉伸填充在Lisp做不好是有原因的,此链接就暴露了Lisp制作的许多缺点:例如Lisp应对ESC会中断,此时造成可怕的回调中断问题. http://bbs.mjtd.com/thread-181607-1-1.html 我将带大家解读一次我所写的C ...
2024-10-22 19:35 - 你有种再说一遍 - AutoCAD.net/VB.net/C# 编程技术
IFoxCad带有撤回的多段线Jig示例
2 个回复 - 1459 次查看
带有撤回的多段线Jig示例，帮助大家学习使用IFox 个人B站主页有教学视频，欢迎捧场，点此进入！!！
2023-2-4 19:55 - d1742647821 - AutoCAD.net/VB.net/C# 编程技术
IFOX模板+CAD2014调试时无法正常运行
2 个回复 - 1042 次查看
如题主要启动调试时，第一次启动就出现提示如图1，设置图2后，再次调试就不会出现提示，但是等一小会就会自动直接跳出CAD，那个大佬帮看看，，困扰挺久，是哪里只设置问题吗？？有人遇到没。。。谢谢!!!
2023-4-22 00:37 - yaojing38 - AutoCAD.net/VB.net/C# 编程技术
IFoxCad画圆Jig示例，包括2点画圆和3点画圆
3 个回复 - 1186 次查看
画圆Jig示例，包括2点画圆和3点画圆 帮助大家学习使用IFox
2023-2-5 11:23 - d1742647821 - AutoCAD.net/VB.net/C# 编程技术