請問如何得到倆條線交叉的點

张大锤

請問如何得到2条线交叉的點  交點处 画100的红圆

fan_zh

(setq a '(1.0 1.0) b '(9.0 9.0))
(setq c '(4.0 1.0) d '(4.0 2.0))
命令： (inters a b c d)

nil

命令： (inters a b c d T)

nil

命令： (inters a b c d nil)

(4.0 4.0)

有了交点再画圆就可以了

xyp1964

1. ;; (abc (setq s1 (car (entsel "\n选择: "))) (setq s2 (car (entsel "\n选择: "))))
   
2. (defun abc (s1 s2 / p1 p2 p3 p4 pt)
   
3.   (defun dxf (code e) (cdr (assoc code (entget e))))
   
4.   (setq        p1 (DXF 10 s1)
   
5.         p2 (DXF 11 s1)
   
6.         p3 (DXF 10 s2)
   
7.         p4 (DXF 11 s2)
   
8.   )
   
9.   (if (setq pt (inters p1 p2 p3 p4 t))
   
10.     (progn
    
11.       (command "circle" "non" pt 100)
    
12.       (command "chprop" (entlast) "" "c" "1" "")
    
13.     )
    
14.   )
    
15. )

;; (abc (setq s1 (car (entsel "\n选择: "))) (setq s2 (car (entsel "\n选择: "))))<br /> (defun abc (s1 s2 / p1 p2 p3 p4 pt)<br />   (defun dxf (code e) (cdr (assoc code (entget e))))<br />   (setq        p1 (DXF 10 s1)<br />         p2 (DXF 11 s1)<br />         p3 (DXF 10 s2)<br />         p4 (DXF 11 s2)<br />   )<br />   (if (setq pt (inters p1 p2 p3 p4 t))<br />     (progn<br />       (command "circle" "non" pt 100)<br />       (command "chprop" (entlast) "" "c" "1" "")<br />     )<br />   )<br /> )

张大锤

fan_zh 发表于 2017-11-9 09:09
(setq a '(1.0 1.0) b '(9.0 9.0))
(setq c '(4.0 1.0) d '(4.0 2.0))
命令： (inters a b c d)

感谢感谢

张大锤

xyp1964 发表于 2017-11-9 09:21

感谢 看您这个写的对我以前自学的地方 有很大启发
选择这里我一直
(setq dd (SSGET  '((0 . "CIRCLE")(40 . 20))))
在读取 0 1 10 什么的

(setq s1 (car (entsel "\n选择: ")))
这句话更为方便