老鸟们帮我来看下程序
 

老鸟们帮我来看下程序
www.dimcax.com
老鸟们帮我来看下程序
(defun c:yb ()
(setvar "cmdecho" 0)
(setq cr (getpoint "\n确定中心点: "))
(setq ss (getreal "\n输入直径: "))
(setq s (/ ss 2))
(setq p1 (polar cr (* pi 0.5) s))
(setq p2 (polar p1 pi 84))
(setq bb (* s (/ (sin (/ pi 12)) (cos (/ pi 12)))))
(setq cj (- 84 bb))
(setq p3 (polar p2 (* pi 1.5) (/ cj (sqrt 3))))
(setq p4 (polar p3 (* pi 0.5) 165))
(setq p5 (polar p4 pi 20))
(setq bl (* 0.1 (- ss 300)))
(setq ang (- 4.4657 (* bl 0.0154)))
(setq cd (+ 190 (* bl 2.3)))
(setq p6 (polar p5 ang cd))
(setq p7 (polar p6 (- 5.4205 (* bl 0.0145)) 80))
(command "line" p1 p2 p3 p4 p5 p6 p7 "")
(command "polygon" "12" cr "c" s "")
(setvar "cmdecho" 1)
(prin1)
)
这个程序是拿来画电线杆的加强板用的。
但是每次加载后第一次的运行总有问题，同样的程序输入同样的数据却会出来不同的结果。
请老鸟们帮忙看下。
d
应该是捕捉的问题，你把捕捉关掉应该可以。