求大神看这段程序为什么显示参数过多，谢谢

songqingwei

(defun c:bearing1 (/ d x y id std x1 y1)
  (defun getdata ()
    (setq ra (atof (get_tile "ra_box")))
    (setq rb (atof (get_tile "rb_box")))
    (setq b (atof (get_tile "b_box")))
    (setq r1 (atof (get_tile "r1_box")))
    (setq alf (atof (get_tile "alf_box")))
    (setq x (atof (get_tile "X_box")))
    (setq y (atof (get_tile "Y_box")))
    (setvar "cmdecho" 0)
    (setval "layer" "m" "solid" "")
    (setq id (load_dialog "C:\Users\\Administrator\\Desktop\\新建文本文档.dcl"))
    (if (< id 0)
      (exit)
    )
    (setq j 30
          l 10
          b 9
          r1 0.6
          alf 0
          x 0
          y 0
          std 3
          p0 (list 0 O)
    )
    (while (> std 1)
      (if (not (new_dialog "bearing1" id))
        (exit)
      )                                       ; 初始化对话框bearin，
      (setq x1 (dimx_tile "image"))    ; 设置x1为图像宽
      (setq y1 (dimy_tile "image"))    ; 设置y1为图像高
      (start_image "image")               ; 开始建 立图像
      (slide_image 0 0 x1 y1 "D:\\bearing1.sld")
      (end_image)                       ; 图像建 立完毕
      (set_tile "j_box" (rtos J 2 2))
      (set_tile "l_box" (rtos l 2 2))
      (set_tile "b_box" (rtos b 2 2))
      (set_tile "r1_box" (rtos r1 2 2))
      (set_tile "alf_box" (rtos alf 2 2))
      (set_tile "x_box" (rtos x 2 2))
      (set_tile "y_box" (rtos y 2 2))
      (setq p0 (list x y))
      (action_tile "pick" "(getdata)(done-dialog 2)")
      (action_tile "p_a" "(getdata)(done-dialog 3)")
      (action_tile "accept" "(getdata)(done-dialog 1)")
      (action_tile "cancel" "(done-dialog 0)")
      (setq std (start_dialog))
      (if (= std 2)
        (prong (initget 1) (setq p0 (getpoint "定位点:"))
               (setq x (car p0)
                     y (cadr p0)
               )
        )
      )
      (if (= std 3)
        (progn                               ; 用光标确定螺旋角
          (initget 1)
          (setq ang (getangle p0 "输入螺旋角:"))
          (setq alf (* 180.0 (/ ang pi)))
        )
      )
    )
    (if (> std 0)
      (progn
        (setvar "osmode" 0)               ; 关闭目标捕捉状态
        (setvar "cmdecho" 0)
        (setq a1 (- ra rb))
        (setq b1 (* 0.5 b))
        b2
        (* 0.5 b1)
        a2
        (* 0.5 a1)
        a3
        (* 0.5 a2)
      )
      (setq p1 (polar p0 (+ alf (* 0.5 pi)) b2))
      (setq p2 (polar p0 (+ alf (* 0.5 pi)) b1)) ; p1-p16用于绘制直线
      (setq p3 (polar p0 (+ alf (* -0.5 pi)) b2))
      (setq p4 (polar p0 (+ alf (* -0.5 pi)) b1))
      (setq p5 (polar p2 alf rb))
      (setq p6 (polar p1 alf rb))
      (setq p7 (polar p4 alf rb))
      (setq p8 (polar p3 alf rb))
      (setq p9 (polar p2 alf ra))
      (setq p10 (polar p1 alf ra))
      (setq p11 (polar p4 alf ra))
      (setq p12 (polar p3 alf ra))
      (setq p16 (polar p6 alf a3))
      (setq p15 (polar p8 alf a3))
      (setq p13 (polar p16 alf a2))
      (setq p14 (polar p15 alf a2))
      (command "linetype" "set" "bylayer" " ") ; 设置新实体为随层
      (command "line" p2 p9 " ")
      (command "line" p1 p10 " ")
      (command "line" p9 p10 " ")
      (command "line" p4 p11 " ")
      (command "line" p3 p12 " ")
      (command "line" p11 p12 " ")
      (command "line" p5 p6 " ")
      (command "line" p7 p8 " ")
      (command "line" p15 p16 " ")
      (command "line" p13 p14 " ")
      (setq c1 (polar p9 (+ alf (* -0.5 pi)) (* 0.1 b1))) ; 设置倒圆角点
      (setq c2 (polar p9 (+ alf pi) (* 0.1 b1)))
      (setq c3 (polar p11 (+ alf (* 0.5 pi)) (* 0.1 b1)))
      (setq c4 (polar p11 (+ alf pi) (* 0.1 b1)))
      (command "fillet" "r" r1 "fillet" c1 c2)
      (command "fillet" "r" r1 "fillet" c3 c4)
      (setq pm1 (polar p15 (+ alf (* -0.5 pi)) 5)) ; 剖面线点
      (setq pm1 (polar p16 (+ alf (* 0.5 pi)) 5))
      (command "bhatch" "p" "ansi31" "2" "90" pm1 "") ; 绘制剖面线
      (command "bhatch" "p" "ansi31" "2" "0" pm2 "")
      (command "linetype" "set" "center" "") ; 设置新实体为中心线
      (setq p18 (polar p4 (+ alf (* -0.5 pi)) (* 0.1 b))) ; 剖面线点
      (setq p17 (polar p2 (+ alf (* 0.5 pi)) (* 0.1 b)))
      (setq p20 (polar p0 alf (+ ra (* 0.1 b1))))
      (setq p19 (polar p0 (+ alf pi) (* 0.1 b1)))
      (command "lind" p19 p20 "")
      (command "lind" p17 p18 "")
      (command "linetype" "set" "bylayer" "") ; 设置新实体为随层
      (setvar "dinscale" 5)               ; 开始尺寸标注
      (setq t1 (polar p7 (+ alf (* -0.5 pi)) b1))
      (setq t2 (polar p7 (+ alf (* -0.5 pi)) (* 0.5 b1)))
      (setq t3 (polar p10 alf (* 0.5 b1)))
      (setq t4 (polar p4 (+ alf (* 0.5 pi)) b2))
      (setq t5 (polar p4 (+ alf pi) (* 0.5 a2)))
      (command "dimlinear" p4 p11 "h" t1)
      (command "dimlinear" p4 p7 "h" t2)
      (command "dimlinear" P2 p4 "v" t3)
      (command "dimlinear" p13 p14 "v" t5)
      (princ)
    )
  )
  (unload_dialog id)
  (princ)
)



通过加载这段驱动程序实现在对话框输入参数画出推力滚子轴承,附件是对话框

Lisphk

你调用的是 (setq id (load_dialog "C:\Users\\Administrator\\Desktop\\新建文本文档.dcl"))

怎么附件是 ODCL的呢？

fengyun7000

错误百出啊

fengyun7000

(defun c:bearing1 (/ d x y id std x1 y1)
(defun getdata ()
    (setq ra (atof (get_tile "ra_box")))
    (setq rb (atof (get_tile "rb_box")))
    (setq b (atof (get_tile "b_box")))
    (setq r1 (atof (get_tile "r1_box")))
    (setq alf (atof (get_tile "alf_box")))
    (setq x (atof (get_tile "X_box")))
    (setq y (atof (get_tile "Y_box")))
);end fun
    (setvar "cmdecho" 0)
    ;(setvar "layer" "m" "solid" "")
    (setq id (load_dialog "C:\\Users\\hanjianwen\\Desktop\\新建文本文档.dcl"))
    (if (< id 0)
      (exit)
    )
    (setq j 30
          l 10
          b 9
          r1 0.6
          alf 0
          x 0.0
          y 0.0
          std 3
          p0 (list 0 0)
    )
    (while (> std 1)
      (if (not (new_dialog "bearing1" id))
        (exit)
      )                                       ; 初始化对话框bearin，
      (setq x1 (dimx_tile "image"))    ; 设置x1为图像宽
      (setq y1 (dimy_tile "image"))    ; 设置y1为图像高
      (start_image "image")               ; 开始建 立图像
      (slide_image 0 0 x1 y1 "C:\\Users\\hanjianwen\\Desktop\\UXC.sld")
      (end_image)                       ; 图像建 立完毕
     
        (set_tile "ra_box" (rtos J 2 2))
      (set_tile "rb_box" (rtos l 2 2))
      (set_tile "b_box" (rtos b 2 2))
      (set_tile "r1_box" (rtos r1 2 2))
      (set_tile "alf_box" (rtos alf 2 2))
      (set_tile "X_box" (rtos x 2 2))
      (set_tile "Y_box" (rtos y 2 2))
      (setq p0 (list x y))
      (action_tile "pick" "(getdata)(done_dialog 2)")
      (action_tile "p_a" "(getdata)(done_dialog 3)")
      (action_tile "accept" "(getdata)(done_dialog 1)")
      (action_tile "cancel" "(done_dialog 0)")
      (setq std (start_dialog))
      (if (= std 2)
        (progn (initget 1) (setq p0 (getpoint "定位点:"))
               (setq x (car p0)
                     y (cadr p0)
               )
        )
      )
      (if (= std 3)
        (progn                               ; 用光标确定螺旋角
          (initget 1)
          (setq ang (getangle p0 "输入螺旋角:"))
          (setq alf (* 180.0 (/ ang pi)))
        )
      )
    );end if std>1

    (if (> std 0)
      (progn
        (setvar "osmode" 0)               ; 关闭目标捕捉状态
        (setvar "cmdecho" 0)
        (setq a1 (- ra rb))
        (setq b1 (* 0.5 b)
                b2 (* 0.5 b1)
                a2 (* 0.5 a1)
                a3 (* 0.5 a2)
              )
      (setq p1 (polar p0 (+ alf (* 0.5 pi)) b2))
      (setq p2 (polar p0 (+ alf (* 0.5 pi)) b1)) ; p1-p16用于绘制直线
      (setq p3 (polar p0 (+ alf (* -0.5 pi)) b2))
      (setq p4 (polar p0 (+ alf (* -0.5 pi)) b1))
      (setq p5 (polar p2 alf rb))
      (setq p6 (polar p1 alf rb))
      (setq p7 (polar p4 alf rb))
      (setq p8 (polar p3 alf rb))
      (setq p9 (polar p2 alf ra))
      (setq p10 (polar p1 alf ra))
      (setq p11 (polar p4 alf ra))
      (setq p12 (polar p3 alf ra))
      (setq p16 (polar p6 alf a3))
      (setq p15 (polar p8 alf a3))
      (setq p13 (polar p16 alf a2))
      (setq p14 (polar p15 alf a2))
      ;(command "linetype" "set" "bylayer" "") ; 设置新实体为随层
      (command "line" p2 p9 "")
      (command "line" p1 p10 "")
      (command "line" p9 p10 "")
      (command "line" p4 p11 "")
      (command "line" p3 p12 "")
      (command "line" p11 p12 "")
      (command "line" p5 p6 "")
      (command "line" p7 p8 "")
      (command "line" p15 p16 "")
      (command "line" p13 p14 "")
      (setq c1 (polar p9 (+ alf (* -0.5 pi)) (* 0.1 b1))) ; 设置倒圆角点
      (setq c2 (polar p9 (+ alf pi) (* 0.1 b1)))
      (setq c3 (polar p11 (+ alf (* 0.5 pi)) (* 0.1 b1)))
      (setq c4 (polar p11 (+ alf pi) (* 0.1 b1)))
      (command "fillet" "r" r1 "fillet" c1 c2)
      (command "fillet" "r" r1 "fillet" c3 c4)
      (setq pm1 (polar p15 (+ alf (* -0.5 pi)) 5)) ; 剖面线点
      (setq pm1 (polar p16 (+ alf (* 0.5 pi)) 5))
      (command "bhatch" "p" "ansi31" "2" "90" pm1 "") ; 绘制剖面线
      (command "bhatch" "p" "ansi31" "2" "0" pm2 "")
      ;(command "linetype" "set" "center" "") ; 设置新实体为中心线
      (setq p18 (polar p4 (+ alf (* -0.5 pi)) (* 0.1 b))) ; 剖面线点
      (setq p17 (polar p2 (+ alf (* 0.5 pi)) (* 0.1 b)))
      (setq p20 (polar p0 alf (+ ra (* 0.1 b1))))
      (setq p19 (polar p0 (+ alf pi) (* 0.1 b1)))
      (command "lind" p19 p20 "")
      (command "lind" p17 p18 "")
      ;(command "linetype" "set" "bylayer" "") ; 设置新实体为随层
      ;(setvar "dinscale" 5)               ; 开始尺寸标注
      (setq t1 (polar p7 (+ alf (* -0.5 pi)) b1))
      (setq t2 (polar p7 (+ alf (* -0.5 pi)) (* 0.5 b1)))
      (setq t3 (polar p10 alf (* 0.5 b1)))
      (setq t4 (polar p4 (+ alf (* 0.5 pi)) b2))
      (setq t5 (polar p4 (+ alf pi) (* 0.5 a2)))
      (command "dimlinear" p4 p11 "h" t1)
      (command "dimlinear" p4 p7 "h" t2)
      (command "dimlinear" P2 p4 "v" t3)
      (command "dimlinear" p13 p14 "v" t5)
      (princ)
    )
  );end if std>0
  (unload_dialog id)
  (princ)
)
;SETVAR 之类的都不对，就忽略了，自己查书去吧

fengyun7000

是这样的码