张大锤 发表于 2017-11-8 16:32:20

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


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

fan_zh 发表于 2017-11-9 09:09:16

(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 发表于 2017-11-9 09:21:35

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

张大锤 发表于 2017-11-10 08:39:52

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)


:loveliness:感谢感谢

张大锤 发表于 2017-11-10 08:41:58

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


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

(setq s1 (car (entsel "\n选择: ")))
这句话更为方便
页: [1]
查看完整版本: 請問如何得到倆條線交叉的點