Autolisp处理DCL的地方哪里错了

siyo · 发表于 2003-12-15 17:44:00

(defun c:draw()
  (setq cm(getvar "cmdecho")
bli(getvar "blipmode"))
  (setvar "cmdecho" 1)
  (setvar "blipmode" 1)
  (setq dcl_id (load_dialog "design.dcl"))
(if (< dcl_id 0) (exit))
  (if (not(new_dialog "design" dcl_id)) (exit))
  (set_tile "class_l" "1")
  (set_tile "p_od" (rtos 86))
  (set_tile "p_w" (rtos 16))
  (set_tile "p_hd" (rtos 12))
  (set_tile "l_ad" (rtos 86))
  (set_tile "l_t" (rtos 16))
  (set_tile "l_w" (rtos 16))
  (set_tile "l_hd" (rtos 12))
  (mode_tile "class_l" 2)
  (mode_tile "p_od" 1)
  (mode_tile "p_w" 1)
  (mode_tile "p_hd" 1)
  (dcl_image "ibk" "acad(sphere)")
  (action_tile "class_l" "(fl_lx)")
  (action_tile "class_p" "(fl_px)")
  (action_tile "accept" "(fl \"zxy_lx\" zxy_d1 zxy_dd zxy_hh zxy_bb)(done_dialog 1)")
  (start_dialog)
  (prin1))

(defun fl_px()
  (mode_tile "p_od" 0)
  (mode_tile "p_w" 0)
  (mode_tile "p_hd" 0)
  (mode_tile "l_ad" 1)
  (mode_tile "l_t" 1)
  (mode_tile "l_w" 1)
  (mode_tile "l_hd" 1)
  (setq zxy_lx "B"
      zxy_d1 (atof (get_tile "p_od"))
zxy_bb (atof (get_tile "p_w"))
zxy_dd (atof (get_tile "p_hd")))
  (dcl_image "ibk" "acad(torus)"))

(defun fl_lx()
  (mode_tile "l_ad" 0)
  (mode_tile "l_t" 0)
  (mode_tile "l_w" 0)
  (mode_tile "l_hd" 0)
  (mode_tile "p_od" 1)
  (mode_tile "p_w" 1)
  (mode_tile "p_hd" 1)
  (setq zxy_lx "A"
      zxy_d1 (atof (get_tile "l_ad"))
zxy_hh (atof (get_tile "l_t"))
zxy_bb (atof (get_tile "p_w"))
zxy_dd (atof (get_tile "l_hd")))
  (dcl_image "ibk" "acad(sphere)"))

(defun dcl_image(dcl_key image_name / img_width image_height)
  (start_image dcl_key)
  (setq img_width (dimx_tile dcl_key) img_height (dimy_tile dcl_key))
  (fill_image 0 0 img_width img_height 0)
  (slide_image 0 -40 img_width img_height image_name)
  (end_image))

(defun fl(lx d1 dd hh bb)

siyo · 发表于 2003-12-15 17:45:00

按OK安扭后AutoCAD就死掉了

BDYCAD · 发表于 2003-12-15 18:05:00

你的ＤＣＬ還沒有給出來看呀？

siyo · 发表于 2003-12-15 19:06:00

本帖最后由作者于 2003-12-16 15:44:02 编辑

忘记了...

meflying · 发表于 2003-12-16 08:39:00

这个函数是什么东西？
(defun fl(lx d1 dd hh bb)

siyo · 发表于 2003-12-16 09:32:00

这个是绘图的函数....里面要用到 lx d1 dd hh bb 五个参数

其中 lx为字符串 .....其他四个为实数

meflying · 发表于 2003-12-16 09:53:00

不管是什么函数，问题是这个函数不全啊，我问的那段已经是复制了整个函数了，而不是复制一部分，你看看你帖的东西，看看是否漏了。。。

siyo · 发表于 2003-12-16 12:12:00

(defun fl(lx d1 dd hh bb);(/ cm bli lx d1 hh bb dd oo o1 o2 jp dj qk zq1 zq2 r1 r11 r2 r22 kk1 kk2 kk3 k1 k2 k3 k4 r3 r33 r4 r44 r0 box flw)
;;;  (setq cm(getvar "cmdecho")
;;; bli(getvar "blipmode"))
;;;  (setvar "cmdecho" 1)
;;;  (setvar "blipmode" 1)
;;;  (setq lx(getstring "请输入飞轮类型:轮形(A);盘形(B):<A> "))
;;;  (setq lx(strcase lx))
;;;  (if(= lx "")(setq lx "A"))
;;;  选择飞轮类型默认为轮形
;;;  (cond ((= lx "A")(setq d1 (getreal "请输入轮形飞轮轮缘的平均直径D:")
;;;                      hh (getreal "请输入轮形飞轮轮缘厚度H:")
;;;                      bb (getreal "请输入轮形飞轮轮缘宽度B:")
;;;                      dd (getreal "请输入轮形飞轮轴孔直径d:")))
;;;       ((= lx "B")(setq d1 (getreal "请输入盘形飞轮外缘直径D:")
;;;                      bb (getreal "请输入盘形飞轮轮缘宽度B:")
;;;                      dd (getreal "请输入盘形飞轮轴孔直径d:"))))
(if(= nil hh)(setq hh 0))
  (setq oo(* 0.875 bb)o1(list 0 0 0)o2(list oo 0 0)jq(/ dd 2)r1(list 0 jq))
(cond ((and(>= dd 6)(< dd 8))(setq qk 2
         t1(+ jq 1)
         dj 0.5))
((and(>= dd 8)(< dd 10))(setq qk 3
      t1(+ jq 1.4)
      dj 0.5))
((and(>= dd 10)(< dd 12))(setq qk 4
         t1(+ jq 1.8)
         dj 1))
((and(>= dd 12)(< dd 17))(setq qk 5
         t1(+ jq 2.3)
         dj 1))
((and(>= dd 17)(< dd 22))(setq qk 6
         t1(+ jq 2.8)
         dj 1))
((and(>= dd 22)(< dd 30))(setq qk 8
         t1(+ jq 3.3)
         dj 1.5))
((and(>= dd 38)(< dd 44))(setq qk 12
         t1(+ jq 3.3)
         dj 1.5))
((and(>= dd 50)(< dd 58))(setq qk 16
         t1(+ jq 4.3)
         dj 2))
((and(>= dd 58)(< dd 65))(setq qk 18
         t1(+ jq 4.4)
         dj 2))
((and(>= dd 65)(< dd 75))(setq qk 20
         t1(+ jq 4.9)
         dj 2))
((and(>= dd 75)(< dd 85))(setq qk 22
         t1(+ jq 5.4)
         dj 2))
((and(>= dd 85)(< dd 95))(setq qk 25
         t1(+ jq 5.4)
         dj 2))
((and(>= dd 95)(< dd 110))(setq qk 28
t1(+ jq 6.4)
dj 2))
((>= dd 110)(setq qk 28
   t1(+ jq 6.4)
   dj 2)))
  (setq box1(list 0(- 0 (/ qk 2)))
box2(list bb(/ qk 2))
box3(polar o1(/ pi 4) jq)
box4(list 0 0 oo)
box5(list 0 0 (- 0 oo))
box6(list 0 0 bb)
box7(list 0 0 (- 0 bb))
)
  (cond ((= lx "A")(progn
      (setq r2(polar r1 0 oo)
   r3(list 0 dd)
   r4(polar r3 0 oo)
   s1(* 0.3125 bb)
   s2(* 0.375 bb)
   s3(-(-(/ d1 2)(/ hh 2))dd)
   r5(polar r3 0 s1)
   r6(polar r4 pi s1)
   r7(polar r5 (/ pi 2.0)s3)
   r8(polar r6 (/ pi 2.0)s3)
   r9(polar r7 pi s2)
   r10(polar r9 0 bb)
   r11(polar r9 (/ pi 2.0) hh)
   r12(polar r11 0 bb)
   k1(polar r1 (/ pi 2.0)(/ dd 4))
   k2(polar r5 pi (/ s1 2))
   k3(polar r2(/ pi 2.0)(/ dd 4))
   k4(polar r4 pi (/ s1 2))
   k5(polar r5(/ pi 2.0)(/ s3 2))
   k6(polar r7 pi (/ s2 2))
   k7(polar r6(/ pi 2.0)(/ s3 2))
   k8(polar r10 pi (/ s2 2))
   dj1(* dj 2)
   cc(+(/(- d1 hh)4)(/ dd 2))
   c1(polar o1 0 cc)
   cdd(-(/(- d1 hh)2)(+ dd(* 0.45 bb)))
   )
      (command "pline" r1 r3 r5 r7 r9 r11 r12 r10 r8 r6 r4 r2 "c")
      (command "zoom""e")
      (command "fillet" "r" dj1)
      (command "fillet" k5 k2)
      (command "fillet" k1 k2)
      (command "fillet" k3 k4)
      (command "fillet" k5 k6)
      (command "fillet" k7 k8)
      (command "fillet" k4 k7)
      (command "revolve" r1 ""o1 o2 360 )
      (setq flw(ssget "L"))
      (command "zoom""e")
      (command"layer""n"1"c" 2 1"")
      (command"layer""s"1"")
      (command "box" box1 box2 t1)
      (command "ucs""Y"90)
      (command "cylinder" c1"d"cdd oo)
      (setq cc1(ssget "L" ))
      (command "array"cc1"" "p"o1 4 360 "y")
      (setq cc2(ssget "x" ' ((8 . "1"))))
      (command"subtract"flw""cc2"")
      (command "view""swiso")
      (command "zoom""e")
      (command "zoom""s" "5xp")
           (command"chamfer"box3"ok"dj dj "l"box3"")
      (command"ucs""o"box4)
      (command"chamfer"box3"n""ok"dj dj "l"box3"")
      (command"ucs""o"box5)
      (command "ucs""Y"-90)
      ))
((= lx "B")(progn
      (setq r13(list bb (/ d1 2)))
      (command "rectang" r1 r13"")
      (command "revolve" r1 ""o1 o2 360 )
      (setq flw(ssget "L"))
      (command "box" box1 box2 t1)
      (setq cc1(ssget "L"))
      (command "subtract"flw "" cc1"")
      (command "ucs""Y"90)
      (command "view""swiso")
      (command "zoom""e")
      (command "zoom""s" "5xp")
           (command"chamfer"box3"ok"dj dj "l"box3"")
      (command"ucs""o"box6)
      (command"chamfer"box3"n""ok"dj dj "l"box3"")
      (command"ucs""o"box7)
      (command "ucs""Y"-90)
      )))
  (command "shademode""g")
  (command "zoom""e")
  )

siyo · 发表于 2003-12-16 13:58:00

版主....?

meflying · 发表于 2003-12-16 14:05:00

你应该先保存数据，退出对话框，然后执行后面的操作。。。

账号		自动登录	找回密码
密码			注册