设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 求助！望各位将此对话框驱动程序补充完整！
返回列表 发新帖
查看: 1580|回复: 2

求助！望各位将此对话框驱动程序补充完整！

[复制链接]
sunny603
发表于 2004-12-6 11:11:00 | 显示全部楼层 |阅读模式
我想编一个对话框，调用三个不同的螺母绘图程序，源程序在压缩包里，望各位大虾将对话框驱动程序帮忙补充完整。

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
回复

使用道具 举报

meflying
发表于 2004-12-6 12:21:00 | 显示全部楼层
  2. (defun c:lm_dialog ()
  3.    (setq dcl_id (load_dialog "lm.dcl"))
  4.    (if (not (new_dialog "lm_box" dcl_id))
  5.        (exit)
  6.    )
  7.    (set_tile "lm_zj" "10")
  8.    (set_tile "lm_gd" "10")
  9.    (set_tile "lm_ang" "0")
  10.    (start_image "steel")
  11.    (fill_image 0 0 15 15 -2)
  12.    (slide_image 0 -20 90 95 "c.sld")
  13.    (end_image)
  14.    (action_tile
  15.        "lm_wd"
  16.        "(setq tshape "wd")
  17.    (setq width (dimx_tile "steel") height (dimy_tile "steel"))
  18.    (start_image "steel")
  19.    (fill_image 0 0 width height -2)
  20.    (slide_image 0 -20 width height "b.sld")
  21.    (end_image)"
  22.    )
  23.    (action_tile
  24.        "lm_th"
  25.        "(setq tshape "th")
  26.    (setq width (dimx_tile "steel")   height (dimy_tile "steel"))
  27.    (start_image "steel")
  28.    (fill_image 0 0 width height -2)
  29.    (slide_image 0 -20 width height "a.sld")
  30.    (end_image)"
  31.    )   (action_tile
  32.        "lm_bd"
  33.        "(setq tshape "bd")
  34.        (setq width (dimx_tile "steel") height (dimy_tile "steel"))
  35.        (start_image "steel")
  36.        (fill_image 0 0 width height -2)
  37.        (slide_image 0 -20 width height "c.sld")
  38.        (end_image)"
  39.    )
  40.    (action_tile
  41.        "cancel"
  42.        "(done_dialog) (setq gperr "") (exit)"
  43.    )
  44.    (action_tile
  45.        "accept"
  46.        (strcat
  47.            " (progn (setq b (atof (get_tile "lm_zj")))"
  48.            " (setq h (atof (get_tile "lm_gd")))"
  49.            " (setq p (atof (get_tile "lm_ang")))"
  50.            " (done_dialog))"
  51.        )
  52.    )
  53.    (start_dialog)
  54.    (unload_dialog dcl_id)
  55.    (defun dtr (ang)
  56.        (* pi (/ ang 180.00000))
  57.    )
  58.    
  59.    (cond
  60.        ((= tshape "wd")
  61.          (setvar "blipmode" 0)
  62.          (setvar "cmdecho" 0)
  63.          (setq p0 (getpoint "\nEnter base point:"))
  64.          (setq D (* b 2))
  65.          (setq r (/ b 4 (cos (dtr 30))))
  66.          (setq p1 (polar p0 (+ p (* pi 0.5)) h))
  67.          (setq p2 (polar p1 (+ p pi) (* 0.75 b)))
  68.          (setq p3 (polar p2 (+ p (dtr 210)) r))
  69.          (setq p4 (polar p3 p (/ b 2)))
  70.          (setq p5 (polar p4 p b))
  71.          (setq p6 (polar p0 (+ p pi) (* 0.5 D)))
  72.          (setq p7 (polar p0 (+ p pi) (/ b 2)))
  73.          (setq p8 (polar p7 p b))
  74.          (setq p9 (polar p6 p D))
  75.          (setq p10 (polar p3 p D))
  76.          (setq p11 (polar p1 (+ p) (* 0.75 b)))
  77.          (setq pa (polar p1 (+ p (* pi 0.5)) (* 0.25 b)))
  78.          (setq pb (polar p0 (+ p (* pi 1.5)) (* 0.25 b)));
  79.          (command "line" p6 p9 "")
  80.          (command "line" p6 p3 "")
  81.          (command "line" p9 p10 "")
  82.          (command "line" p4 p7 "")
  83.          (command "line" p5 p8 "")
  84.          (command "line" p2 p11 "")
  85.          (command "arc" p5 p1 p4)
  86.          (command "arc" p4 p2 p3)
  87.          (command "arc" p5 p11 p10)
  88.          (command "line" pa pb "")
  89.          (setvar "blipmode" 1)
  90.          (setvar "cmdecho" 1)
  91.        )
  92.        ((= tshape "th")
  93.          (setvar "blipmode" 0)
  94.          (setvar "cmdecho" 0)
  95.          (setq p0 (getpoint "\nEnter base point:"))
  96.          (setq D (* b 2))
  97.          (setq r (/ b 4 (cos (dtr 30))))
  98.          (setq y (* 0.12 b))
  99.          (setq x (/ y (sin (dtr 45))))
  100.          (setq p7 (polar p0 (+ p (dtr 90)) (* 1.3 h)))
  101.          (setq p4 (polar p7 (+ p (dtr 180)) (* 0.75 b)))
  102.          (setq p5 (polar p4 (+ p (dtr 210)) r))
  103.          (setq p6 (polar p5 p (/ b 2)))
  104.          (setq p10 (polar p6 p b))
  105.          (setq p1 (polar p0 (+ p (dtr 180)) (* 0.75 b)))
  106.          (setq p2 (polar p1 (+ p (dtr 90)) (* 0.3 h)))
  107.          (setq p3 (polar p2 (+ p (dtr 180)) (* 0.25 b)))
  108.          (setq p8 (polar p3 p (/ b 2)))
  109.          (setq p9 (polar p0 (+ p (dtr 90)) (* 0.3 h)))
  110.          (setq p11 (polar p7 (+ p (dtr 180)) (/ b 2)))
  111.          (setq p12 (polar p11 (+ p (dtr 90)) (/ b 5)))
  112.          (setq p13 (polar p12 (+ p (dtr 45)) x))
  113.          (setq p15 (polar p12 p (/ b 2)))
  114.          (setq p14 (polar p15 (+ p (dtr 90)) y))
  115.          (setq p16 (polar p13 (+ p (dtr 270)) (* 0.3 b)))
  116.          (setq p23 (polar p14 (+ p (dtr 90)) (* 0.25 b)))
  117.          (setq p24 (polar p0 (+ p (dtr 270)) (* 0.25 b)))
  118.          (setq tan (/ (sin (dtr 30)) (cos (dtr 30))))
  119.          (setq p01 (polar p9 (+ p (dtr 180)) (* 0.3 h tan)))
  120.          (setq p02 (polar p0 p (* 0.3 h tan)))
  121.          (command "line" p1 p2 "")
  122.          (setq a1 (entlast))
  123.          (command)
  124.          (command "line" p3 p9 "")
  125.          (setq a9 (entlast))
  126.          (command)
  127.          (command "line" p0 p01 "")
  128.          (command "line" p9 p02 "")
  129.          (command "arc" p10 p7 p6)
  130.          (command)
  131.          (command "line" p6 p8 "")
  132.          (setq a2 (entlast))
  133.          (command)
  134.          (command "arc" p6 p4 p5)
  135.          (setq a3 (entlast))
  136.          (command)
  137.          (command "line" p5 p3 "")
  138.          (setq a4 (entlast))
  139.          (command)
  140.          (command "line" p4 p7 "")
  141.          (setq a5 (entlast))
  142.          (command)
  143.          (command "pline" p11 p12 p13 p14 "")
  144.          (setq a6 (entlast))
  145.          (command)
  146.          (command "line" p12 p15 "")
  147.          (setq a7 (entlast))
  148.          (command)
  149.          (command "line" p13 p16 "")
  150.          (setq a8 (entlast))
  151.          (command)
  152.          (command "line" p23 p24 "")
  153.          (command "line" p0 p1 "")
  154.          (setq a10 (entlast))
  155.          (command)
  156.          (command "mirror" a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 "" p9 p7 "n")
  157.          (setvar "blipmode" 1)
  158.          (setvar "cmdecho" 1)
  159.        )
  160.        (t
  161.          (setvar "blipmode" 0)
  162.          (setvar "cmdecho" 0)
  163.          (setq p0 (getpoint "\nEnter base point:"))
  164.          (setq D (* b 2))
  165.          (setq r (/ b 4 (cos (dtr 30))))
  166.          (setq y (* 0.12 b))
  167.          (setq x (/ y (sin (dtr 45))))
  168.          (setq p7 (polar p0 (+ p (dtr 90)) (* 1.3 h)))
  169.          (setq p4 (polar p7 (+ p (dtr 180)) (* 0.75 b)))
  170.          (setq p5 (polar p4 (+ p (dtr 210)) r))
  171.          (setq p6 (polar p5 p (/ b 2)))
  172.          (setq p10 (polar p6 p b))
  173.          (setq p1 (polar p0 (+ p (dtr 180)) (* 0.6 D)))
  174.          (setq p2 (polar p1 (+ p (dtr 90)) (* 0.3 h)))
  175.          (setq p3 (polar p2 p (* 0.1 D)))
  176.          (setq p8 (polar p3 p (/ b 2)))
  177.          (setq p9 (polar p0 (+ p (dtr 90)) (* 0.3 h)))
  178.          (setq p11 (polar p7 (+ p (dtr 180)) (/ b 2)))
  179.          (setq p12 (polar p11 (+ p (dtr 90)) (/ b 5)))
  180.          (setq p13 (polar p12 (+ p (dtr 45)) x))
  181.          (setq p15 (polar p12 p (/ b 2)))
  182.          (setq p14 (polar p15 (+ p (dtr 90)) y))
  183.          (setq p16 (polar p13 (+ p (dtr 270)) (* 0.3 b)))
  184.          (setq pa (polar p14 (+ p (dtr 90)) (* 0.25 b)))
  185.          (setq pb (polar p0 (+ p (dtr 270)) (* 0.25 b)))
  186.          (command "line" p1 p2 "")
  187.          (setq a1 (entlast))
  188.          (command)
  189.          (command "line" p2 p9 "")
  190.          (setq a10 (entlast))
  191.          (command)
  192.          (command "arc" p10 p7 p6)
  193.          (command "line" p6 p8 "")
  194.          (setq a2 (entlast))
  195.          (command)
  196.          (command "arc" p6 p4 p5)
  197.          (command)
  198.          (setq a3 (entlast))
  199.          (command)
  200.          (command "line" p5 p3 "")
  201.          (setq a4 (entlast))
  202.          (command)
  203.          (command "line" p4 p7 "")
  204.          (setq a5 (entlast))
  205.          (command)
  206.          (command "pline" p11 p12 p13 p14 "")
  207.          (setq a6 (entlast))
  208.          (command)
  209.          (command "line" p12 p15 "")
  210.          (setq a7 (entlast))
  211.          (command)
  212.          (command "line" p13 p16)
  213.          (setq a8 (entlast))
  214.          (command)
  215.          (command "line" pa pb "")
  216.          (command "line" p0 p1 "")
  217.          (setq a9 (entlast))
  218.          (command "mirror" a1 a2 a3 a4 a5 a6 a7 a8 a9 a10 "" p9 p7 "n")
  219.          (setvar "blipmode" 1)
  220.          (setvar "cmdecho" 1)
  221.        )
  222.    )
  223.    (princ)
  224. )
回复 支持 反对

使用道具 举报

sunny603
 楼主| 发表于 2004-12-8 22:52:00 | 显示全部楼层
谢谢啦！
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-9-30 02:25 , Processed in 0.180414 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表