[原创]：求两直线交点

cqxt00

(defun c:int()
  (setq s1(entsel"请选择第一条直线:"))
  (setq s2(cadr s1))
  (setq s1(entsel"请选择第二条直线:"))
  (setq s3(cadr s1))
  (setq s4(osnap s2 "endp"))
  (setq s5(osnap s2 "midp"))
  (setq s6(osnap s3 "endp"))
  (setq s7(osnap s3 "midp"))
  (setq s41(nth 0 s4))
  (setq s42(nth 1 s4))
  (setq s51(nth 0 s5))
  (setq s52(nth 1 s5))
  (setq s61(nth 0 s6))
  (setq s62(nth 1 s6))
  (setq s71(nth 0 s7))
  (setq s72(nth 1 s7))
  (setq xs4(list s41 s42))
  (setq xs5(list s51 s52))
  (setq xs6(list s61 s62))
  (setq xs7(list s71 s72))
  (setq lname(getvar "clayer"))
  (command"layer" "m" "_aid" "c" "4" "" "")
  (setvar "osmode" 0)
  (setq s1(inters xs4 xs5 xs6 xs7 nil))
  (command "insert" "int" s1 "" "" "")
  (command "layer" "s" lname "")
  (setvar "osmode" 64)
  )

scml

楼主是不是可以写的再详细一点
光给段源代码不知道怎么用啊

Free-Lancer

最初由 cqxt00 发布
[B](defun c:int()
  (setq s1(entsel"请选择第一条直线:"))
  (setq s2(cadr s1))
  (setq s1(entsel"请选择第二条直线:"))
  (setq s3(cadr s1))
  (setq s4(osnap s2 "endp"))
  (setq s5(osnap s2 "midp"))
... [/B]

楼主的思路的确很特别，不过学Lisp还是要学习用下面的方法。

2. 
   
3. (defun c:int (/ ln1 ln2 l1sp l1ep l2sp l2ep intpt lname oldos)
   
4.   (if (and (setq ln1 (entsel "请选择第一条直线:"))
   
5.            (setq ln2 (entsel "请选择第二条直线:"))
   
6.       )
   
7.     (progn
   
8.       (setq l1sp (cdr (assoc 10 (setq el1 (entget (car ln1)))));Line1 startpoint
   
9.             l1ep (cdr (assoc 11 el1));line1 endpoint
   
10.             l2sp (cdr (assoc 10 (setq el2 (entget (car ln2)))));line2 startpoint
    
11.             l2ep (cdr (assoc 11 el2));line2 endpoint
    
12.       )
    
13.       (setq intpt (inters l1sp l1ep l2sp l2ep nil));inters point
    
14.       (setq lname (getvar "clayer");crruct layer
    
15.             oldos (getvar "osmode");crruct osnap
    
16.       )
    
17.       (command "layer" "m" "_aid" "c" "4" "" "")
    
18.       (setvar "osmode" 0)
    
19.       (command "insert" "int" intpt "" "" "")
    
20.       (setvar "clayer" lname);restore layer
    
21.       (setvar "osmode" oldos);restore osnap
    
22.     )
    
23.   )
    
24.   (princ)
    
25. )
    

<br /> (defun c:int (/ ln1 ln2 l1sp l1ep l2sp l2ep intpt lname oldos)<br />   (if (and (setq ln1 (entsel "请选择第一条直线:"))<br />            (setq ln2 (entsel "请选择第二条直线:"))<br />       )<br />     (progn<br />       (setq l1sp (cdr (assoc 10 (setq el1 (entget (car ln1)))));Line1 startpoint <br />             l1ep (cdr (assoc 11 el1));line1 endpoint<br />             l2sp (cdr (assoc 10 (setq el2 (entget (car ln2)))));line2 startpoint<br />             l2ep (cdr (assoc 11 el2));line2 endpoint<br />       )<br />       (setq intpt (inters l1sp l1ep l2sp l2ep nil));inters point<br />       (setq lname (getvar "clayer");crruct layer<br />             oldos (getvar "osmode");crruct osnap<br />       )<br />       (command "layer" "m" "_aid" "c" "4" "" "")<br />       (setvar "osmode" 0)<br />       (command "insert" "int" intpt "" "" "")<br />       (setvar "clayer" lname);restore layer<br />       (setvar "osmode" oldos);restore osnap<br />     )<br />   )<br />   (princ)<br /> )<br />