[求助]：索引圈标注,帮我看看

ld80721

以下程序是论坛上一个兄弟发的,说是程序中的字体和图层自己设定,这不搞不定,只有麻烦哥们了!惭愧呀.向你们致敬.
能不能帮改改,考虑比例因子,字体等.看看能不能完善一下.


;;;索引圈标注 syq.lsp                                                           
(defun c:syq (/        dcl_id o_layer o_ortho o_osnap rad_cir h_num num num2
              judge do_what)
  (setvar "cmdecho" 0)
  (setq o_layer (getvar "clayer"))
  (setq o_ortho (getvar "orthomode"))
  (setq o_osnap (getvar "OSMODE"))
  (setvar "OSMODE" 0)
  (setvar "orthomode" 0)
  (setq dcl_id (load_dialog "syq.dcl"))

  (setq rad_cir 5)
  (setq h_num 4)

  (setq num "1")
  (setq num2 "-")
  (setq do_what 2)
  (setq judge "0")


  (while (= do_what 2)

    (if        (not (new_dialog "syq" dcl_id "" pt_screen))
      (exit)
    )

    (set_tile "text1" num)
    (set_tile "text2" num2)
    (set_tile "sel1" judge)

    (action_tile "text1" "(setq num $value)")
    (action_tile "text2" "(setq num2 $value)")
    (action_tile "sel1" "(setq judge $value)")

    (action_tile "accept" "(setq pt_screen (done_dialog 2))")
    (action_tile "cancel" "(done_dialog 0)")

    (setq do_what (start_dialog))
    (setvar "orthomode" (atoi judge))

    (if        (= do_what 2)
      (syq)
    )
  )
  (setvar "clayer" o_layer)
  (setvar "orthomode" o_ortho)
  (setvar "osmode" o_osnap)
  (setvar "cmdecho" 1)

  (unload_dialog dcl_id)
  (princ)
)



syq.DCL

syq:dialog{
label="索引圈标注";
        :boxed_column{
        label="标注内容";
                :row{
                        :edit_box{
                        label="线上文字";
                        key="text1";
                        edit_limit=10;
                        edit_width=10;
                        value="";
                        alignment=centered;
                        }
                }
                :row{
                        :edit_box{
                        label="线下文字";
                        key="text2";
                        edit_limit=10;
                        edit_width=10;
                        value="";
                        alignment=centered;
                        }
                }
                }
               
                :toggle{
                label = "正交方式";
                key = "sel1";
                value=0;
                }
                spacer_1;       

ok_cancel;                               
        }

jiega

该程序的更新
http://www.xdcad.net/forum/showthread.php?s=&threadid=484906

另外"字符串插入"程序和"文字查找"程序,见
http://www.xdcad.net/forum/showthread.php?s=&threadid=491748