重建填充边界

守仁格竹GM

如题 有这个插件，想学一下如何做出来的，有一份自己的源码。希望高手帮忙。多谢多谢！

laibinwu

http://www.jtbworld.com/lisp/hatchb.htm

守仁格竹GM

论坛搜了好长时间了，没找到答案，好多连接都是无效了

XDSoft

晓东工具箱早就提供这个工具了，下载装下晓东工具箱，在2006下面测试下。

守仁格竹GM

嗯知道有这个工具 但是我想单独弄这个功能 然后生成闭合面域或者多线段

laibinwu

;;; HATCHB.LSP ver 2.5
;;; Recreates hatch boundary by selecting a hatch
;;; Known problem with some elipses and splines
;;; By Jimmy Bergmark
;;; Copyright (C) 1997-2008 JTB World, All Rights Reserved
;;; Website: www.jtbworld.com
;;; E-mail: info@jtbworld.com
;;; 2000-02-12 - First release
;;; 2000-03-27 - Counterclockwise arcs and ellipses fixed
;;;              Objects created joined to lwpolyline if possible
;;;              Error-handling, undo of command
;;;              Can handle PLINETYPE = 0,1,2
;;; 2000-03-30 - Integrating hatchb and hatchb14
;;;              Selection of many hatches
;;;              Splines supported if closed.
;;; 2001-04-02 - Fixed bug with entmake of line with no Z for r14
;;; 2001-07-31 - Removed an irritating semicolon to enable polylines to be created.
;;; 2001-10-04 - Changed mail and homepage so it's easy to find when new versions comes up.
;;; 2003-02-06 - Minor fix
;;; 2003-02-17 - Area returned if no islands is found since it's not consistant
;;; 2003-05-19 - Fix to take PEDITACCEPT variable used in AutoCAD 2004 into account
;;; 2004-11-05 - Minor bugs fixed
;;; 2006-03-18 - Nothing changed from 2.1 other that it's been confirmed to work with AutoCAD 2007
;;; 2006-05-13 - Create the boundary on the same layer as the hatch using the hbl command and
;;;              on current layer/color/linetype using the hb or hatchb command
;;; 2007-02-08 - Fixed a bug with the hbl command
;;; 2008-02-29 - Support for hatches in non WCS thanks to xiaocai
;;; Tested on AutoCAD r14, 2000, 2000i, 2002, 2004, 2005, 2006, 2007, 2008, 2009
;;; should be working on older versions too.

守仁格竹GM

laibinwu 发表于 2013-5-15 11:02
http://www.jtbworld.com/lisp/hatchb.htm

十分感谢

laibinwu

;|Obj类Hatch：
             "ha_assoc" "ha_apploop" "ha_removeloop" "ha_display"
             "ha_explode" "ha_meege" "ha_modscl" "ha_area"
             "pat2slb" "getpat"
|;         ;
;;;
;;; 配合：XDRX_API B11208以上版本
;;; 关于该程序的改进建议请到“晓东CAD空间” “开发论坛” 留言
;;; http://www.xdcad.com/forum
;;;
;;;
;| 命令ha_assoc
功能：将不关联的HATCH转换为关联的HATCH
或者把删除边界的HATCH重新生成边界
|;
(defun c:ha_assoc (/ ss)
  (prompt "\n请选取要改为关联的非关联的HATCH实体<退出>:")
  (if (setq ss (ssget '((0 . "hatch"))))
    (progn
      (xdrx_hatch_make_boundary ss)
      (prompt (strcat "\n已经将 " (itoa (sslength ss))
                      " 个HATCH实体转换为关联的HATCH！"
              )
      )
    )
  )
  (princ)
)


晓东工具箱里有，不过需要xdrx_hatch_make_boundary函数，我的04不能安装工具箱了:'(

laibinwu

XDSoft 发表于 2013-5-15 10:46
晓东工具箱早就提供这个工具了，下载装下晓东工具箱，在2006下面测试下。

请问06怎么安装晓东工具箱

XDSoft

laibinwu 发表于 2013-5-15 11:32
请问06怎么安装晓东工具箱

看本论坛置顶的帖子。

XDSoft

laibinwu 发表于 2013-5-15 11:31
;|Obj类Hatch：
             "ha_assoc" "ha_apploop" "ha_removeloop" "ha_display"
             "ha_ ...

你对晓东工具箱函数挺熟啊。
你在05下安装啊。

laibinwu

XDSoft 发表于 2013-5-15 11:36
看本论坛置顶的帖子。

1,把xdsoft.cui拷贝到xdsoft/sys下
2,启动2006
3,执行options命令，在文件下支持文件搜索路径中添加xdsoft/sys，lisp目录
4,执行cui命令，点load partial customization file即"+"找到xdsoft.cui文件加入即可.

没有附件了，帖子太久了

Free-Lancer

高版本cad已经内置这些功能了来自: Android客户端

守仁格竹GM

感谢大家的信息交流，CAD已经自带功能了。
  (setq ss (car (entsel "\n拾取要创建边界的Hatch图案:")))
  (command "hatchedit" ss "b" "R" "y")
按照这样操作即可