为何实现不了直线与圆交点的捕捉？急救！
本帖最后由 作者 于 2008-12-22 11:58:11 编辑 <br /><br /> <p> </p>(defun c:cc ()
(setq g7 430
g6 180
bl 0.5
)
(command "circle" (list (+ 60 (* bl 0.5 g7)) 60) "d"(* bl g7))
(setq y (sqrt (- (* g7 g7 0.25) (* g6 g6 0.25))))
(command "zoom""35,100""140,20")
(command "line"
(list 60 (- 60 (* bl y)))
(list (+ 60 (* bl g7)) (- 60 (* bl y)))
""
)
(setq
x1 (osnap
(polar (list (+ 60 (* bl g7 0.5)) (- 60 (* bl y))) -3.14 2)
"int"
)
)
(setq x2 (osnap
(polar (list (+ 60 (* bl g7 0.5)) (- 60 (* bl y))) 0 2)
"int"
)
)
(command "erase" (entlast)"")
(command "break" x1x2 "")
)
(setq g7 430 g6 180 bl 0.5)
没看懂您那些变量赋值的用意
学程序一定得学一学调试
单步调试验证出 X1 X2 皆是 nil
(osnap pt mode)
Osnap 的 Pt点&所指的实体 需可见
依揣测 x1 & x2 可直接算出
给个图样加说明可乎
页:
[1]