怎样实现双线填充？

hdlyt11

选取图中两道直线，获取两道直线的四个端点，然后以四个端点组成的四边形用实体填充，实体图层hatch，请各位高手帮忙把这段源码写一下，多谢了，呵呵

Q_Q

有没有填充是间断的，比如填充5mm一段，在空一段5mm，在填充5mm一段

305341043

这功能CAD自带的呀，有两种方式呀，
填加拾取点与拾取对象

806331126

谢谢分享这么好的东西

crazylsp

))))))))))))))))))))))))))))))))))))))

hdlyt11

这个程序选择两条直线，实现不了在两条直线间填充为solid

Gu_xl

2. 
   
3. (defun c:tt(/ en1 en2 ss p1 p2 p3 p4)
   
4.   (setq en1 (car(entsel "\n第一条直线："))
   
5.         en2 (car(entsel "\n第二条直线："))
   
6.         )
   
7.   (setq ss (ssadd))
   
8.   (ssadd en1 ss)
   
9.   (ssadd en2 ss)
   
10.   (setq p1 (cdr (assoc 10 (setq enl( entget en1))))
    
11.         p2 (cdr (assoc 11 enl))
    
12.         p3 (cdr (assoc 10 (setq enl( entget en2))))
    
13.         p4 (cdr (assoc 11 enl))
    
14.         )
    
15.   (if (inters p1 p4 p2 p3)
    
16.     (progn
    
17.       (command "line" p1 p3 "")
    
18.       (ssadd (entlast) ss)
    
19.       (command "line" p2 p4 "")
    
20.       (ssadd (entlast) ss)
    
21.       (command "hatch" "solid" "s" ss "")
    
22.       )
    
23.     (progn
    
24.       (command "line" p1 p4 "")
    
25.       (ssadd (entlast) ss)
    
26.       (command "line" p2 p3 "")
    
27.       (ssadd (entlast) ss)
    
28.       (command "hatch" "solid" "s" ss "")
    
29.       )
    
30.     )
    
31.   
    
32.   )
    

<br /> (defun c:tt(/ en1 en2 ss p1 p2 p3 p4)<br />   (setq en1 (car(entsel "\n第一条直线："))<br />         en2 (car(entsel "\n第二条直线："))<br />         )<br />   (setq ss (ssadd))<br />   (ssadd en1 ss)<br />   (ssadd en2 ss)<br />   (setq p1 (cdr (assoc 10 (setq enl( entget en1))))<br />         p2 (cdr (assoc 11 enl))<br />         p3 (cdr (assoc 10 (setq enl( entget en2))))<br />         p4 (cdr (assoc 11 enl))<br />         )<br />   (if (inters p1 p4 p2 p3)<br />     (progn<br />       (command "line" p1 p3 "")<br />       (ssadd (entlast) ss)<br />       (command "line" p2 p4 "")<br />       (ssadd (entlast) ss)<br />       (command "hatch" "solid" "s" ss "")<br />       )<br />     (progn<br />       (command "line" p1 p4 "")<br />       (ssadd (entlast) ss)<br />       (command "line" p2 p3 "")<br />       (ssadd (entlast) ss)<br />       (command "hatch" "solid" "s" ss "")<br />       )<br />     )<br />   <br />   )<br />

ZZXXQQ

简化了一下。

游客，本帖隐藏的内容需要发帖数高于 5 才可浏览，你当前发帖数只有 0

hdlyt11

呵呵，多谢，有这个就可以了

hdlyt11

明总的提示：错误 : 参数类型错误: 二维/三维点: nil

hdlyt11

(defun c:tt (/ s1 s2 en1 en2 p1 p2 p3 p4)
(setvar "CMDECHO" 0)
(if (and (setq s1 (entsel "\n第一条直线："))
       (setq s2 (entsel "\n第二条直线："))
       (setq en1 (entget(car s1)))
       (setq en2 (entget(car s2)))
       (= (cdr(assoc 0 en1)) "LINE")
       (= (cdr(assoc 0 en2)) "LINE")) (progn
  (setq p1 (cdr (assoc 10 en1))
        p2 (cdr (assoc 11 enl))
        p3 (cdr (assoc 10 en2))
        p4 (cdr (assoc 11 en2)))
  (if (inters p1 p4 p2 p3)
   (command ".SOLID" p1 p3 p2 p4 "")
   (command ".SOLID" p1 p4 p2 p3 "")
  )
))
(setvar "CMDECHO" 1)
(princ)
)
；以上才是我真正想得到的结果

hdlyt11

还有就是希望是框选而不是点选，另外连接两条直线的直线要删掉，这样才算完美。

yunfengning

不知为何，cad2004用不了。