[求助]：各位大侠，求您帮俺一下

changlile

有哪位好心的大侠能帮我编一个用lisp程序作锥端定位螺钉，本人将不胜感激！！！！
前面部分我写了一些，但是不对啊，太郁闷了！加载时候改路径
(defun c:hld()
     (setq R 40 L 80 d 30 p 10 n 10 what 2 w 0)
     (setq id (load_dialog "C:\\Documents and Settings\\USER\\My Documents\\changlile\\锥端定位螺钉.dcl"));载入对话框文件
     (if (< id 0)(progn (alert "未找到指定文件,请指明文件路径")(exit)));检验文件是否载入
     (while (= what 2)
         (if not(new_dialog "zddwld" id)(exit));检验对话框是否载入
         (setq x(dimx_tile "image")); 测图象框的尺寸
         (setq y(dimx_tile "image"))
         (start_image "image");装图片
         (slide_image 20 -40 x y "zdluoding.sld")
         (end_image)
         (if (= w 0)
         (mode_tile "accept" 1)
         (progn
          (mode_tile "accept" 0)
          (mode_tile "pick" 1)
          )
         )
         (set_tile "R" (rtos R 2 2));按格式填参数
         (set_tile "L" (rtos L 2 2))
         (set_tile "d" (rtos d 2 2))
         (set_tile "p" (rtos p 2 2))
         (set_tile "n" (rtos n 2 2))
         (action_tile "pick" "(done_dialog 2)");定义相应动作
         (action_tile "accept" "(LIMI)(done_dialog 1)")
         ;(action_tile "cancel" "(done_dialog 0)")
         (setq what (start_dialog));赋值
         (if (= what 2)
           (progn
             ;(preview)
             (initget 1)
           (setq p0 (getpoint"\n 请输入基点坐标："))
           (setq x (car p0) y (cadr p0))
           (setq w 1)
           )
      (ZT)
          )
      )
     (unload_dialog id);卸载
     (princ);静退      
)
;读屏并将字符串转换成数值的函数
(defun LIMI()
  (setq R(atof(get_tile"R")))
  (setq L(atof(get_tile"L")))
  (setq d(atof(get_tile"d")))
  (setq p(atof(get_tile"p")))
  (setq n(atof(get_tile"n")))
  )
;制图-画螺钉的函数
   (defun c:ld();R为圆弧半径 L为公称长度 d为螺钉宽 p为槽深 n为槽宽
(setvar "osmode" 0)
  ;1层画点划线
    (command "layer" "m" "1" "c" "1" "1" "l" "acad_iso10w100" "1" "")
    (setq p0 (getpoint "\n请输入基点："))
    (setq R 3 L 10 d 5 p 3 n 3)
    (setq p001 (polar p0 pi 0))
    (setq p002 (polar p0 0 L))
   (command "line" p001 p002 "")
  ;点的坐标
     (setq x(sqrt 2))
     (setq p1 (polar p0(* -0.5 pi)(* 0.5 n)))
     (setq p2 (polar p1 pi (* 0.5  p)))
     (setq p3 (polar p2 pi  p ))
     (setq p4 (polar p3(* pi 1.5) (/(- d n ) 2)))
     (setq p5 (polar p4 0 (- L(/ p 2)(* 0.5 d))))
     (setq p6 (polar p5(/ pi 4)(/(* x d) 2)))
     (setq p7 (polar p0 0 (- p R)))
(command "layer" "m" "2" "lw" "0.3" "2" "")
  (command "line" p1 p2 "")
  (command "line" p2 p3 "")
  (command "line" p2 p4 "")
  (command "line" p4 p5 "")
  (command "line" p5 p6 "")
  (command "line" p6 p7 "")
(command "arc" p7 "ce" p3 p4  45 "")
  (setvar "osmode" os)
  ;镜像
(command "mirror" "all" "" p0 p7 "")
(command "mirror" "all" "" p001 p002 "")
  ;显示控制
  (command "zoom" "e" "")
  (command "lwdisplay" "1")
)
这些是主函数（效果不对，麻烦给看一下），对话框在下面
zddwld:dialog
{label="锥端定位螺钉(按国标GB71-76)";
:row{:image{width=24;height=12;key="image";color=0;}
      :row{:column{:edit_box{label="圆弧半径R";edit_width=4;mnemonic="R";key="R";}
                   :edit_box{label="公称长度L";edit_width=4;mnemonic="L";key="L";}
                   :edit_box{label="螺钉宽";edit_width=4;mnemonic="d";key="d";}
                   :edit_box{label="槽深p";edit_width=4;mnemonic="p";key="p";}
                   :edit_box{label="槽宽n";edit_width=4;mnemonic="n";key="n";}
                  }
          }
     }
:button{label="鼠标选基点<";key="pick";}
ok_cancel;
}

ljpnb

我已经修改过了
[PHP]
(defun c:hld ()
  (setq        R 40
        L 80
        d 30
        p 10
        n 10
        what 2
        w 0
  )
  (setq os (getvar "osmode"))
  (setq id (load_dialog "锥端定位螺钉.dcl")) ;载入对话框文件
  (if (< id 0)
    (progn (alert "未找到指定文件,请指明文件路径") (exit))
  )                                        ;检验文件是否载入
  (while (= what 2)
    (if        not
      (new_dialog "zddwld" id)
      (exit)
    )                                        ;检验对话框是否载入
    (setq x (dimx_tile "image"))        ; 测图象框的尺寸
    (setq y (dimx_tile "image"))
    (start_image "image")                ;装图片
    (slide_image 20 -40 x y "zdluoding.sld")
    (end_image)
    (if        (= w 0)
      (mode_tile "accept" 1)
      (progn
        (mode_tile "accept" 0)
        (mode_tile "pick" 1)
      )
    )
    (set_tile "R" (rtos R 2 2))                ;按格式填参数
    (set_tile "L" (rtos L 2 2))
    (set_tile "d" (rtos d 2 2))
    (set_tile "p" (rtos p 2 2))
    (set_tile "n" (rtos n 2 2))
    (action_tile "pick" "(done_dialog 2)") ;定义相应动作
    (action_tile "accept" "(LIMI)(done_dialog 1)")
                                        ;(action_tile "cancel" "(done_dialog 0)")
    (setq what (start_dialog))                ;赋值
    (if        (= what 2)
      (progn
                                        ;(preview)
        (initget 1)
        (setq p0 (getpoint "\n 请输入基点坐标："))
        (setq x        (car p0)
              y        (cadr p0)
        )
        (setq w 1)
      )
      (ZT)
    )
  )
  (unload_dialog id)                        ;卸载
  (princ)                                ;静退
)
                                        ;读屏并将字符串转换成数值的函数
(defun LIMI ()
  (setq R (atof (get_tile "R")))
  (setq L (atof (get_tile "L")))
  (setq d (atof (get_tile "d")))
  (setq p (atof (get_tile "p")))
  (setq n (atof (get_tile "n")))
)
                                        ;制图-画螺钉的函数
(defun zt ()                                ;R为圆弧半径 L为公称长度 d为螺钉宽 p为槽深 n为槽宽
  (setvar "osmode" 0)
                                        ;1层画点划线
  (command "layer" "m" "1" "c" "1" "1" "l" "acad_iso10w100" "1"        "")
  ;(setq p0 (getpoint "\n请输入基点："))
  ;|(setq        R 3
        L 10
        d 5
        p 3
        n 3
  )|;
  (setq p001 (polar p0 pi 0))
  (setq p002 (polar p0 0 L))
  (setq en (ssadd) enw (entlast))
  (command "line" p001 p002 "")
                                        ;点的坐标
  (setq x (sqrt 2))
  (setq p1 (polar p0 (* -0.5 pi) (* 0.5 n)))
  (setq p2 (polar p1 pi (* 0.5 p)))
  (setq p3 (polar p2 pi p))
  (setq p4 (polar p3 (* pi 1.5) (/ (- d n) 2)))
  (setq p5 (polar p4 0 (- L (/ p 2) (* 0.5 d))))
  (setq p6 (polar p5 (/ pi 4) (/ (* x d) 2)))
  (setq p7 (polar p0 0 (- p R)))
  (command "layer" "m" "2" "lw" "0.3" "2" "")
  (command "line" p1 p2 "")
  (command "line" p2 p3 "")
  (command "line" p2 p4 "")
  (command "line" p4 p5 "")
  (command "line" p5 p6 "")
  (command "line" p6 p7 "")
  (command "arc" p7 "ce" p3 p4 45 "")
  (while (setq enw (entnext enw))(setq en (ssadd enw en)))
  (setvar "osmode" os)
                                        ;镜像
  (command "mirror" en "" p0 p7 "")
  ;(command "mirror" "all" "" p001 p002 "")
                                        ;显示控制
  (command "zoom" "e" "")
  (command "lwdisplay" "1")
)
[/PHP]

需要说明一点，DCL文件直接拷贝到CAD安装目录下的support下，切记！！
当中的一些细节我没有看过，所以不知道下面这个图形对不对...

changlile

不对啊，我是画不出图啊？

ljpnb

2楼下面的那张图片形状对不对？？

czg09180274

你先用CAD画一个图出来看看呀，要不这个锥端定位很不好理解的呢

zxq0220

楼主要的是GB71-85开槽锥端紧定螺钉，下面的程序画一个M5x10的螺钉

2. 
   
3. (defun c:drawld (); d为螺钉直径 L为公称长度 p为螺距 n为槽宽 Z为槽深 DT为平头直径
   
4. (setq os (getvar "osmode"))
   
5. (setvar "osmode" 0)
   
6. 
   
7. (setq p0 (getpoint "\n请输入基点："))
   
8. (command "LAYER" "M" "CEN" "C" "1" "CEN" "l" "CENTER2" "CEN" "");cen层画中心线
   
9. (setq D 5 L 10 p 0.8 n 0.8 Z 1.63 DT 0.5)
   
10. (setq p001 (polar p0 pi 2))
    
11. (setq p002 (polar p0 0 (+ L 2)))
    
12. (command "line" p001 p002 "");画中心线
    
13. (setq en (ssadd (entlast) en))
    
14. (setq x (sqrt 2))
    
15. (setq p1 (polar p0 (/ pi 2) (* 0.5 N)))
    
16. (setq p2 (polar p1 0 Z))
    
17. (setq p3 (polar p0 0 Z))
    
18. (setq p4 (polar p0 (/ PI 2) (* D 0.5)))
    
19. (setq p5 (polar p4 (/ PI -2) (* P 0.6)))
    
20. (setq p6 (polar p4 0 (- L (* d 0.5) (* DT 0.5))))
    
21. (setq p7 (polar p5 0 (- L (* D 0.5) (* DT 0.5) (* P -0.6))))
    
22. (SETQ P8 (POLAR P0 0 L))
    
23. (SETQ P9 (POLAR P8 (/ PI 2) (* DT 0.5)))
    
24. (SETQ P10 (POLAR P4 0 L))
    
25. (SETQ P11 (POLAR P6 (/ PI -2) (* D 0.5)))
    
26. (COMMAND "LAYER" "M" "THI" "")
    
27. (command "line" p7 p5 "")
    
28. (command "layer" "m" "OBJ" "")
    
29. (command "line" p3 p2 P1 P4 P6 P9 P8 "" "LINE" P6 P11 "")
    
30. (command "mirror" "W" P0 P10 "" p001 p002 "") ;镜像
    
31. ;显示控制
    
32. (setvar "osmode" os)
    
33. (command "zoom" "e" "")
    
34. )
    

<br /> (defun c:drawld (); d为螺钉直径 L为公称长度 p为螺距 n为槽宽 Z为槽深 DT为平头直径<br /> (setq os (getvar "osmode"))<br /> (setvar "osmode" 0)<br /> <br /> (setq p0 (getpoint "\n请输入基点："))<br /> (command "LAYER" "M" "CEN" "C" "1" "CEN" "l" "CENTER2" "CEN" "");cen层画中心线<br /> (setq D 5 L 10 p 0.8 n 0.8 Z 1.63 DT 0.5)<br /> (setq p001 (polar p0 pi 2))<br /> (setq p002 (polar p0 0 (+ L 2)))<br /> (command "line" p001 p002 "");画中心线<br /> (setq en (ssadd (entlast) en))<br /> (setq x (sqrt 2))<br /> (setq p1 (polar p0 (/ pi 2) (* 0.5 N)))<br /> (setq p2 (polar p1 0 Z))<br /> (setq p3 (polar p0 0 Z))<br /> (setq p4 (polar p0 (/ PI 2) (* D 0.5)))<br /> (setq p5 (polar p4 (/ PI -2) (* P 0.6)))<br /> (setq p6 (polar p4 0 (- L (* d 0.5) (* DT 0.5))))<br /> (setq p7 (polar p5 0 (- L (* D 0.5) (* DT 0.5) (* P -0.6))))<br /> (SETQ P8 (POLAR P0 0 L))<br /> (SETQ P9 (POLAR P8 (/ PI 2) (* DT 0.5)))<br /> (SETQ P10 (POLAR P4 0 L))<br /> (SETQ P11 (POLAR P6 (/ PI -2) (* D 0.5)))<br /> (COMMAND "LAYER" "M" "THI" "")<br /> (command "line" p7 p5 "")<br /> (command "layer" "m" "OBJ" "")<br /> (command "line" p3 p2 P1 P4 P6 P9 P8 "" "LINE" P6 P11 "")<br /> (command "mirror" "W" P0 P10 "" p001 p002 "") ;镜像 <br /> ;显示控制<br /> (setvar "osmode" os) <br /> (command "zoom" "e" "")<br /> )<br />