lisp原程序（键槽尺寸视图的绘制），有问题，请高手帮忙看看错在哪里？

(defun C:jct ()

(setq osmode0 (getvar "osmode"))

(setq plinetype0 (getvar "plinetype"))

(setvar "osmode" 0)

(setvar "plinetype" 0)

(setq pt0 (getpoint "\n 请输入视图的中心位置点:"))

(initget 7)

(setq loop T)

(while loop

(setq d (getreal "\n 请输入键槽处的轴径(12<d<130)(mm):"))

(if(or (<d 12) (>d 130))

(alert "轴径数据输入错误!\n\n请重新输入!")

(setq loop nil)

)if

)while

(cond根据轴径检索键槽尺寸

((and (>d 12) (<= d 17)) (setq b 5 t1 3.0 t2 2.3))b表示键槽的宽度

((and (>d 17) (<= d 22)) (setq b 6 t1 3.5 t2 2.8))t1表示轴上键槽的深度

((and (>d 22) (<= d 30)) (setq b 8 t1 4.0 t2 3.3))t2表示轮毂上键槽的高度

((and (>d 30) (<= d 38)) (setq b 10 t1 5.0 t2 3.3))

((and (>d 38) (<= d 44)) (setq b 12 t1 5.0 t2 3.3))

((and (>d 44) (<= d 50)) (setq b 14 t1 5.5 t2 3.8))

((and (>d 50) (<= d 58)) (setq b 16 t1 6.0 t2 4.3))

((and (>d 58) (<= d 65)) (setq b 18 t1 7.0 t2 4.4))

((and (>d 65) (<= d 75)) (setq b 20 t1 7.5 t2 4.9))

((and (>d 75) (<= d 85)) (setq b 22 t1 9.0 t2 5.4))

((and (>d 85) (<= d 95)) (setq b 25 t1 9.0 t2 5.4))

((and (>d 95) (<= d 110)) (setq b 28 t1 10.0 t2 6.4))

((and (>d 110) (<= d 130)) (setq b 32 t1 11.0 t2 7.4)))

(setvar "clayer" "0")

(command "circle" pt0 "d" d)

(command "zoom" "a")

(setq s1 (ssget "l" ))

(setq di (-(* (/ d 2.0) (/ d 2.0)) (* (/ b 2.0) (/ b 2.0)))

dx (sqrt di)

dy (/ b 2.0)

pt1 (list (+ (car pt0) dx) (+ (cadr pt0) dy)))

(initget "Zc Lc")Zc表示画轴键槽的剖视图,Lc表示画轮毂键槽的端面视图

(setq zrl (getkword "\n 画轴键槽的剖视图还是轮毂键槽的端面视图(Z/L)?"))

(if (= zrl "Zc")

(progn计算轴键槽上点的坐标

(setq pt2 (list (+ (car pt0) (-(/ d 2.0) t1)) (+ (cadr pt0) dy))

pt3 (polar pt2 (- (/ pi 2.0)) b)

pt4 (polar pt3 0 (- dx (- (/ d 2.0) t1))))

)progn

)if

(if (= zrl "Lc")

(progn计算轮毂键槽上点的坐标

(setq pt2 (list (+ (car pt0) (+(/ d 2.0) t2)) (+ (cadr pt0) dy))

pt3 (polar pt2 (- (/ pi 2.0)) b)

pt4 (polar pt3 (- pi) (- (+ (/ d 2.0) t2) dx)))

)progn

)if

(setvar "clayer" "0")

(command "pline" pt1 pt2 pt3 pt4 "")画键槽

(setq s2 (ssget "l"))

(command "layer" "m" 5 "l" "center" 5 "c" 1 5 "")

(setvar "ltscale" 8)

(command "line" (polar pt0 (- pi) (+ (/ d 2.0) 10))画中心线

(polar pt0 0 (+ (/ d 2.0) 10)) "")

(command "line" (polar pt0 (/ pi -2.000000) (+ (/ d 2.0) 10))

(polar pt0 (/ pi 2.0000000) (+ (/ d 2.0) 10)) "")

(setvar "clayer" "0")

(if (= zrl "Zc")

(progn

(setq s3 (entsel "\n 请选择修剪的目标:"))

(command "trim" s2 "" s3 "")修剪形成键槽

(command "hatch" "U" "45" "2" "n" s1 s2 ))画轴上键槽处剖视图的剖面线

)if

(if (= zrl "Lc")

(progn

(setq s4 (entsel "\n 请选择修剪的目标:"))

(command "trim" s2 "" s4 )修剪形成键槽

(command "rotate" s1 s2 "" pt0 90))将轮毂键槽的端面视图旋转90度

)if

(setvar "osmode" osmode0) (setvar "plinetype" plinetype0)

(command "zoom" "a")

)end defun

可以使用数学计算软件或编程语言来快速获得这些交点的坐标

定义圆的方程：x^2 + y^2 = r^2，其中r为圆的半径。

定义每条横线的方程：y = k，其中k为横线的高度。

将第2步中的方程带入第1步中的方程，得到一个二次方程：x^2 + k^2 = r^2。

解二次方程，求出x的两个解，分别为交点的横坐标。

将横坐标带入第2步中的方程，求出交点的纵坐标。

重复以上步骤，计算出所有交点的坐标。

如果使用编程语言，可以使用循环来遍历所有横线，依次计算每条横线与圆的交点坐标，并将坐标保存在一个数组中。最终得到的数组即为所有交点的坐标。

我知道，如果要修剪的话，可以利用修剪工具来弄，不过你说的意思应该是不用修剪工具，而它自动的就把线剪断，这个应该和你在画的时候有关，可能是你安的阀门的宽度不符合要求，所以没有剪断，或者没有安放在直线上。

---