[求助]：那位大侠帮忙看看这小段程序

frankxie

(SetVar "cmdecho" 0)
    　　              ( Command "circle" p "d" (* m z)
　　                              "chprop" "l" "" "lt" "dhx" ""
    　　                          "circle" p "d" (* m (- z 2))
　　                              "chprop" "l" "" "lt" "xx" ""
    　　                          "circle" p "d" (* m (+ z 2))
　　                  )
    　　              (SetVar "cmdecho" 1)

zxq0220

有什么问题？请直接提问。

frankxie

就是看不懂此程序

tjchkys

是想编一个能自动画圆的程序吗?
你这个根本不对,提出要求大家才能给你解答呀!

frankxie

以下是整个程序,加载后,出现到修改属性之后不知道该如何操作?

;当前齿数和模数控件的初值
　　(SetQ *m* "3" *z* "20")
　　;数据类型检查函数
　　(Defun ChkZ (cz)
    　　   (If (And (= 'INT (Type (Read cz))) (> (Read *z*) 17))
        　　    T
　　            (Progn (Alert "无效的齿数，请重新输入...")
    　　                (Mode_Tile "z" 2)
        　　            nil
　　            )
    　　   )
　　)
　　(Defun C:T8-1 ()
　　　　　　;设置模数基础参数表
    　　   (SetQ ml '(1.0 2.0 2.5 3.0 4.0 5.0 6.0 8.0))
　　　　　　;打开并激活对话框
　　       (New_Dialog "Gear" (Load_Dialog "8-1.dcl"))
　　　　　　;按 ml 表填充拉下列表盒的内容
    　　   (Start_List "m")
　　       (ForEach m ml (Add_List (RToS m 2 1)))
    　　   (End_List)
　　　　　　;设各控件的初值
　　       (Set_Tile "m" *m*) (Set_Tile "z" *z*)
            ;设各控件的动作～给当前的模数和齿数变量赋值
　　       (Action_Tile "m" "(SetQ *m* $Value)")
    　　   (Action_Tile "z" "(SetQ *z* $Value)")
　　　　　　;修改ＯＫ按钮的动作～如果 *z*类型正确，再结束对话框
　　       (Action_Tile "accept" "(If (ChkZ *z*) (Done_Dialog 1))")
　　　　　　;对结束码的识别和正常结束后的画图处理
　　       (If (= 1 (Start_Dialog))
    　　       (Progn (SetQ p (GetPoint "齿轮中心点: ")
　　                          m (Nth (Read *m*) ml)
    　　                      z (Read *z*)
　　                   )
    　　               (SetVar "cmdecho" 0)
　　                   (Command "circle" p "d" (* m z)
    　　                         "chprop" "l" "" "lt" "dhx" ""
　　                             "circle" p "d" (* m (- z 2))
    　　                         "chprop" "l" "" "lt" "xx" ""
　　                             "circle" p "d" (* m (+ z 2))
    　　               )
　　                  (SetVar "cmdecho" 1)
    　　       )
　　      )
    　　  (PrinC)
　　)



dcl程序
Gear : dialog
       { label = "Test 8-1";
         : boxed_row
           { label = "Gear";
             : popup_list { label = "m: "; key = "m"; }
             : edit_box   { label = "Z: "; key = "z"; edit_limit = 3; }
           }
         ok_cancel;
      }

zxq0220

将"chprop" "l" "" "lt" "dhx" ""中的lt改为la；
将"chprop" "l" "" "lt" "xx" ""中的lt改为la。
而且在程序运行前要先设定好dhx和xx图层。

frankxie

此程序应该是画出来三个圆的,可是画出来一个后就没有了,只提示让修改属性但是如何才能画出另外的两个圆?
谢谢