 - (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" x1 x2 "")
- )
(setq g7 430 g6 180 bl 0.5)
没看懂您那些变量赋值的用意
学程序一定得学一学调试
单步调试验证出 X1 X2 皆是 nil
(osnap pt mode)
Osnap 的 Pt点&所指的实体 需可见
依揣测 x1 & x2 可直接算出
给个图样加说明可乎
|