计算hatch的切线求助

xinxirong

1、nentselp不能由块内hatch的边界上一点得到ename
2、得到hatch很难得到边界的切线，也不是不能，只是要先复制到模型空间，生成边界多段线，计算，删除边界、hatch

marting

1、HATCH实体，你必须点到 hatch内部到LINE上才能选中实体。2、由HATCH得到边界容易，如果是关联的，通过永久反应器就能得到关联的边界，如果没有边界（没画出），可以生成，论坛有代码。

marting

边界的切线是什么？ 最后画个图贴上来。

st788796

hatch 构造 mpolygon , 由点找最近的 loop 后求切线

xinxirong

建筑的剪力墙，通常是solid的hatch(不一定是水平或垂直)，做成块(可能经过非等比变换)后只通过点选hatch边界上一点获得切线方向

alliuyx

啥也不说了，感谢楼主分享哇！

marting

xinxirong 发表于 2017-4-23 22:02

那你现在的问题是什么呢？

选不到HATCH？还是不会求边界？ 或者是前面都会，而不会求切线？

newer

下面代码生成边界

                               
登录/注册后可看大图

1. (defun c:tt()
   
2.    (if (setq e (car(xdrx_entsel "\n拾取填充<退出>:" '((0 . "hatch")))))
   
3.       (progn
   
4.          (setq numLoop (xdrx_getpropertyvalue e "numLoops"))
   
5.          (setq i -1)
   
6.          (repeat numLoop
   
7.             (setq ges (xdrx_getpropertyvalue e "getloopat" (setq i (1+ i))))
   
8.             (mapcar '(lambda(x)(xdge::entity:make x)) ges)
   
9.          )
   
10.       )
    
11.    )
    
12.    (xdge::free)
    
13.    (princ)
    
14. )
    

(defun c:tt()<br />    (if (setq e (car(xdrx_entsel "\n拾取填充<退出>:" '((0 . "hatch")))))<br />       (progn<br />          (setq numLoop (xdrx_getpropertyvalue e "numLoops"))<br />          (setq i -1)<br />          (repeat numLoop<br />             (setq ges (xdrx_getpropertyvalue e "getloopat" (setq i (1+ i))))<br />             (mapcar '(lambda(x)(xdge::entity:make x)) ges)<br />          )<br />       )<br />    )<br />    (xdge::free)<br />    (princ)<br /> )<br />

1. (setq ss (car (entsel "\n拾取要创建边界的Hatch图案:")))
   
2. (command "hatchedit" ss "b" "R" "y")
   

(setq ss (car (entsel "\n拾取要创建边界的Hatch图案:")))<br /> (command "hatchedit" ss "b" "R" "y")<br />