批量重设多段线的起始点和时针方向

Lispboy · 发表于 2018-10-18 23:45:18

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

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

×

本帖最后由 Lispboy 于 2018-10-18 23:46 编辑

(defun c:xdtb_plresetvtx (/ ss e pt inx)
(setq xd-odcl-polyline-reset-vertex-data
'("YWt6A8IWAABjIKtPBuKbKTcxaj9mA/1O6kx0ZGmc7G4/uzptunNCZt34Zn**Tr2unq4D31/bw+K"
"3qBaj15YuG6dv/VJqbpbBK66/bW/umGecU4vqu15abjRFOSX0Emmrf1fNJI3K6nl1IQUh6CF1MRa"
"R+L67fSgIgQEHxCN/YgZGYR4YQnVmqkGgZvbdn8GJXYy78kQKC/zKxbryiEAK/Yfx8IpdSBf2yss"
"1DgiNNOMEWJLLNS7NFfT74x/V6vccxVbq9r4MxT1FZrhZJcpVcOk2rMMtyk14YO4HOvea7gc8y3U"
"PMtnV1DdlQfK5wDTLvaWp/SvWi50azxg4jn4V9Y9aQQOKjLWKeZPLJ1KL0XvcbHdsOTr5ZnDZiqp"
"bggeNrEig1qiOQb4pYHEyInwlDFsAJrISZ1BXoLujgO8obcg/A5GGp1hkATLXwtg+5ezrJVTyUjR"
"7raPYnvgsC700sHIBFE2ZiEI9X1EDjSsHwpk6Io2ACIs0eqFmqNd20Zs/HBGsCzrkES73/aWD/Vy"
"4rlgcKk36SiXaoHz8Y36XF3I3GDFRPtTLQdzr7DNFHSTL9mrWKz+I1btCjZ4ku4hZ0g1AG6UNsQh"
"FAnEdmEz8WOE1InE45RFdo0QBcZL3o9SJDXd+WUsLEUiotGVaS+Fk1BgqgZlD9XgDn2f0/pvzImz"
"GH2qbKQp8fFt7FztWuUQnkyID68QPe4gErp3twX7WONscCq63IW8Zqhfdpfw9+u9LFQ5KhRJ5yhP"
"yuWe3XT2qgk2LMl2oVgC7U7F76OySh7kTvPmGGkWwt+KsNuOzqWgEoVZlIFPY3wsxvyEAQiZHZT9"
"VTJhYNJOcgKl35AsqsM5BtJ0ilbaKonFPAhC9Md/JU9PpvRXqYZ9T6bd3k3Oa8pundDep8cupTET"
"ZZ7W07q+HhS1V8hQONiZUZHVQu9fUCW+Gz97olscYyvCp+a7HBiPzMYnsm2eEmZtjUf2zmzMe29w"
"RNJicFyn/PA5FxPO68hgndDK5z9H5isbpDW7eISjJdQNr6hoGhSVDwKEkPe+szimIkqJbHFpsb/w"
"vEQ+g7WJ6BA374fsM03OTF3sONs30a45Oa4EB2Fp6qOlgmvs4aCvKgPqCMqwx2VFmBqeN9l5i/ni"
"UPt5CjcTD6VmZVEXadiA3e+Q90WxX6Og+SMrZluMk98Ls1yISqSgivX6G8SA+/WzaS13yxFfQjKN"
"JzqIyG2Fgeqzy44djcJe71NYgQnnTYva3xKiKX3k/29js9lkxupLTgftX/dIyS+yWHyiWuaBYMDl"
"9h45wYLJaZWFdR0piRgOpsAj6nnDI7qsbWCL8E9/6++TMB6UQzSGfAFbZpuCu0X/gCCKVNlsnQ5w"
"UtjWFVUXMBAyjC0ubeItWpxSWLZX7MX0AjBvzQHgLVpBSw7GZ0bG2se3mkhQEGe/u1MIA3RpyYJx"
"WfCIIlBZsOYKSM8x4qweCRfpnqfq3OEhiVDKpw=="
)
)
(defun c:xd-polyline-reset-check#OnClicked (Value /)
(if (= value 1)
(dcl-Control-SetEnabled xd-polyline-reset-option nil)
(dcl-Control-SetEnabled xd-polyline-reset-option t)
)
)
(defun c:xd-polyline-reset-quit#OnClicked (/)
(dcl-MessageBox
"To Do: code must be added to event handler\r\nc:xd-polyline-reset-quit#OnClicked"
"To do"
)
)
(defun _reset (e pt)
(XD::Polyline:ResetSTartPoint e pt)
(if (xdrx_curve_direction e)
(progn (if (= clockwise 0)
(xdrx_curve_reverse e)
)
)
(progn (if (= clockwise 1)
(xdrx_curve_reverse e)
)
)
)
)
(defun c:xd-polyline-reset-quit#OnClicked (/)
(dcl-form-close xd-polyline-reset-vertex-form)
(princ)
)
(defun c:xd-polyline-reset-ok#OnClicked (/)
(setq clockwise (dcl-Control-GetCurrentSelection
xd-polyline-reset-clockwise
)
)
(setq check (dcl-Control-GetValue xd-polyline-reset-check))
(setq
pos (dcl-Control-GetCurrentSelection xd-polyline-reset-option)
)
(dcl-form-close xd-polyline-reset-vertex-form)
(xdrx_begin)
(if (= check 1)
(progn
(if (setq e (xdrx_entsel
"\n拾取要处理的封闭多段线(靠近设置点)<退出>:"
'((0 . "*polyline") (-4 . "&=") (70 . 1))
)
)
(progn (setq pt (cadr e)
e (car e)
inx (xdrx_getpropertyvalue e "nearindex" pt)
pt (xdrx_polyline_getpointat e inx)
)
(_reset e pt)
(xdrx_prompt
"\n修改了一条多段线顶点，时针方向改为："
(if (= clockwise 0)
"*顺时针*"
"*逆时针*"
)
)
)
)
)
(progn
(if (and (xdrx_initssget "\n选择要处理的多段线<退出>:")
(setq ss
(xdrx_ssget '((0 . "*polyline") (-4 . "&=") (70 . 1)))
)
)
(progn
(mapcar '(lambda (x)
(setq pts (xdrx_getpropertyvalue x "vertices"))
(cond ((= pos 0)
(setq pt (xd::pnts:extremum pts '> '> t))
)
((= pos 1)
(setq pt (xd::pnts:extremum pts '< '> t))
)
((= pos 2)
(setq pt (xd::pnts:extremum pts '> '< t))
)
((= pos 3)
(setq pt (xd::pnts:extremum pts '< '< t))
)
)
(_reset x pt)
)
(xdrx_pickset->ents ss)
)
(xdrx_prompt
"\n修改了"
(sslength ss)
"条多段线顶点，时针方向改为：*"
(if (= clockwise 0)
"顺"
"逆"
)
"时针*"
)
)
)
)
)
(xdrx_end)
(princ)
)
(dcl-project-import xd-odcl-polyline-reset-vertex-data)
(dcl-form-show xd-polyline-reset-vertex-form)
(princ)
)

(defun c:xdtb_plresetvtx (/ ss e pt inx) 
  (setq        xd-odcl-polyline-reset-vertex-data 
         '("YWt6A8IWAABjIKtPBuKbKTcxaj9mA/1O6kx0ZGmc7G4/uzptunNCZt34Zn**Tr2unq4D31/bw+K" 
           "3qBaj15YuG6dv/VJqbpbBK66/bW/umGecU4vqu15abjRFOSX0Emmrf1fNJI3K6nl1IQUh6CF1MRa" 
           "R+L67fSgIgQEHxCN/YgZGYR4YQnVmqkGgZvbdn8GJXYy78kQKC/zKxbryiEAK/Yfx8IpdSBf2yss" 
           "1DgiNNOMEWJLLNS7NFfT74x/V6vccxVbq9r4MxT1FZrhZJcpVcOk2rMMtyk14YO4HOvea7gc8y3U" 
           "PMtnV1DdlQfK5wDTLvaWp/SvWi50azxg4jn4V9Y9aQQOKjLWKeZPLJ1KL0XvcbHdsOTr5ZnDZiqp" 
           "bggeNrEig1qiOQb4pYHEyInwlDFsAJrISZ1BXoLujgO8obcg/A5GGp1hkATLXwtg+5ezrJVTyUjR" 
           "7raPYnvgsC700sHIBFE2ZiEI9X1EDjSsHwpk6Io2ACIs0eqFmqNd20Zs/HBGsCzrkES73/aWD/Vy" 
           "4rlgcKk36SiXaoHz8Y36XF3I3GDFRPtTLQdzr7DNFHSTL9mrWKz+I1btCjZ4ku4hZ0g1AG6UNsQh" 
           "FAnEdmEz8WOE1InE45RFdo0QBcZL3o9SJDXd+WUsLEUiotGVaS+Fk1BgqgZlD9XgDn2f0/pvzImz" 
           "GH2qbKQp8fFt7FztWuUQnkyID68QPe4gErp3twX7WONscCq63IW8Zqhfdpfw9+u9LFQ5KhRJ5yhP" 
           "yuWe3XT2qgk2LMl2oVgC7U7F76OySh7kTvPmGGkWwt+KsNuOzqWgEoVZlIFPY3wsxvyEAQiZHZT9" 
           "VTJhYNJOcgKl35AsqsM5BtJ0ilbaKonFPAhC9Md/JU9PpvRXqYZ9T6bd3k3Oa8pundDep8cupTET" 
           "ZZ7W07q+HhS1V8hQONiZUZHVQu9fUCW+Gz97olscYyvCp+a7HBiPzMYnsm2eEmZtjUf2zmzMe29w" 
           "RNJicFyn/PA5FxPO68hgndDK5z9H5isbpDW7eISjJdQNr6hoGhSVDwKEkPe+szimIkqJbHFpsb/w" 
           "vEQ+g7WJ6BA374fsM03OTF3sONs30a45Oa4EB2Fp6qOlgmvs4aCvKgPqCMqwx2VFmBqeN9l5i/ni" 
           "UPt5CjcTD6VmZVEXadiA3e+Q90WxX6Og+SMrZluMk98Ls1yISqSgivX6G8SA+/WzaS13yxFfQjKN" 
           "JzqIyG2Fgeqzy44djcJe71NYgQnnTYva3xKiKX3k/29js9lkxupLTgftX/dIyS+yWHyiWuaBYMDl" 
           "9h45wYLJaZWFdR0piRgOpsAj6nnDI7qsbWCL8E9/6++TMB6UQzSGfAFbZpuCu0X/gCCKVNlsnQ5w" 
           "UtjWFVUXMBAyjC0ubeItWpxSWLZX7MX0AjBvzQHgLVpBSw7GZ0bG2se3mkhQEGe/u1MIA3RpyYJx" 
           "WfCIIlBZsOYKSM8x4qweCRfpnqfq3OEhiVDKpw==" 
          ) 
  ) 
  (defun c:xd-polyline-reset-check#OnClicked (Value /) 
    (if        (= value 1) 
      (dcl-Control-SetEnabled xd-polyline-reset-option nil) 
      (dcl-Control-SetEnabled xd-polyline-reset-option t) 
    ) 
  ) 
  (defun c:xd-polyline-reset-quit#OnClicked (/) 
    (dcl-MessageBox 
      "To Do: code must be added to event handler\r\nc:xd-polyline-reset-quit#OnClicked" 
      "To do" 
    ) 
  ) 
  (defun _reset        (e pt) 
    (XD::Polyline:ResetSTartPoint e pt) 
    (if        (xdrx_curve_direction e) 
      (progn (if (= clockwise 0) 
               (xdrx_curve_reverse e) 
             ) 
      ) 
      (progn (if (= clockwise 1) 
               (xdrx_curve_reverse e) 
             ) 
      ) 
    ) 
  ) 
  (defun c:xd-polyline-reset-quit#OnClicked (/) 
    (dcl-form-close xd-polyline-reset-vertex-form) 
    (princ) 
  ) 
  (defun c:xd-polyline-reset-ok#OnClicked (/) 
    (setq clockwise (dcl-Control-GetCurrentSelection 
                      xd-polyline-reset-clockwise 
                    ) 
    ) 
    (setq check (dcl-Control-GetValue xd-polyline-reset-check)) 
    (setq 
      pos (dcl-Control-GetCurrentSelection xd-polyline-reset-option) 
    ) 
    (dcl-form-close xd-polyline-reset-vertex-form) 
    (xdrx_begin) 
    (if        (= check 1) 
      (progn 
        (if (setq e (xdrx_entsel 
                      "\n拾取要处理的封闭多段线(靠近设置点)<退出>:" 
                      '((0 . "*polyline") (-4 . "&=") (70 . 1)) 
                    ) 
            ) 
          (progn (setq pt  (cadr e) 
                       e   (car e) 
                       inx (xdrx_getpropertyvalue e "nearindex" pt) 
                       pt  (xdrx_polyline_getpointat e inx) 
                 ) 
                 (_reset e pt) 
                 (xdrx_prompt 
                   "\n修改了一条多段线顶点，时针方向改为：" 
                   (if (= clockwise 0) 
                     "*顺时针*" 
                     "*逆时针*" 
                   ) 
                 ) 
          ) 
        ) 
      ) 
      (progn 
        (if (and (xdrx_initssget "\n选择要处理的多段线<退出>:") 
                 (setq ss 
                        (xdrx_ssget '((0 . "*polyline") (-4 . "&=") (70 . 1))) 
                 ) 
            ) 
          (progn 
            (mapcar '(lambda (x) 
                       (setq pts (xdrx_getpropertyvalue x "vertices")) 
                       (cond ((= pos 0) 
                              (setq pt (xd::pnts:extremum pts '> '> t)) 
                             ) 
                             ((= pos 1) 
                              (setq pt (xd::pnts:extremum pts '< '> t)) 
                             ) 
                             ((= pos 2) 
                              (setq pt (xd::pnts:extremum pts '> '< t)) 
                             ) 
                             ((= pos 3) 
                              (setq pt (xd::pnts:extremum pts '< '< t)) 
                             ) 
                       ) 
                       (_reset x pt) 
                     ) 
                    (xdrx_pickset->ents ss) 
            ) 
            (xdrx_prompt 
              "\n修改了" 
              (sslength ss) 
              "条多段线顶点，时针方向改为：*" 
              (if (= clockwise 0) 
                "顺" 
                "逆" 
              ) 
              "时针*" 
            ) 
          ) 
        ) 
      ) 
    ) 
    (xdrx_end) 
    (princ) 
  ) 
  (dcl-project-import xd-odcl-polyline-reset-vertex-data) 
  (dcl-form-show xd-polyline-reset-vertex-form) 
  (princ) 
)

lixiaolin · 发表于 2018-10-19 08:20:26

下载学习一下，

cfc123456 · 发表于 2018-10-19 08:29:49

批量重设多段线的起始点和时针方向，谢谢提供！！

284663711 · 发表于 2018-10-19 10:04:59

插件强大，大神威武！！！！！！！

=^_^= · 发表于 2018-10-19 16:47:40

还有这种插件

bbslevel · 发表于 2018-10-23 22:11:00

加载后报错函数dcl-Form-Show不允许NIL值

evayleung · 发表于 2018-10-24 00:48:44

谢谢分享----------

bonny123 · 发表于 2019-1-17 16:10:10

加载后报错函数dcl-Form-Show不允许NIL值

chaozi5756 · 发表于 2020-12-7 15:03:52

加载后报错函数dcl-Form-Show不允许NIL值

松树石头哥 · 发表于 2020-12-10 09:10:57

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

[多段线] 批量重设多段线的起始点和时针方向

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