opendcl很好的，但要是程序调用的函数能定义为局部函数就好了

NetBee

opendcl很好的，但要是程序调用的函数能定义为局部函数就好了

试用了，它的调用函数全为全局函数，多来几个程序的话，很乱

5061220

可以定义为局部函数的，下面是改编的一个程序。

所有变量均为局部变量。

  ;********************************************* 方向复制
(defun c:fc (/ bflag      nvalue
      c:mfc_demomfc_obfc1_onclicked
      c:mfc_demomfc_obfc2_onclicked
      c:mfc_demomfc_pbfcpt1_onclicked
      c:mfc_demomfc_pbfcpt2_onclicked
      c:mfc_demomfc_oninitialize
      c:mfc_demomfc_okfc_onclicked
      c:mfc_demomfc_closefc_onclicked
      )
    (or loadruntime (load "_opendclutils.lsp") (exit))
    (loadruntime)

    (setq bflag t)
  ;optionbutton按钮控制必须有“nvalue”变量
    (defun c:mfc_demomfc_obfc1_onclicked (nvalue /)
 (dcl_control_setenabled mfc_demomfc_fcdis t))
   
    (defun c:mfc_demomfc_obfc2_onclicked (nvalue /)
 (dcl_control_setenabled mfc_demomfc_fcdis nil)
 (dcl_control_settext mfc_demomfc_fcdis ""))
   
  ;关闭函数
    (defun c:mfc_demomfc_closefc_onclicked (/)
 (setq bflag nil)
 (dcl_form_close mfc_demomfc))
   
  ;拾取点
    (defun c:mfc_demomfc_pbfcpt1_onclicked (/)
 (setq bflag t)
 (dcl_form_close mfc_demomfc)
 (setq fcpt1 (getpoint "\n 拾取基准参考点（间距起点）: "))
 (setq tfcpt1 (vl-princ-to-string fcpt1))
 )
   
    (defun c:mfc_demomfc_pbfcpt2_onclicked (/)
 (setq bflag t)
 (dcl_form_close mfc_demomfc)
 (setq fcpt2 (getpoint "\n 拾取方向参考点（间距终点）: "))
 (setq tfcpt2 (vl-princ-to-string fcpt2))
 )

  ;写入对应文本框
    (defun c:mfc_demomfc_oninitialize (/)
 (if tfcpt1  (dcl_control_settext mfc_demomfc_tbfcpt1 tfcpt1)   )
 (if tfcpt2  (dcl_control_settext mfc_demomfc_tbfcpt2 tfcpt2)   )
 )

  ;执行函数
    (defun c:mfc_demomfc_okfc_onclicked (/ os dis num n d ang dd a d0)
 (c:mfc_demomfc_closefc_onclicked)
 (setvar "cmdecho" 0)
 (setq os (getvar "osmode"))
 (setq dis (dcl_control_gettext mfc_demomfc_fcdis))
 (setq num (dcl_control_gettext mfc_demomfc_fcnum))
 (setq n (atoi num))
 (setq d (atof dis))
 (setq ang (angle fcpt1 fcpt2))
 (setq dd (distance fcpt1 fcpt2))
 (setq a (ssget))
 (terpri)
 (setq d0 0)
 (setvar "osmode" 0)
 (if (/= d 0)    (repeat n
    (setq d0 (+ d d0))
    (setq p0 (polar fcpt1 ang d0))
    (command "copy" a "" fcpt1 p0) )
     )
 (if (= d 0)    (repeat n
    (setq d0 (+ dd d0))
    (setq p0 (polar fcpt1 ang d0))
    (command "copy" a "" fcpt1 p0) )
     )
 (setvar "osmode" os)
 (princ)
 )

    (loadodclproj "c:/program files/chaiyu/T_Modify/mfc.odcl")
    (while bflag
 (setq bflag nil)
 (dcl_form_show mfc_demomfc))
    (princ)
    )

5061220

楼主可以去这看一下

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=77221