请教用lisp调用DCL单选键值后，程序无法正常运行。

lxdz443

一下是程序：

(defun c:aa()
        (setq cmdmode (getvar "cmdecho"))
        (setvar "cmdecho" 0)

  (if (= (tblsearch "layer" "0_RDCAD") nil)
    (command "layer" "n" "0_RDCAD" "c" "2" "0_RDCAD" "")
    )
(if (= (tblsearch "layer" "1_RDCAD") nil)
    (command "layer" "n" "1_RDCAD" "c" "3" "1_RDCAD" "")
    )
(if (= (tblsearch "layer" "2_RDCAD") nil)
    (command "layer" "n" "2_RDCAD" "c" "1" "2_RDCAD" "")
    )
(if (= (tblsearch "layer" "3_RDCAD") nil)
    (command "layer" "n" "3_RDCAD" "c" "4" "3_RDCAD" "")
    )
(if (= (tblsearch "layer" "4_RDCAD") nil)
    (command "layer" "n" "4_RDCAD" "c" "7" "4_RDCAD" "")
    )
          (dcl_ganlu)
        (prin1)
)


(defun dcl_ganlu()
     (setq dcl_id (load_dialog "gan.dcl"))       
        (new_dialog "NextSetting" dcl_id)
        (def_ganlu)
        (action_tile "bilihuizhi" "(setq ddtype 1)")
        (action_tile "dengjuhuizhi" "(setq ddtype 2)")
          (action_tile "xinjian" "(setq ddtype 3)")
          (action_tile "yuanyou" "(setq ddtype 4)")
          (action_tile "chaichu" "(setq ddtype 5)")
        (action_tile "accept" "(ok_bili)")
        (setq dd (start_dialog))
        (if (= dd 1)
          (draw_ganlu)
          )
    (unload_dialog dcl_id)
)

(defun def_ganlu()
  (if (= bl_draw nil)
    (set_tile "bili_draw" "4000")
    (set_tile "bili_draw" (rtos bl_draw))
  )
)
(defun ok_bili()
  (setq bl_draw (atof (get_tile "bili_draw")))
  (done_dialog 1)
)



(DEFUN draw_ganlu ()
  (setq ls 2.25 ;设定直线上面的字偏离直线的距离为ls
        zg 2.5 ;设定字高zg
        r 1.5)               ;电杆半径
  (command "-style" "Standard" "" 0 "" "" "" "" "")    ;切换到默认的字体
  (graphscr) ;切换到图形窗口
  (setq oce (getvar "cmdecho"))  
  (setvar "cmdecho" 0)
  (setq bl bl_draw
  ;(setq bl (getint "\n请输入比例<推荐4000>,1:")
        p1 (getpoint "\n杆路的起点:")         
  )
(setq osm (getvar "osmode"))  ;储存对象捕捉的系统变量
(setvar "osmode" 0)           ;关闭对象捕捉
(while (setq a1 (getangle p1 "\n杆路的方向<右键退出/Esc退出>:"))   
(while (setq len (getdist "\n请输入杆距<米>:"))
(while ((= ddtype 1) (SETQ d (/ (* len 1000) bl))))
(while ((= ddtype 2) (SETQ d 15)))
;(setq  d (SETQ d 15))
; (setq  d (/ (* len 1000) bl))
(setq
    p2 (polar p1 a1 d)     ;计算p2的坐标   
    p11 (polar P1 a1 r)
    p22 (polar p1 a1 (- d r))
    p3 (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0)) ;计算p1p2的中点p3的坐标
)
(PROGN
                  (cond ((= ddtype 3) (command "layer" "s" "1_RDCAD" "")
                                       (command "pline" p11 "w" 0.5 0.5 p22 "")
                                    (command ".circle" p2 r))
                       ((= ddtype 4) (command "layer" "s" "0_RDCAD" "")
                                    (command "pline" p11 "w" 0.25 0.25 p22 "")
                                    (command ".circle" p2 r))
                        ((= ddtype 5) (command "layer" "s" "3_RDCAD" "")
                                    (command "pline" p11 "w" 0.2 0.2 p22 "")
                                    (command ".circle" p2 r))
    ))



; (command ".line" p11 p22 "")
; (command ".circle" p2 r)

(if (and  (> a1 (* pi 0.5))(< a1 (* pi 1.5)))
    (setq a2 (angle p2 p1))
    (setq a2 a1)
)
(setq
     p5 (polar p3 (+ a2 (/ pi 2)) ls) ;计算直线上面的文字位置
)
  (command "layer" "s" "0" "")
  (command ".text" "m" p5 zg (/ (* a2 180) pi) (rtos len 2 1)) ;以中央对齐的方式写直线上面的字：米
  (setq p1 p2)                  
)      
)      
(setvar "osmode" osm)         
(setvar "cmdecho" oce)
  (princ)
)

一下是DCL文件：
NextSetting : dialog{
      label = "杆路绘制设置";
  :row{
         :boxed_row{
                label="间距绘制方式";
                :radio_column{
                                key="ratio1";
                                :radio_button{label="按比例绘制"; key="bilihuizhi";}
                                :radio_button{label="等间距绘制"; key="dengjuhuizhi";}
                        spacer_1;
                        spacer_1;
                }
                :column{
                        :edit_box{label="比例 1:";key="bili_draw";edit_width=6;}
                        :text{label="15"; key="valRatio2";}
                        spacer_1;
                        spacer_1;
                        }
                }
:boxed_column{
     label="布放类别";
                :radio_column{
                                :radio_button{label="新建"; key="xinjian";}
                                :radio_button{label="原有"; key="yuanyou";}
                                :radio_button{label="拆除"; key="chaichu";}

                       
                }

                        }


               
}         
  ok_cancel;

}

现在的问题是：
(while ((= ddtype 1) (SETQ d (/ (* len 1000) bl))))
(while ((= ddtype 2) (SETQ d 15)))
;(setq  d (SETQ d 15))
; (setq  d (/ (* len 1000) bl))

我把这个改为(setq  d (SETQ d 15))或者(setq  d (/ (* len 1000) bl))后程序可以运行，但是加了选择后程序就无法运行了。请教这个程序该怎么修改。

ZZXXQQ

2. (defun c:aa()
   
3.   (setq cmdmode (getvar "cmdecho"))
   
4.   (setvar "cmdecho" 0)
   
5.   (command "layer" "m" "0_RDCAD" "c" "2" "" "")
   
6.   (command "layer" "m" "1_RDCAD" "c" "3" "" "")
   
7.   (command "layer" "m" "2_RDCAD" "c" "1" "" "")
   
8.   (command "layer" "m" "3_RDCAD" "c" "4" "" "")
   
9.   (command "layer" "m" "4_RDCAD" "c" "7" "" "")
   
10.   (dcl_ganlu)
    
11.   (prin1)
    
12. )
    
13. (defun dcl_ganlu()
    
14. (if (> (setq dcl_id (load_dialog "gan.dcl")) 0) (progn
    
15.   (if (new_dialog "NextSetting" dcl_id) (progn
    
16.    (def_ganlu)
    
17.    (action_tile "bilihuizhi" "(setq ddtype 1)")
    
18.    (action_tile "dengjuhuizhi" "(setq ddtype 2)")
    
19.    (action_tile "xinjian" "(setq ddtype 3)")
    
20.    (action_tile "yuanyou" "(setq ddtype 4)")
    
21.    (action_tile "chaichu" "(setq ddtype 5)")
    
22.    (action_tile "accept" "(ok_bili)(done_dialog 1)")
    
23.    (setq dd (start_dialog))
    
24.   )
    
25.    (princ "\n无法显示对话框！")
    
26.   )
    
27.   (unload_dialog dcl_id)
    
28. )
    
29.   (princ "\n无法加载对话框！")
    
30. )
    
31. (if (= dd 1) (draw_ganlu))
    
32. )
    
33. (defun def_ganlu ()
    
34.   (set_tile "bili_draw" (if bl_draw (rtos bl_draw 2) "4000"))
    
35. )
    
36. (defun ok_bili ()
    
37. (setq bl_draw (atof (get_tile "bili_draw")))
    
38. )
    
39. (defun draw_ganlu ()
    
40.   (setq ls 2.25 ;设定直线上面的字偏离直线的距离为ls
    
41.         zg 2.5 ;设定字高zg
    
42.         r 1.5) ;电杆半径
    
43.   (setvar "TEXTSTYLE" "Standard")    ;切换到默认的字体
    
44.   (graphscr) ;切换到图形窗口
    
45.   (setq oce (getvar "cmdecho"))  
    
46.   (setvar "cmdecho" 0)
    
47.   (setq bl bl_draw
    
48.   ;(setq bl (getint "\n请输入比例<推荐4000>,1:")
    
49.         p1 (getpoint "\n杆路的起点:")         
    
50.   )
    
51.   (setq osm (getvar "osmode"))  ;储存对象捕捉的系统变量
    
52.   (setvar "osmode" 0)           ;关闭对象捕捉
    
53.   (while (setq a1 (getangle p1 "\n杆路的方向<右键退出/Esc退出>:"))   
    
54.    (while (setq len (getdist "\n请输入杆距<米>:"))
    
55.     (if (= ddtype 1) (SETQ d (/ (* len 1000) bl)))
    
56.     (if (= ddtype 2) (SETQ d 15))
    
57. ;(setq d (SETQ d 15))
    
58. ; (setq d (/ (* len 1000) bl))
    
59.     (setq p2 (polar p1 a1 d)     ;计算p2的坐标   
    
60.           p11 (polar P1 a1 r)
    
61.           p22 (polar p1 a1 (- d r))
    
62.           p3 (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0)) ;计算p1p2的中点p3的坐标
    
63.     )
    
64.     (cond
    
65.      ((= ddtype 3)
    
66.       (command "layer" "s" "1_RDCAD" "")
    
67.       (command "pline" p11 "w" 0.5 0.5 p22 "")
    
68.       (command ".circle" p2 r)
    
69.      )
    
70.      ((= ddtype 4)
    
71.       (command "layer" "s" "0_RDCAD" "")
    
72.       (command "pline" p11 "w" 0.25 0.25 p22 "")
    
73.       (command ".circle" p2 r)
    
74.      )
    
75.      ((= ddtype 5)
    
76.       (command "layer" "s" "3_RDCAD" "")
    
77.       (command "pline" p11 "w" 0.2 0.2 p22 "")
    
78.       (command ".circle" p2 r)
    
79.      )
    
80.     )
    
81. ; (command ".line" p11 p22 "")
    
82. ; (command ".circle" p2 r)
    
83.     (if (< (* pi 0.5) a1 (* pi 1.5))
    
84.      (setq a2 (angle p2 p1))
    
85.      (setq a2 a1)
    
86.     )
    
87.     (setq p5 (polar p3 (+ a2 (/ pi 2)) ls)) ;计算直线上面的文字位置
    
88.     (command "layer" "s" "0" "")
    
89.     (command ".text" "m" p5 zg (/ (* a2 180) pi) (rtos len 2 1)) ;以中央对齐的方式写直线上面的字：米
    
90.     (setq p1 p2)                  
    
91.    )
    
92.   )
    
93.   (setvar "osmode" osm)         
    
94.   (setvar "cmdecho" oce)
    
95.   (princ)
    
96. )
    

(defun c:aa()<br />   (setq cmdmode (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "layer" "m" "0_RDCAD" "c" "2" "" "")<br />   (command "layer" "m" "1_RDCAD" "c" "3" "" "")<br />   (command "layer" "m" "2_RDCAD" "c" "1" "" "")<br />   (command "layer" "m" "3_RDCAD" "c" "4" "" "")<br />   (command "layer" "m" "4_RDCAD" "c" "7" "" "")<br />   (dcl_ganlu)<br />   (prin1)<br /> )<br /> (defun dcl_ganlu()<br /> (if (> (setq dcl_id (load_dialog "gan.dcl")) 0) (progn<br />   (if (new_dialog "NextSetting" dcl_id) (progn<br />    (def_ganlu)<br />    (action_tile "bilihuizhi" "(setq ddtype 1)")<br />    (action_tile "dengjuhuizhi" "(setq ddtype 2)")<br />    (action_tile "xinjian" "(setq ddtype 3)")<br />    (action_tile "yuanyou" "(setq ddtype 4)")<br />    (action_tile "chaichu" "(setq ddtype 5)")<br />    (action_tile "accept" "(ok_bili)(done_dialog 1)")<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_ganlu))<br /> )<br /> (defun def_ganlu ()<br />   (set_tile "bili_draw" (if bl_draw (rtos bl_draw 2) "4000"))<br /> )<br /> (defun ok_bili ()<br /> (setq bl_draw (atof (get_tile "bili_draw")))<br /> )<br /> (defun draw_ganlu ()<br />   (setq ls 2.25 ;设定直线上面的字偏离直线的距离为ls<br />         zg 2.5 ;设定字高zg<br />         r 1.5) ;电杆半径<br />   (setvar "TEXTSTYLE" "Standard")    ;切换到默认的字体<br />   (graphscr) ;切换到图形窗口<br />   (setq oce (getvar "cmdecho"))  <br />   (setvar "cmdecho" 0)<br />   (setq bl bl_draw<br />   ;(setq bl (getint "\n请输入比例<推荐4000>,1:")<br />         p1 (getpoint "\n杆路的起点:")         <br />   )<br />   (setq osm (getvar "osmode"))  ;储存对象捕捉的系统变量<br />   (setvar "osmode" 0)           ;关闭对象捕捉<br />   (while (setq a1 (getangle p1 "\n杆路的方向<右键退出/Esc退出>:"))   <br />    (while (setq len (getdist "\n请输入杆距<米>:"))<br />     (if (= ddtype 1) (SETQ d (/ (* len 1000) bl)))<br />     (if (= ddtype 2) (SETQ d 15))<br /> ;(setq d (SETQ d 15))<br /> ; (setq d (/ (* len 1000) bl))<br />     (setq p2 (polar p1 a1 d)     ;计算p2的坐标    <br />           p11 (polar P1 a1 r)<br />           p22 (polar p1 a1 (- d r))<br />           p3 (list (/ (+ (car p1) (car p2)) 2.0) (/ (+ (cadr p1) (cadr p2)) 2.0)) ;计算p1p2的中点p3的坐标<br />     )<br />     (cond<br />      ((= ddtype 3)<br />       (command "layer" "s" "1_RDCAD" "")<br />       (command "pline" p11 "w" 0.5 0.5 p22 "")<br />       (command ".circle" p2 r)<br />      )<br />      ((= ddtype 4)<br />       (command "layer" "s" "0_RDCAD" "")<br />       (command "pline" p11 "w" 0.25 0.25 p22 "")<br />       (command ".circle" p2 r)<br />      )<br />      ((= ddtype 5)<br />       (command "layer" "s" "3_RDCAD" "")<br />       (command "pline" p11 "w" 0.2 0.2 p22 "")<br />       (command ".circle" p2 r)<br />      )<br />     )<br /> ; (command ".line" p11 p22 "") <br /> ; (command ".circle" p2 r) <br />     (if (< (* pi 0.5) a1 (* pi 1.5))<br />      (setq a2 (angle p2 p1))<br />      (setq a2 a1)<br />     )<br />     (setq p5 (polar p3 (+ a2 (/ pi 2)) ls)) ;计算直线上面的文字位置<br />     (command "layer" "s" "0" "")<br />     (command ".text" "m" p5 zg (/ (* a2 180) pi) (rtos len 2 1)) ;以中央对齐的方式写直线上面的字：米<br />     (setq p1 p2)                  <br />    )<br />   )<br />   (setvar "osmode" osm)         <br />   (setvar "cmdecho" oce) <br />   (princ)<br /> )<br />

lxdz443

Z版，程序还是不行，提示： 错误: 参数类型错误: numberp: nil，把(if (= ddtype 1) (SETQ d (/ (* len 1000) bl)))和    (if (= ddtype 2) (SETQ d 15))这两行屏蔽掉改为(setq d (SETQ d 15))或者 (setq d (/ (* len 1000) bl))，程序就可以运行，不过只有对于的功能。

xyp1964

rdhhb

楼主也做通信的吗？哈哈

rdhhb

你这个程序做的有点死，比如杆子高度，电杆直径

lxdz443

rdhhb 发表于 2016-1-4 09:43
你这个程序做的有点死，比如杆子高度，电杆直径

你也是做通信的？你有好的程序发来用用呗。

rdhhb

发个图片给你看看