(XD::Layer:Get)增强的对话框图层选择函数

Lispboy · 发表于 2013-7-12 00:24:13

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 Lispboy 于 2018-5-25 15:29 编辑

搜狗截图20180525152813.png

;|
增强的对话框图层选择函数
参数：无
返回值：字符串
说明：选择的图层供后续的函数如SSGET等做过滤。
|;
(setq XD-DCL-GetLyr-Data
'("YWt6A8c9AAChV2PeBuKTJBUSaitqQKVoRMolVm5gVG9qbnvVE8kxNn4l6x4ldNKkHjPkCCWlrKzU"
"OyWXcc9BdPwozDiq1LpKpOa4eUAurWYThP3WLzwyuj5yQABund3kXGvVkoviRU1FDbEQyRJXU8UM"
"SQmQAg1hDcEFwA2YsMq3vFm+tq2U32Jg/1QGbizeZLWTbn1+OZ1/bGIG/DPo6j1UGv91kP001n5x"
"SLK8Vev2LV59zM8tWOArPlAgs7hNcdqd3lC6FwZLI+CbnOfC295vLc9RqxicqzSSO50qH0WDUnXR"
"6Z0ncCA3PeJcubW4QJcm6f8baKivMmKe2jeUF38WcEcH545IN/sAEPsudTO2kwgWOspzyjEf6Kes"
"ltwT+EbOW5MvjvGDbTAllflXNINS1QBv4BfPcAEB1K5AzpQbhT1ywbGOBXIV8NeYDsoMpMHe8MEm"
"X2WZxUWRoAflFQgV4eOJXCIRo49LZI9i1gkC75/5Z6C/zh6GJfjlZwDon1lm4LQonmEoodycev2M"
"7FTa4l27nDzHmt7+NuZnLCpnVmLpX9Ey6uxQpiLCkL9Vmway7OyI3opSvwTa3s0v0lBXPuwF1Ap3"
"ZE9rAccGKPBd2B3BajrrLNTHDBrEJH+aOHcIv7DBtvzLdwrAHXx6x3WcMyJ7nVOuQGb9PlPp653y"
"XLZ7YCZ3XbHYcvTff6gd0LvVy6bQYPFFzhPGPAuwus2nbLGfZDamUrvJY/kRvv4i8VZT1osdPo0l"
"uBgHP+jxzTxrS6n004TL+m3mm4ZEp+oN6o5ida0zy/NogO6OWCjB6p9zaDBYW2hOG2tMIrqOY3LV"
"dHwTZ50drbM/sjD0cvds0JqVQ1Ounh/SiEGcxr3ApMygyKQ7+ikkhnS8p7IRcUyCSB2906vebg5o"
"/2VoH9A/bIuGJXrJnM9kyiCVwMHPBq45nZIZnaB4MBtgSNWtnKfTAPaOIh0zs4iX8jl4ZaHY7Ef6"
"I6jEt4QyqIBpGJvbEkBIK1vz+dQMp4NBZStWXwqJTJ9aaHnYzkaPaNUB/Z9JZwAD6oYokeHx8JVm"
"oJjh4R32aq+2lMlMIryQyemfU3JZVQYAjgbUuS/JKhVA1ChxCiuGuqqQG52DmMn+8AOogpoEcc6H"
"gJQBfJcGd5WBxbvhcLAmRDYCXfF19wmc6iQOxAeObmDJnT3en0Jcz7OJG5rl1HJkra6sJ2S0oVtg"
"1cGl4YluusETgMJvKgHAYSqBInXfg5FS1oDJdri/gb5vtIEcZN9Q2rnbbAhUdOQwdNoAxJiMm22l"
"/SbUU6zC7wWhOgY57LqZmWOXAocZrIyZvVgSLZUJgrU4drl2aWYR8McJEcVqnLMQLp0zcHqnSyAk"
"jxj0W6Kv3PDtMkQjvGV8iOmHDJ82kQeWW1Ofk5ibBeKzuLVfrrhL5diTxWYFuhp2Ey2MfcUzBT/L"
"l0B2E63t3qQKWyJ65SC5iJjU822LI7ZTDDNSPfvMycr+ZJiYL+Z1QCyu7rkJ+y9ozOKqBfi616Jl"
"2NG98x5HEEkUmvz6ycnMh7thslH8u0Ahu0+J+sMlM88KWINc8qZmivOEB5Ul9BIN6/tVP4vN4053"
"zy2L3Ybz+MALUXabQUyM1YBN5YI5Y5+MKB9yADnT7VtwBnS7Ape4+bqm4UWpP94Bt19RvA0ZSgG3"
"eqshiPyUcRtupGEw/pRx1R+84UV3CVcRvt1BCxD6ftHnNSBtEuKBm035FBk0Am2pgCqEei9faVfz"
"UZyb3gz/kWFCGPqGaARTerruxnkOkQSyA9vm8hHejRbiaxLAyEYNYdYPmGAunfKid/j2TaH/ZBkM"
"H6Lhxd3B5y4Vo/7fglyes4PMITLiIdL+vhkVVFKhTmdAP+EFPIe6rd6EOnQ+JpGPof2UbQxJRsBA"
"nyJZgfXfcnSfbwKnVv1zhuzPc+Q8hLQsToAseISARGioaUQuVg+GNbxhgyuTZAfa6inqG4rdjASy"
"Z7ikR5qQZKEDbV6SqpMDMgas7Hvrn4nASqw1KSm3x235uQWhaLFwcPRZycRd6HGn3QcZ08q1daHi"
"bJOxkmyRwIQiOo2PYIEkkgYU+cpzn7fgrfta5IH12TGVREWC9xYUolyQUSFhz8IWoJFw428jeNk2"
"yW+zg5ahAfXxgIQ1ioIHWNzHLtyHgQSQ4kZPQmK/IgJcD59VDJC6/yyaDE/tsPcGOkBpTYfc+PXQ"
"SeHOFVEs7bu7Mu+3V9EWyw8428T1q0m4S12Kuv5/HMAAQBLqGbNMuVbLb9DJlpvZGYuMed1Cs45p"
"ODe9rgFtpAmat4ZlEznAaIrx35jwooZMZOZE8fZPmVY2zaGBL1pgZWiOq+7+XTiAAi6YZ+YjIXP0"
"rG093Iua7kYOFCYCQk5SBABg8FSAVTBkgv3Sf2Jgao/mqZ5EyoNGWsQOc8ImOG0BiVfyGCJ9mGRi"
"2EJeTdM/f9BrG5RJpw1h8TpCRHkCXOiG8Z55yngIoNN7KTt7CTS6meNf4bZAZ/pBGEWRfWMz3NXT"
"UpSGAfCCN32PSHNWwsOz3MXDJGIWU2vjM7svuYGqzrHBeFSRKK/D2XATkG955DW6gLh8n9Ow8USA"
"WBlN7cMFLpWjBa6Y1omwGEkMIVlE1Kn2QxvQ1pwx19OaGK+rkO/I2Kqjr1bP1wkRI8CWjtJsk6bQ"
"ywYPKowBDQHVlo9IN4Dos3Xas+U1KFfH3VJFlIaJCAX7Q5PRJVkTMAu6hzYR8UExiAK5RacHBdUp"
"V5VOTk5ehIWFg6I3Ze1DoY8wGh2wxcMa54qNxEtNOu2lW8eJCJP3RJDq9gFZhEQbNCrIa1FqMxVs"
"+7lrVTQj97bDXVTHLVyl5aeK/wiJHLfB00olBmU13OwFnmnuyx4AS67B/pJi31kDf0+VOFJjmSmI"
"j0zo67hh2IUYZps8w4Jx0mWO/Q=="
)
)
(defun XD::Layer:Get (/ lyrl lyr1 lyr2 $xdob_layer_hadlayerlist)
(defun c:LayerListForm_OnInitialize (/ a all b n pos)
(dcl_Control_SetValue SelAllCheck 0)
(setq all (XD::Layer:GetUnFrozen))
(setq all (vl-sort all '(lambda (a b) (< (ascii a) (ascii b)))))
(dcl_ListBox_Clear LayerList)
(dcl_ListBox_AddList LayerList all)
(if $xdob_layer_hadlayerlist
(progn (foreach n $xdob_layer_hadlayerlist
(setq pos (- (length (dcl_control_getlist LayerList))
(length (member n (dcl_control_getlist LayerList)))
)
)
(if (>= pos 0)
(dcl_ListBox_SelectItem LayerList pos t)
)
)
(dcl_Control_SetCaption
Get_Lyr_Nums
(itoa (length (dcl_ListBox_GetSelectedItems LayerList)))
)
)
)
(if (= (length (dcl_control_getlist LayerList))
(length (dcl_ListBox_GetSelectedItems LayerList))
)
(dcl_Control_SetValue SelAllCheck 1)
)
)
(defun c:LayerList_OnSelChanged (ItemIndexOrCount Value / len)
(if (= ItemIndexOrCount
(length (dcl_Control_GetList LayerList))
)
(dcl_Control_SetValue SelAllCheck 1)
(dcl_Control_SetValue SelAllCheck 0)
)
(dcl_Control_SetCaption
Get_Lyr_Nums
(itoa (length (dcl_ListBox_GetSelectedItems LayerList)))
)
(dcl_Control_SetValue UnSelCheck 0)
)
(defun c:SelAllCheck_OnClicked (Value /)
(if (= 1 value)
(dcl_ListBox_SelItemRange
LayerList
0
(1- (length (dcl_Control_GetList LayerList)))
T
)
(dcl_ListBox_SelItemRange
LayerList
0
(1- (length (dcl_Control_GetList LayerList)))
nil
)
)
(dcl_Control_SetCaption
Get_Lyr_Nums
(itoa (length (dcl_ListBox_GetSelectedItems LayerList)))
)
(dcl_Control_SetValue UnSelCheck 0)
)
(defun c:UnSelCheck_OnClicked (Value / n selindexlist)
(setq selIndexList (dcl_ListBox_GetSelectedNths LayerList))
(dcl_ListBox_SelItemRange
LayerList
0
(1- (length (dcl_Control_GetList LayerList)))
T
)
(foreach n selIndexList
(dcl_ListBox_SelectItem LayerList n nil)
)
(setq selIndexList (dcl_ListBox_GetSelectedNths LayerList))
(dcl_Control_SetCaption
Get_Lyr_Nums
(itoa (length (dcl_ListBox_GetSelectedItems LayerList)))
)
(cond ((= 0 (length selIndexList))
(dcl_Control_SetValue SelAllCheck 0)
)
((= (length (dcl_Control_GetList LayerList))
(length selIndexList)
)
(dcl_Control_SetValue SelAllCheck 0)
)
)
)
(defun c:PickSel_OnClicked (/)
(setq $xdob_layer_hadlayerlist (dcl_ListBox_GetSelectedItems LayerList))
(dcl_Control_SetValue UnSelCheck 0)
(dcl_form_close LayerListForm 5)
)
(defun c:CQuit_OnClicked (/)
(dcl_Form_Close LayerListForm 4)
)
(defun c:ok_OnClicked (/)
(if (> (dcl_ListBox_GetSelCount LayerList) 0)
(progn (dcl_Form_Close LayerListForm 3)
(setq lyrl (dcl_ListBox_GetSelectedItems LayerList))
)
(dcl_MessageBox "请选择图层。" "晓东温馨提示" 2 3)
)
)
(defun point_selection (/ e i lyr lyrl tf)
(setq lyrls "")
(if $xdob_layer_hadlayerlist
(progn (setq i 0)
(foreach n $xdob_layer_hadlayerlist
(if (= i 0)
(setq lyrls n)
(setq lyrls (strcat lyrls "," n))
)
(setq i (1+ i))
)
(xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrls))))
)
)
(setq doContinue T)
(setq tf t
i 0
)
(while (setq e (car (entsel "\n拾取实体确定图层<返回>:")))
(xdrx_setenttodb e)
(setq lyr (xdrx_getentdxf 8))
(if (not (member (strcase lyr) $xdob_layer_hadlayerlist))
(progn (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyr))))
(if (= i 0)
(setq lyrl lyr)
(setq lyrl (strcat lyrl "," lyr))
)
(setq i (1+ i))
)
)
)
(if lyrl
(xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrl))) t)
)
(if (/= "" lyrls)
(progn (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrls))) t)
(if lyrl
(strcat lyrls "," lyrl)
lyrls
)
)
(progn lyrl)
)
)
(xdrx_sysvar_push "osmode" "cmdecho")
(setvar "cmdecho" 0)
(setvar "osmode" 0)
(XD::Doc:AutoLoadOpenDCL)
(dcl_Project_Import XD-DCL-GetLyr-Data)
(setq doContinue T)
(while doContinue ; However, to avoid an endless loop, the condition for repeating the loop, must
; negate at first
; The condition will be "activated" again after dcl_form_show for some cases.
(setq doContinue nil) ; if the dialog get closed, the function returns a value
; This is 1 for OK (reserved value), 2 for ESC or Cancel (reserved value)
; or the value, which was given to dcl_form_close
(setq intResult (dcl_form_show LayerListForm))
; This is a modal form, so (dcl_Form_Show) does not return until
; the modal form is closed. In the meantime, the event handlers
; manage the form.
; Now the return value can be interpreted
(cond ; close-button
; Here something can be done with the selected points ans objects
((= intResult 1) (setq doContinue nil)) ; ESC key
((= intResult 2) (setq doContinue nil)) ; point selection
((= intResult 3) (setq doContinue nil))
((= intResult 4) (setq doContinue nil))
((= intResult 5)
(setq $xdob_layer_hadlayerlist (xdrx_string_split (point_selection) ","))
)
) ; cond
) ; while
(xdrx_end)
(xdrx_sysvar_pop)
(if lyrl
(progn (setq lyr1 (car lyrl)
lyr2 ""
)
(foreach n (cdr lyrl) (setq lyr2 (strcat lyr2 "," n)))
(setq lyrl (strcat lyr1 lyr2))
)
(setq lyrl "")
)
lyrl
)

;| 
增强的对话框图层选择函数 
参数：无 
返回值：字符串 
说明：选择的图层供后续的函数如SSGET等做过滤。 
|; 
(setq XD-DCL-GetLyr-Data 
       '("YWt6A8c9AAChV2PeBuKTJBUSaitqQKVoRMolVm5gVG9qbnvVE8kxNn4l6x4ldNKkHjPkCCWlrKzU" 
         "OyWXcc9BdPwozDiq1LpKpOa4eUAurWYThP3WLzwyuj5yQABund3kXGvVkoviRU1FDbEQyRJXU8UM" 
         "SQmQAg1hDcEFwA2YsMq3vFm+tq2U32Jg/1QGbizeZLWTbn1+OZ1/bGIG/DPo6j1UGv91kP001n5x" 
         "SLK8Vev2LV59zM8tWOArPlAgs7hNcdqd3lC6FwZLI+CbnOfC295vLc9RqxicqzSSO50qH0WDUnXR" 
         "6Z0ncCA3PeJcubW4QJcm6f8baKivMmKe2jeUF38WcEcH545IN/sAEPsudTO2kwgWOspzyjEf6Kes" 
         "ltwT+EbOW5MvjvGDbTAllflXNINS1QBv4BfPcAEB1K5AzpQbhT1ywbGOBXIV8NeYDsoMpMHe8MEm" 
         "X2WZxUWRoAflFQgV4eOJXCIRo49LZI9i1gkC75/5Z6C/zh6GJfjlZwDon1lm4LQonmEoodycev2M" 
         "7FTa4l27nDzHmt7+NuZnLCpnVmLpX9Ey6uxQpiLCkL9Vmway7OyI3opSvwTa3s0v0lBXPuwF1Ap3" 
         "ZE9rAccGKPBd2B3BajrrLNTHDBrEJH+aOHcIv7DBtvzLdwrAHXx6x3WcMyJ7nVOuQGb9PlPp653y" 
         "XLZ7YCZ3XbHYcvTff6gd0LvVy6bQYPFFzhPGPAuwus2nbLGfZDamUrvJY/kRvv4i8VZT1osdPo0l" 
         "uBgHP+jxzTxrS6n004TL+m3mm4ZEp+oN6o5ida0zy/NogO6OWCjB6p9zaDBYW2hOG2tMIrqOY3LV" 
         "dHwTZ50drbM/sjD0cvds0JqVQ1Ounh/SiEGcxr3ApMygyKQ7+ikkhnS8p7IRcUyCSB2906vebg5o" 
         "/2VoH9A/bIuGJXrJnM9kyiCVwMHPBq45nZIZnaB4MBtgSNWtnKfTAPaOIh0zs4iX8jl4ZaHY7Ef6" 
         "I6jEt4QyqIBpGJvbEkBIK1vz+dQMp4NBZStWXwqJTJ9aaHnYzkaPaNUB/Z9JZwAD6oYokeHx8JVm" 
         "oJjh4R32aq+2lMlMIryQyemfU3JZVQYAjgbUuS/JKhVA1ChxCiuGuqqQG52DmMn+8AOogpoEcc6H" 
         "gJQBfJcGd5WBxbvhcLAmRDYCXfF19wmc6iQOxAeObmDJnT3en0Jcz7OJG5rl1HJkra6sJ2S0oVtg" 
         "1cGl4YluusETgMJvKgHAYSqBInXfg5FS1oDJdri/gb5vtIEcZN9Q2rnbbAhUdOQwdNoAxJiMm22l" 
         "/SbUU6zC7wWhOgY57LqZmWOXAocZrIyZvVgSLZUJgrU4drl2aWYR8McJEcVqnLMQLp0zcHqnSyAk" 
         "jxj0W6Kv3PDtMkQjvGV8iOmHDJ82kQeWW1Ofk5ibBeKzuLVfrrhL5diTxWYFuhp2Ey2MfcUzBT/L" 
         "l0B2E63t3qQKWyJ65SC5iJjU822LI7ZTDDNSPfvMycr+ZJiYL+Z1QCyu7rkJ+y9ozOKqBfi616Jl" 
         "2NG98x5HEEkUmvz6ycnMh7thslH8u0Ahu0+J+sMlM88KWINc8qZmivOEB5Ul9BIN6/tVP4vN4053" 
         "zy2L3Ybz+MALUXabQUyM1YBN5YI5Y5+MKB9yADnT7VtwBnS7Ape4+bqm4UWpP94Bt19RvA0ZSgG3" 
         "eqshiPyUcRtupGEw/pRx1R+84UV3CVcRvt1BCxD6ftHnNSBtEuKBm035FBk0Am2pgCqEei9faVfz" 
         "UZyb3gz/kWFCGPqGaARTerruxnkOkQSyA9vm8hHejRbiaxLAyEYNYdYPmGAunfKid/j2TaH/ZBkM" 
         "H6Lhxd3B5y4Vo/7fglyes4PMITLiIdL+vhkVVFKhTmdAP+EFPIe6rd6EOnQ+JpGPof2UbQxJRsBA" 
         "nyJZgfXfcnSfbwKnVv1zhuzPc+Q8hLQsToAseISARGioaUQuVg+GNbxhgyuTZAfa6inqG4rdjASy" 
         "Z7ikR5qQZKEDbV6SqpMDMgas7Hvrn4nASqw1KSm3x235uQWhaLFwcPRZycRd6HGn3QcZ08q1daHi" 
         "bJOxkmyRwIQiOo2PYIEkkgYU+cpzn7fgrfta5IH12TGVREWC9xYUolyQUSFhz8IWoJFw428jeNk2" 
         "yW+zg5ahAfXxgIQ1ioIHWNzHLtyHgQSQ4kZPQmK/IgJcD59VDJC6/yyaDE/tsPcGOkBpTYfc+PXQ" 
         "SeHOFVEs7bu7Mu+3V9EWyw8428T1q0m4S12Kuv5/HMAAQBLqGbNMuVbLb9DJlpvZGYuMed1Cs45p" 
         "ODe9rgFtpAmat4ZlEznAaIrx35jwooZMZOZE8fZPmVY2zaGBL1pgZWiOq+7+XTiAAi6YZ+YjIXP0" 
         "rG093Iua7kYOFCYCQk5SBABg8FSAVTBkgv3Sf2Jgao/mqZ5EyoNGWsQOc8ImOG0BiVfyGCJ9mGRi" 
         "2EJeTdM/f9BrG5RJpw1h8TpCRHkCXOiG8Z55yngIoNN7KTt7CTS6meNf4bZAZ/pBGEWRfWMz3NXT" 
         "UpSGAfCCN32PSHNWwsOz3MXDJGIWU2vjM7svuYGqzrHBeFSRKK/D2XATkG955DW6gLh8n9Ow8USA" 
         "WBlN7cMFLpWjBa6Y1omwGEkMIVlE1Kn2QxvQ1pwx19OaGK+rkO/I2Kqjr1bP1wkRI8CWjtJsk6bQ" 
         "ywYPKowBDQHVlo9IN4Dos3Xas+U1KFfH3VJFlIaJCAX7Q5PRJVkTMAu6hzYR8UExiAK5RacHBdUp" 
         "V5VOTk5ehIWFg6I3Ze1DoY8wGh2wxcMa54qNxEtNOu2lW8eJCJP3RJDq9gFZhEQbNCrIa1FqMxVs" 
         "+7lrVTQj97bDXVTHLVyl5aeK/wiJHLfB00olBmU13OwFnmnuyx4AS67B/pJi31kDf0+VOFJjmSmI" 
         "j0zo67hh2IUYZps8w4Jx0mWO/Q==" 
        ) 
) 
(defun XD::Layer:Get (/ lyrl lyr1 lyr2 $xdob_layer_hadlayerlist) 
  (defun c:LayerListForm_OnInitialize (/ a all b n pos) 
    (dcl_Control_SetValue SelAllCheck 0) 
    (setq all (XD::Layer:GetUnFrozen)) 
    (setq all (vl-sort all '(lambda (a b) (< (ascii a) (ascii b))))) 
    (dcl_ListBox_Clear LayerList) 
    (dcl_ListBox_AddList LayerList all) 
    (if $xdob_layer_hadlayerlist 
      (progn (foreach n $xdob_layer_hadlayerlist 
               (setq pos (- (length (dcl_control_getlist LayerList)) 
                            (length (member n (dcl_control_getlist LayerList))) 
                         ) 
               ) 
               (if (>= pos 0) 
                 (dcl_ListBox_SelectItem LayerList pos t) 
               ) 
             ) 
             (dcl_Control_SetCaption 
               Get_Lyr_Nums 
               (itoa (length (dcl_ListBox_GetSelectedItems LayerList))) 
             ) 
      ) 
    ) 
    (if (= (length (dcl_control_getlist LayerList)) 
           (length (dcl_ListBox_GetSelectedItems LayerList)) 
        ) 
      (dcl_Control_SetValue SelAllCheck 1) 
    ) 
  ) 
  (defun c:LayerList_OnSelChanged (ItemIndexOrCount Value / len) 
    (if (= ItemIndexOrCount 
           (length (dcl_Control_GetList LayerList)) 
        ) 
      (dcl_Control_SetValue SelAllCheck 1) 
      (dcl_Control_SetValue SelAllCheck 0) 
    ) 
    (dcl_Control_SetCaption 
      Get_Lyr_Nums 
      (itoa (length (dcl_ListBox_GetSelectedItems LayerList))) 
    ) 
    (dcl_Control_SetValue UnSelCheck 0) 
  ) 
  (defun c:SelAllCheck_OnClicked (Value /) 
    (if (= 1 value) 
      (dcl_ListBox_SelItemRange 
        LayerList 
        0 
        (1- (length (dcl_Control_GetList LayerList))) 
        T 
      ) 
      (dcl_ListBox_SelItemRange 
        LayerList 
        0 
        (1- (length (dcl_Control_GetList LayerList))) 
        nil 
      ) 
    ) 
    (dcl_Control_SetCaption 
      Get_Lyr_Nums 
      (itoa (length (dcl_ListBox_GetSelectedItems LayerList))) 
    ) 
    (dcl_Control_SetValue UnSelCheck 0) 
  ) 
  (defun c:UnSelCheck_OnClicked (Value / n selindexlist) 
    (setq selIndexList (dcl_ListBox_GetSelectedNths LayerList)) 
    (dcl_ListBox_SelItemRange 
      LayerList 
      0 
      (1- (length (dcl_Control_GetList LayerList))) 
      T 
    ) 
    (foreach n selIndexList 
      (dcl_ListBox_SelectItem LayerList n nil) 
    ) 
    (setq selIndexList (dcl_ListBox_GetSelectedNths LayerList)) 
    (dcl_Control_SetCaption 
      Get_Lyr_Nums 
      (itoa (length (dcl_ListBox_GetSelectedItems LayerList))) 
    ) 
    (cond ((= 0 (length selIndexList)) 
           (dcl_Control_SetValue SelAllCheck 0) 
          ) 
          ((= (length (dcl_Control_GetList LayerList)) 
              (length selIndexList) 
           ) 
           (dcl_Control_SetValue SelAllCheck 0) 
          ) 
    ) 
  ) 
  (defun c:PickSel_OnClicked (/) 
    (setq $xdob_layer_hadlayerlist (dcl_ListBox_GetSelectedItems LayerList)) 
    (dcl_Control_SetValue UnSelCheck 0) 
    (dcl_form_close LayerListForm 5) 
  ) 
  (defun c:CQuit_OnClicked (/) 
    (dcl_Form_Close LayerListForm 4) 
  ) 
  (defun c:ok_OnClicked (/) 
    (if (> (dcl_ListBox_GetSelCount LayerList) 0) 
      (progn (dcl_Form_Close LayerListForm 3) 
             (setq lyrl (dcl_ListBox_GetSelectedItems LayerList)) 
      ) 
      (dcl_MessageBox "请选择图层。" "晓东温馨提示" 2 3) 
    ) 
  ) 
  (defun point_selection (/ e i lyr lyrl tf) 
    (setq lyrls "") 
    (if $xdob_layer_hadlayerlist 
      (progn (setq i 0) 
             (foreach n $xdob_layer_hadlayerlist 
               (if (= i 0) 
                 (setq lyrls n) 
                 (setq lyrls (strcat lyrls "," n)) 
               ) 
               (setq i (1+ i)) 
             ) 
             (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrls)))) 
      ) 
    ) 
    (setq doContinue T) 
    (setq tf t 
          i  0 
    ) 
    (while (setq e (car (entsel "\n拾取实体确定图层<返回>:"))) 
      (xdrx_setenttodb e) 
      (setq lyr (xdrx_getentdxf 8)) 
      (if (not (member (strcase lyr) $xdob_layer_hadlayerlist)) 
        (progn (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyr)))) 
               (if (= i 0) 
                 (setq lyrl lyr) 
                 (setq lyrl (strcat lyrl "," lyr)) 
               ) 
               (setq i (1+ i)) 
        ) 
      ) 
    ) 
    (if lyrl 
      (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrl))) t) 
    ) 
    (if (/= "" lyrls) 
      (progn (xdrx_pickset_redraw (ssget "x" (list (cons 8 lyrls))) t) 
             (if lyrl 
               (strcat lyrls "," lyrl) 
               lyrls 
             ) 
      ) 
      (progn lyrl) 
    ) 
  ) 
  (xdrx_sysvar_push "osmode" "cmdecho") 
  (setvar "cmdecho" 0) 
  (setvar "osmode" 0) 
  (XD::Doc:AutoLoadOpenDCL) 
  (dcl_Project_Import XD-DCL-GetLyr-Data) 
  (setq doContinue T) 
  (while doContinue                     ; However, to avoid an endless loop, the condition for repeating the loop, must 
                                        ; negate at first 
                                        ; The condition will be "activated" again after dcl_form_show for some cases. 
    (setq doContinue nil)               ; if the dialog get closed, the function returns a value 
                                        ; This is 1 for OK (reserved value), 2 for ESC or Cancel (reserved value) 
                                        ; or the value, which was given to dcl_form_close 
    (setq intResult (dcl_form_show LayerListForm)) 
                                        ; This is a modal form, so (dcl_Form_Show) does not return until 
                                        ; the modal form is closed. In the meantime, the event handlers 
                                        ; manage the form. 
                                        ; Now the return value can be interpreted 
    (cond                               ; close-button 
                                        ; Here something can be done with the selected points ans objects 
      ((= intResult 1) (setq doContinue nil)) ; ESC key 
      ((= intResult 2) (setq doContinue nil)) ; point selection 
      ((= intResult 3) (setq doContinue nil)) 
      ((= intResult 4) (setq doContinue nil)) 
      ((= intResult 5) 
       (setq $xdob_layer_hadlayerlist (xdrx_string_split (point_selection) ",")) 
      ) 
    )                                   ; cond 
  )                                     ; while 
  (xdrx_end) 
  (xdrx_sysvar_pop) 
  (if lyrl 
    (progn (setq lyr1 (car lyrl) 
                 lyr2 "" 
           ) 
           (foreach n (cdr lyrl) (setq lyr2 (strcat lyr2 "," n))) 
           (setq lyrl (strcat lyr1 lyr2)) 
    ) 
    (setq lyrl "") 
  ) 
  lyrl 
)

snsj · 发表于 2013-7-12 00:32:07

越来越强大了

Free-Lancer · 发表于 2013-7-12 01:17:44

看到几个$函数，在哪里？来自: Android客户端

XDSoft · 发表于 2013-7-12 02:58:21

Free-Lancer 发表于 2013-7-12 01:17
看到几个$函数，在哪里？

那几个$不是函数，是变量。

cooolsee · 发表于 2014-5-8 22:30:08

看起来很费劲的一对代码

dyjwyqz5221 · 发表于 2018-5-24 15:16:54

只拾取一个图层时，显示未选择图层，版主是否看看哪里的问题，两个及两个以上图层就没问题？

liuyj · 发表于 2018-5-24 15:43:54

本帖最后由 newer 于 2018-5-24 15:55 编辑

把(= intResult 5)部分的内容改为

(setq hadlayerlist (point_selection))
(if (listp (xdrx_string_tok hadlayerlist ","))
(setq $xdob_layer_hadlayerlist
(xdrx_string_tok hadlayerlist ",")
)
(setq $xdob_layer_hadlayerlist (list hadlayerlist))
)
)

dyjwyqz5221 · 发表于 2018-5-25 14:20:20

谢谢liuyi，

Lispboy · 发表于 2018-5-25 15:00:50

dyjwyqz5221 发表于 2018-5-25 14:20
谢谢liuyi，

把
((= intResult 5)
(setq $xdob_layer_hadlayerlist (xdrx_string_tok (point_selection) ","))
)

改成：

((= intResult 5)
(setq $xdob_layer_hadlayerlist (xdrx_string_split (point_selection) ","))
)

就行。

Lispboy · 发表于 2018-5-25 15:45:54

dyjwyqz5221 发表于 2018-5-25 14:20
谢谢liuyi，

修改了代码，外观也改了点

登录/注册后可看大图

liuyj · 发表于 2018-5-25 16:26:43

右边和下边的空隙太宽了，开始我还以为是给滚动条留的地方

liuyj · 发表于 2018-5-25 16:35:50

其实原来的样子挺好的，就是不知道为什么不点全选和反选时，未选中的图层背景都是黑色的，看不到图层名

账号		自动登录	找回密码
密码			立即注册

[图层] (XD::Layer:Get)增强的对话框图层选择函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

评分