动态块参数修改工具箱

brbright

动态块参数修改工具箱第一版。
欢迎下载。
谢谢。

lzx0

守仁格竹GM 发表于 2015-1-9 08:08
使用eval 哪种方法，应该可以节省很多代码，楼主可以研究下

好东西要分享

evayleung

很强大，很强大，画这个梁剖面用这个工具最好了，改几个数字就行。

依然小小鸟

可以X Y两个方向 分别缩放吗 缩放系数还不一样

brbright

下面是Lsp源码：

;;;;;程序目录+++++++++
(setq location_dyn_1
       "D:/ShanYongLiang/AutoLISP/[wd].V20150106/SylDynDcl.DCL"
)
;;;;请修改上面的DCL对话框路径

;;;---------主程序：---------
(vl-load-com)
(defun c:wd ()
  ;;调用对话框驱动
  (dyn_dcl_load)
  (prin1)
)

;;;;###################通用函数#######################
;;;;###################通用函数#######################
;;;---------通用函数1：设置动态块[特定]属性(Lee-Mac提供)---------
(defun lm-setdynpropvalue (blk prp val)
  (setq prp (strcase prp))
  (vl-some
    '(lambda (x)
       (if (= prp (strcase (vla-get-propertyname x)))
         (progn
           (vla-put-value
             x
             (vlax-make-variant
               val
               (vlax-variant-type (vla-get-value x))
             )
           )
           (cond (val)
                 (t)
           )
         )
       )
     )
    (vlax-invoke blk 'getdynamicblockproperties)
  )
)
;;;---------通用函数2：设置[data_dynblk]的动态块[特定]属性---------
(defun xyl-setentdynpropvalue (par_prp par_val)
  (lm-setdynpropvalue
    data_dynblk
    par_prp
    par_val
  )
)
;;;---------通用函数3：设置dcl控件值，若无则设默认值---------
(defun xyl-dcl-default-value (par_dcl_key par_default_value par_value)
  (if (= par_value nil)
    (setq par_value par_default_value)
  )
  (set_tile par_dcl_key par_value)
)
;;;;###################应用程序#######################
;;;;###################应用程序#######################
;;;---------应用程序999：设置[最近生成]的动态块[特定]属性---------
(defun xyls-dynbox-1 ()
  (setvar "cmdecho" 0)
  ;;取得动态块object
  (setq data_dynblk (vlax-ename->vla-object (car (entsel))))
  ;;下面设置动态块参数
  (xyl-setentdynpropvalue
    data_dynbox1_selector_1
    (atof data_dynbox1_data_1)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_2
    (atof data_dynbox1_data_2)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_3
    (atof data_dynbox1_data_3)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_4
    (atof data_dynbox1_data_4)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_5
    (atof data_dynbox1_data_5)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_6
    (atof data_dynbox1_data_6)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_7
    (atof data_dynbox1_data_7)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_8
    (atof data_dynbox1_data_8)
  )
  (xyl-setentdynpropvalue
    data_dynbox1_selector_9
    (atof data_dynbox1_data_9)
  )
)
;;;---------应用程序1：更新参数话框中edit_box的输入值---------
(defun syls-savedistance (par_dynbox_int)
  (setvar "cmdecho" 0)
  ;;在屏幕上选择两点
  (setq point_1 (getpoint "\nPoint 1 :"))
  (setq point_2 (getpoint point_1 "\nPoint 2 :"))
  (grdraw point_1 point_2 1 1)
  ;;计算两点间的距离
  (setq par_dist_1 (distance point_1 point_2))
  ;;以下更新对话框中edit_box的输入值
  (cond        ((= par_dynbox_int 1)
         (setq data_dynbox1_data_1 (rtos par_dist_1))
        )
        ((= par_dynbox_int 2)
         (setq data_dynbox1_data_2 (rtos par_dist_1))
        )
        ((= par_dynbox_int 3)
         (setq data_dynbox1_data_3 (rtos par_dist_1))
        )
        ((= par_dynbox_int 4)
         (setq data_dynbox1_data_4 (rtos par_dist_1))
        )
        ((= par_dynbox_int 5)
         (setq data_dynbox1_data_5 (rtos par_dist_1))
        )
        ((= par_dynbox_int 6)
         (setq data_dynbox1_data_6 (rtos par_dist_1))
        )
        ((= par_dynbox_int 7)
         (setq data_dynbox1_data_7 (rtos par_dist_1))
        )
        ((= par_dynbox_int 8)
         (setq data_dynbox1_data_8 (rtos par_dist_1))
        )
        ((= par_dynbox_int 9)
         (setq data_dynbox1_data_9 (rtos par_dist_1))
        )
        (t (print "No par_dynbox_int"))
  )
)
;;;;###################DCL对话框驱动程序#######################
;;;;###################DCL对话框驱动程序#######################

;;;---------DCL对话框驱动1：加载对话框---------
(defun dyn_dcl_load ()
  ;;加载对话框,location_dyn_1为文件目录
  (setq        syldata_dcl_id
         (load_dialog location_dyn_1)
  )
  ;;启动对画框
  (new_dialog "syl_dyn_dia" syldata_dcl_id)
  ;;对画框载入值
  (syls-setdclvalue)
  ;;向button按钮添加动作
  (action_tile
    "dcl_dynbox1_button_1"
    "(done_dialog 1)"
  )
  (action_tile
    "dcl_dynbox1_button_2"
    "(done_dialog 2)"
  )
  (action_tile
    "dcl_dynbox1_button_3"
    "(done_dialog 3)"
  )
  (action_tile
    "dcl_dynbox1_button_4"
    "(done_dialog 4)"
  )
  (action_tile
    "dcl_dynbox1_button_5"
    "(done_dialog 5)"
  )
  (action_tile
    "dcl_dynbox1_button_6"
    "(done_dialog 6)"
  )
  (action_tile
    "dcl_dynbox1_button_7"
    "(done_dialog 7)"
  )
  (action_tile
    "dcl_dynbox1_button_8"
    "(done_dialog 8)"
  )
  (action_tile
    "dcl_dynbox1_button_9"
    "(done_dialog 9)"
  )
  ;;button draw1动作
  (action_tile
    "dcl_dynbox1_button_draw"
    "(syls-savedclvalue)(done_dialog 999)"
  )
  ;;调用程序
  (setq dd (start_dialog))
  ;;根据按钮调用各种子程序
  (cond        ((= dd 999) (xyls-dynbox-1))
        ((= dd 1) (syls-savedistance 1))
        ((= dd 2) (syls-savedistance 2))
        ((= dd 3) (syls-savedistance 3))
        ((= dd 4) (syls-savedistance 4))
        ((= dd 5) (syls-savedistance 5))
        ((= dd 6) (syls-savedistance 6))
        ((= dd 7) (syls-savedistance 7))
        ((= dd 8) (syls-savedistance 8))
        ((= dd 9) (syls-savedistance 9))
        (t (print "未选择操作"))
  )
)
;;;---------DCL对话框驱动2：设置对话框中的值---------
(defun syls-setdclvalue        ()
  ;;edit_box selector值
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_1"
    "NoDefault"
    data_dynbox1_selector_1
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_2"
    "NoDefault"
    data_dynbox1_selector_2
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_3"
    "NoDefault"
    data_dynbox1_selector_3
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_4"
    "NoDefault"
    data_dynbox1_selector_4
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_5"
    "NoDefault"
    data_dynbox1_selector_5
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_6"
    "NoDefault"
    data_dynbox1_selector_6
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_7"
    "NoDefault"
    data_dynbox1_selector_7
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_8"
    "NoDefault"
    data_dynbox1_selector_8
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_selector_9"
    "NoDefault"
    data_dynbox1_selector_9
  )
  ;;edit_box data值
  (xyl-dcl-default-value
    "dcl_dynbox1_data_1"
    "NoDefault"
    data_dynbox1_data_1
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_2"
    "NoDefault"
    data_dynbox1_data_2
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_3"
    "NoDefault"
    data_dynbox1_data_3
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_4"
    "NoDefault"
    data_dynbox1_data_4
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_5"
    "NoDefault"
    data_dynbox1_data_5
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_6"
    "NoDefault"
    data_dynbox1_data_6
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_7"
    "NoDefault"
    data_dynbox1_data_7
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_8"
    "NoDefault"
    data_dynbox1_data_8
  )
  (xyl-dcl-default-value
    "dcl_dynbox1_data_9"
    "NoDefault"
    data_dynbox1_data_9
  )
)
;;;---------DCL对话框驱动3：保存对话框中的值---------
(defun syls-savedclvalue ()
  (setq data_dynbox1_selector_1 (get_tile "dcl_dynbox1_selector_1"))
  (setq data_dynbox1_selector_2 (get_tile "dcl_dynbox1_selector_2"))
  (setq data_dynbox1_selector_3 (get_tile "dcl_dynbox1_selector_3"))
  (setq data_dynbox1_selector_4 (get_tile "dcl_dynbox1_selector_4"))
  (setq data_dynbox1_selector_5 (get_tile "dcl_dynbox1_selector_5"))
  (setq data_dynbox1_selector_6 (get_tile "dcl_dynbox1_selector_6"))
  (setq data_dynbox1_selector_7 (get_tile "dcl_dynbox1_selector_7"))
  (setq data_dynbox1_selector_8 (get_tile "dcl_dynbox1_selector_8"))
  (setq data_dynbox1_selector_9 (get_tile "dcl_dynbox1_selector_9"))

  (setq data_dynbox1_data_1 (get_tile "dcl_dynbox1_data_1"))
  (setq data_dynbox1_data_2 (get_tile "dcl_dynbox1_data_2"))
  (setq data_dynbox1_data_3 (get_tile "dcl_dynbox1_data_3"))
  (setq data_dynbox1_data_4 (get_tile "dcl_dynbox1_data_4"))
  (setq data_dynbox1_data_5 (get_tile "dcl_dynbox1_data_5"))
  (setq data_dynbox1_data_6 (get_tile "dcl_dynbox1_data_6"))
  (setq data_dynbox1_data_7 (get_tile "dcl_dynbox1_data_7"))
  (setq data_dynbox1_data_8 (get_tile "dcl_dynbox1_data_8"))
  (setq data_dynbox1_data_9 (get_tile "dcl_dynbox1_data_9"))
)

brbright

然后这里是相应的DCL对话框文件：

syl_dyn_dia:dialog{
label="WD动态块工具箱  Version:V20140106";
:boxed_row{
:boxed_column{
label="Selector";
:edit_box{label="Selector 1" ;key="dcl_dynbox1_selector_1";}
:edit_box{label="Selector 2" ;key="dcl_dynbox1_selector_2";}
:edit_box{label="Selector 3" ;key="dcl_dynbox1_selector_3";}
:edit_box{label="Selector 4" ;key="dcl_dynbox1_selector_4";}
:edit_box{label="Selector 5" ;key="dcl_dynbox1_selector_5";}
:edit_box{label="Selector 6" ;key="dcl_dynbox1_selector_6";}
:edit_box{label="Selector 7" ;key="dcl_dynbox1_selector_7";}
:edit_box{label="Selector 8" ;key="dcl_dynbox1_selector_8";}
:edit_box{label="Selector 9" ;key="dcl_dynbox1_selector_9";}
}
:boxed_column{
label="Data";
:edit_box{label="Data 1" ;key="dcl_dynbox1_data_1";}
:edit_box{label="Data 2" ;key="dcl_dynbox1_data_2";}
:edit_box{label="Data 3" ;key="dcl_dynbox1_data_3";}
:edit_box{label="Data 4" ;key="dcl_dynbox1_data_4";}
:edit_box{label="Data 5" ;key="dcl_dynbox1_data_5";}
:edit_box{label="Data 6" ;key="dcl_dynbox1_data_6";}
:edit_box{label="Data 7" ;key="dcl_dynbox1_data_7";}
:edit_box{label="Data 8" ;key="dcl_dynbox1_data_8";}
:edit_box{label="Data 9" ;key="dcl_dynbox1_data_9";}
}
:boxed_column{
label="Get";
:button{label="Get 1";key="dcl_dynbox1_button_1";}
:button{label="Get 2";key="dcl_dynbox1_button_2";}
:button{label="Get 3";key="dcl_dynbox1_button_3";}
:button{label="Get 4";key="dcl_dynbox1_button_4";}
:button{label="Get 5";key="dcl_dynbox1_button_5";}
:button{label="Get 6";key="dcl_dynbox1_button_6";}
:button{label="Get 7";key="dcl_dynbox1_button_7";}
:button{label="Get 8";key="dcl_dynbox1_button_8";}
:button{label="Get 9";key="dcl_dynbox1_button_9";}
}
}
:boxed_row{
label="Action";
cancel_button;
:button{label="Draw";key="dcl_dynbox1_button_draw";}
}
}

lostbalance

竟然是动态块的程序，好难得见到啊，顶一下

鱼与熊掌

很多论坛里求助的人都没你的水平.

gwpgc

谢谢分享，先试一下

aihuyujian

必须支持一下，难得见好东西，非常感谢，明天电脑下下来看看，先占个位置混个脸熟

tianyi1230

很少见的程序！

lucas_3333

感谢楼主分享！ 我想楼主是不是应该把演示的DWG文档也传上来？

守仁格竹GM

使用eval 哪种方法，应该可以节省很多代码，楼主可以研究下