大家好,我不会编程也没有写过程序这种东西,昨天在网上找到一个CAD用的程序,网上是图片格式的,我就照着写了一份,由于根本不了解程序应该怎么写,肯定有地方错了,麻烦大家给看看
这是原图
(defun C:myARC( )
(setq ptl (getpoint " 请选择圆弧起点:")
pt2 ( getpoint " \ n 请选择圆弧终点:")
L0 (/ (distance ptl pt2) (abs ( getreal " \ n请输入弧长:" ) ) )
amax pi amin 0 )
(if( > = L0 l )( progn ( prompt " 弧长小于弦长,出错!")(exit)))
(while ( not( equal L L0 le-l5))
(setq a(/ ( + amax amin) 2)
L( / (sin a) a))
(if( > L L0)(setq amin a)(setq amax a))
)
(command "arc" ptl "e" pt2 "a" (strcat ( rtos ( * a 2)216)"r"))
(princ))
这个是我模仿写的,CAD能加载,但是不能用,麻烦大家给看看谢谢
这是原图
(defun C:myARC( )
(setq ptl (getpoint " 请选择圆弧起点:")
pt2 ( getpoint " \ n 请选择圆弧终点:")
L0 (/ (distance ptl pt2) (abs ( getreal " \ n请输入弧长:" ) ) )
amax pi amin 0 )
(if( > = L0 l )( progn ( prompt " 弧长小于弦长,出错!")(exit)))
(while ( not( equal L L0 le-l5))
(setq a(/ ( + amax amin) 2)
L( / (sin a) a))
(if( > L L0)(setq amin a)(setq amax a))
)
(command "arc" ptl "e" pt2 "a" (strcat ( rtos ( * a 2)216)"r"))
(princ))
这个是我模仿写的,CAD能加载,但是不能用,麻烦大家给看看谢谢