请教调用子程序的问题。

lxdz443

原有程序有很多参数是相同的，是通过菜单宏命令调用的，现在想改为带DCL文件的，这样可以完全用命令调用，问题是，不知道该如何改写调用参数的子程序。
下面是源文件：
(defun c:ysyl()
        (setq cmdmode (getvar "cmdecho"))
        (setvar "cmdecho" 0)
          (dcl_yl)
        (prin1)
)
(defun dcl_yl()
        (setq dcl_id (load_dialog "yl.dcl"))       
        (new_dialog "yl" dcl_id)
        (def_ysyl)
        (action_tile "新建圆形电杆引上管" "(setq ddtype 1) (ok_ysyl)")
        (action_tile "原有圆形电杆引上管" "(setq ddtype 2) (ok_ysyl)")
        (action_tile "新建三角电杆引上管" "(setq ddtype 3) (ok_ysyl)")
        (action_tile "原有三角电杆引上管" "(setq ddtype 4) (ok_ysyl)")
        (action_tile "新设预留" "(setq ddtype 5) (ok_ysyl)")
        (action_tile "accept" "(ok_ysyl)")
        (setq dd (start_dialog))
        (if (= dd 1) (draw_ysyl))
    (unload_dialog dcl_id)

)
(defun def_ysyl()
        (if (= bl_ysyl nil)
        (set_tile "bili" "1")
        (set_tile "bili" (rtos bl_ysyl)))
        (setq sldkey_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))
        (setq sld_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))
        (mapcar 'show_sld sldkey_list sld_list)
          (setq ddtype 1)
        (mode_tile "新建三角电杆引上管" 3)
)


(defun show_sld(key sld)
        (setq x (dimx_tile key))
        (setq y (dimy_tile key))
        (start_image key)
        (fill_image 0 0 x y -2)
        (slide_image 0 0 x y  sld)
        (end_image)
)
(defun ok_ysyl()
        (setq bl_ysyl (atof (get_tile "bili")))
        (done_dialog 1)
)

(defun draw_ysyl()
        (setvar "cmdecho" 0)
        (command "layer" "s" "0" "")
        (setq pt0 (getpoint "\n 请输入插入点:"))
   (if (= pt0 nil)
     quit       
(progn
    (setq pt0 (list (car pt0) ( cadr pt0)))
        (setq r0 (/ (* (getangle pt0 "\n 请输入旋转角度值:") 180) pi))
        (cond ((= ddtype 1) (command "insert" "新建圆形电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0 ))
              ((= ddtype 2) (command "insert" "原有圆形电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 3) (command "insert" "新建三角电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 4) (command "insert" "原有三角电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 5) (command "insert" "新设预留" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
         )
        (draw_ysyl)
    )

(setvar "CMDECHO" cmdmode)
        (prin1)
)

需要调用的子程序：
;;;hxn--需要指定绘制点(H),旋转方向(X),不进行块分解(N).
(defun c:hxn ()
  (setvar "cmdecho" 0)
  (command "insert" a "s" "1")
  (princ "\n请指定绘制点:")
  (command pause)
  (princ "\n请指定旋转方向(0):")
  (command pause)
  (princ)
) ;_ 结束defun

想把(defun draw_ysyl()这个里面改为调用hxn这个子程序。请问该如何修改。

kwok

改一下:(defun c:hxn ()=>(defun draw_ysyl()
然后把(defun draw_ysyl()这个子程序全去掉
试试.

lxdz443

(defun c:hxn ()=>(defun draw_ysyl()
这句在什么地方修改？

lxdz443

将(defun draw_ysyl()
        (setvar "cmdecho" 0)
        (command "layer" "s" "0" "")
        (setq pt0 (getpoint "\n 请输入插入点:"))
   (if (= pt0 nil)
     quit        
(progn
    (setq pt0 (list (car pt0) ( cadr pt0)))
        (setq r0 (/ (* (getangle pt0 "\n 请输入旋转角度值:") 180) pi))
        (cond ((= ddtype 1) (command "insert" "新建圆形电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0 ))
              ((= ddtype 2) (command "insert" "原有圆形电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 3) (command "insert" "新建三角电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 4) (command "insert" "原有三角电杆引上管" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
              ((= ddtype 5) (command "insert" "新设预留" "x" bl_ysyl "y" bl_ysyl "r" r0 pt0))
         )
        (draw_ysyl)
    )

(setvar "CMDECHO" cmdmode)
        (prin1)
)

修改为
(defun draw_ysyl(/ a)
        (setvar "cmdecho" 0)
        (command "layer" "s" "0" "")
     (progn
      (cond  ((= ddtype 1)(setq a "新建三角电杆引上管")( c:hxn ))
             ((= ddtype 2)(setq a "原有三角电杆引上管")( c:hxn ))
             ((= ddtype 3) (setq a "新建圆形电杆引上管")( c:hnn ))
                 ((= ddtype 4) (setq a "原有圆形电杆引上管")( c:hnn ))
                 ((= ddtype 5) (setq a "新设预留")( c:hxn ))
         )
      (draw_ysyl)
  )
(setvar "CMDECHO" cmdmode)
        (prin1)
)
可以成功调用。就是不知道还有没有更简单的方法

ZZXXQQ

2. (defun c:ysyl()
   
3.   (setq cmdmode (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (dcl_yl)
   
6.   (prin1)
   
7. )
   
8. (defun dcl_yl()
   
9.   (if (> (setq dcl_id (load_dialog "yl.dcl")) 0) (progn
   
10.    (if (new_dialog "yl" dcl_id) (progn
    
11.     (def_ysyl)
    
12.     (action_tile "新建圆形电杆引上管" "(setq ddtype 1) (ok_ysyl)")
    
13.     (action_tile "原有圆形电杆引上管" "(setq ddtype 2) (ok_ysyl)")
    
14.     (action_tile "新建三角电杆引上管" "(setq ddtype 3) (ok_ysyl)")
    
15.     (action_tile "原有三角电杆引上管" "(setq ddtype 4) (ok_ysyl)")
    
16.     (action_tile "新设预留" "(setq ddtype 5) (ok_ysyl)")
    
17.     (action_tile "accept" "(ok_ysyl)")
    
18.     (setq dd (start_dialog))
    
19.    )
    
20.     (princ "\n无法显示对话框！")
    
21.    )
    
22.    (unload_dialog dcl_id)
    
23. )
    
24.   (princ "\n无法加载对话框！")
    
25. )
    
26. (if (= dd 1) (draw_ysyl))
    
27. )
    
28. (defun def_ysyl()
    
29.   (if (= bl_ysyl nil)
    
30.   (set_tile "bili" "1")
    
31.   (set_tile "bili" (rtos bl_ysyl)))
    
32.   (setq sldkey_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))
    
33.   (setq sld_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))
    
34.   (mapcar 'show_sld sldkey_list sld_list)
    
35.   (setq ddtype 1)
    
36.   (mode_tile "新建三角电杆引上管" 3)
    
37. )
    
38. (defun show_sld(key sld)
    
39.   (setq x (dimx_tile key))
    
40.   (setq y (dimy_tile key))
    
41.   (start_image key)
    
42.   (fill_image 0 0 x y -2)
    
43.   (slide_image 0 0 x y  sld)
    
44.   (end_image)
    
45. )
    
46. (defun ok_ysyl()
    
47.   (setq bl_ysyl (atof (get_tile "bili")))
    
48.   (done_dialog 1)
    
49. )
    
50. (defun draw_ysyl()
    
51.   (setvar "cmdecho" 0)
    
52.   (setvar "clayer" "0")
    
53.   (while (setq pt0 (getpoint "\n 请输入插入点:"))
    
54. ;    (setq r0 (/ (* (getangle pt0 "\n 请输入旋转角度值:") 180) pi))
    
55.     (command "-insert" (nth (1- ddtype) sld_list) pt0 bl_ysyl "" PAUSE)
    
56.   )
    
57.   (setvar "CMDECHO" cmdmode)
    
58.   (prin1)
    
59. )
    

(defun c:ysyl()<br />   (setq cmdmode (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (dcl_yl)<br />   (prin1)<br /> )<br /> (defun dcl_yl()<br />   (if (> (setq dcl_id (load_dialog "yl.dcl")) 0) (progn<br />    (if (new_dialog "yl" dcl_id) (progn<br />     (def_ysyl)<br />     (action_tile "新建圆形电杆引上管" "(setq ddtype 1) (ok_ysyl)")<br />     (action_tile "原有圆形电杆引上管" "(setq ddtype 2) (ok_ysyl)")<br />     (action_tile "新建三角电杆引上管" "(setq ddtype 3) (ok_ysyl)")<br />     (action_tile "原有三角电杆引上管" "(setq ddtype 4) (ok_ysyl)")<br />     (action_tile "新设预留" "(setq ddtype 5) (ok_ysyl)")<br />     (action_tile "accept" "(ok_ysyl)")<br />     (setq dd (start_dialog))<br />    )<br />     (princ "\n无法显示对话框！")<br />    )<br />    (unload_dialog dcl_id)<br /> )<br />   (princ "\n无法加载对话框！")<br /> )<br /> (if (= dd 1) (draw_ysyl))<br /> )<br /> (defun def_ysyl()<br />   (if (= bl_ysyl nil)<br />   (set_tile "bili" "1")<br />   (set_tile "bili" (rtos bl_ysyl)))<br />   (setq sldkey_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))<br />   (setq sld_list '("新建圆形电杆引上管" "原有圆形电杆引上管" "新建三角电杆引上管" "原有三角电杆引上管" "新设预留"))<br />   (mapcar 'show_sld sldkey_list sld_list)<br />   (setq ddtype 1)<br />   (mode_tile "新建三角电杆引上管" 3)<br /> )<br /> (defun show_sld(key sld)<br />   (setq x (dimx_tile key))<br />   (setq y (dimy_tile key))<br />   (start_image key)<br />   (fill_image 0 0 x y -2)<br />   (slide_image 0 0 x y  sld)<br />   (end_image)<br /> )<br /> (defun ok_ysyl()<br />   (setq bl_ysyl (atof (get_tile "bili")))<br />   (done_dialog 1)<br /> )<br /> (defun draw_ysyl()<br />   (setvar "cmdecho" 0)<br />   (setvar "clayer" "0")<br />   (while (setq pt0 (getpoint "\n 请输入插入点:")) <br /> ;    (setq r0 (/ (* (getangle pt0 "\n 请输入旋转角度值:") 180) pi))<br />     (command "-insert" (nth (1- ddtype) sld_list) pt0 bl_ysyl "" PAUSE)<br />   )<br />   (setvar "CMDECHO" cmdmode)<br />   (prin1)<br /> )<br />

lxdz443

如果我现在需要把ok_ysyl这个子程序去掉，并需要保留单击图片就可以选择，不需要双击图片后才能做出选择，我现在把ok_ysy这个子程序注释掉后，只能双击图片才能调用相关key值。