界内选择工具

newer · 发表于 2014-1-9 22:09:45

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

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

×

本帖最后由 newer 于 2014-1-10 08:29 编辑

游客，如果您要查看本帖隐藏内容请回复

amwkto · 发表于 2015-5-30 13:55:45

(defun c:ta (/ ADD DXF-10 ENT GET GET2 LEN LEN2 NN NN2)
(princ "\n功能 [批量选择多段内所有对象]")
(if (setq get (ssget '((0 . "LWPOLYLINE"))))
(progn
(setq Len (sslength get)
add (ssadd)
)
(repeat Len
(setq nn (ssname get (setq Len (1- Len)))
ent (entget nn)
)
(setq dxf-10 (vl-remove-if '(lambda (x) (/= (car x) 10)) ent)
get2 (ssget "_WP" (mapcar 'cdr dxf-10))
Len2 (sslength get2)
)
(repeat Len2
(setq nn2 (ssname get2 (setq Len2 (1- Len2))))
(ssadd nn2 add)
)
)
)
)
(sssetfirst nil add)
(princ)
)

A82613035571210 · 发表于 2014-1-10 08:11:21

學習......................

flyfox1048 · 发表于 2014-1-10 08:16:23

感觉实用性不强

tenheng · 发表于 2014-1-10 08:58:37

这个是刚发布的哦。盖楼

434939575 · 发表于 2014-1-10 09:23:11

学习下。借鉴之用。

dbx5511 · 发表于 2014-1-10 16:26:22

应该还是蛮有用的。

q3_2006 · 发表于 2014-1-10 18:17:19

这么多插件以后是不是整合到工具箱里??

清风明月10 · 发表于 2014-1-10 19:44:04

谢谢楼主的分享！很有意思的软件，收藏备用。

newer · 发表于 2014-1-10 22:10:02

q3_2006 发表于 2014-1-10 18:17
这么多插件以后是不是整合到工具箱里??

应该是的。

st788796 · 发表于 2014-1-10 23:53:07

newer 发表于 2014-1-10 22:10
应该是的。

写了一个对话框函数，可以把三个线上选择整合为一个

(defun CurveSset:Mode (/
string
c:xdcad_CurveSset_Ok_OnClicked
c:xdcad_CurveSset_OnCancel
mode
)
(defun c:xdcad_CurveSset_Ok_OnClicked (/)
(setq
mode (+ (if (= (dcl_Control_GetValue xdcad_CurveSset_Inner) 1)
2
0
)
(if (= (dcl_Control_GetValue xdcad_CurveSset_Outer) 1)
4
0
)
(if (= (dcl_Control_GetValue xdcad_CurveSset_IsOn) 1)
8
0
)
)
)
(dcl_form_close xdcad_curvesset)
)
(defun c:xdcad_CurveSset_OnCancel (/)
(dcl_form_close xdcad_CurveSset)
)
(setq string
(apply
'strcat
'("YWt6AxQQAADIlRS8BuKjKTMxLT9qQ9MTZ2667t5YZv1vamla/la7a3e4/jQlGt0PLxcXO8BK9LZ0"
"o2YzosZMT0+AfEFtQWxJWtAKmXGOeRZqC5s426BFU5Gd6ibV5u6Im7MFGZCy4+cFsOOw1bFTmS7G"
"vY1mPWTdLHh+wtN81JvX2OhKcN59J9rakroAyt1phXobmtMltC9Xy9A94BcHtbar9WAHsbQlKKDE"
"2ylUQSowQxi7HSqkOdtIVIgIlVMUBQl1kDrpi+bvBIujW52X6+tIFJFvJTTYZL84C9RNaLlHEvt3"
"Xva8MTKrg8b6deZtMV3GVptSshVK0spWSku5byTXLCGY9AOmoQWPFZC0NnvN8BkAbOBdop6Iwd+A"
"oO+DTJ9pEAVF4Rn64W0ANIZFh+VZYneGj3EkkQsqRz+ti5CMe0/Kxi5t1cCLXxsgX5KXeI24qXDY"
"s+OpwqLoYpMv0UszMjCazi5N9Bff2w0rJPxOsGyd0JUYu2+BagsERVmU7dj46EidFSlFWkQW6AUi"
"eOPs1Wf52kJ9TZ+KtVGTYp8XGYK+SXOvWqfZdg3WQuxG08avu8Q27Q6PB7u9GhFbYg2PK7s5N2y5"
"dnFvQDxmfwGi5qRDailxq51WLtNc1KvkwzILBm5NDBv6Di01nNJdsu+aNk1tsmpNB+2CUUdNtZ0b"
"ycMjpxmUgbc38EIQ34AhoocmBXdfjaCcb4h3anUFD5+kjsMtXY9cH82+gCqWUaOP6AoC8U7J1+Gl"
"SjBdp21aGvEuSVWANrwX24BPbIQkdQnJbenM++L+ObYLJC1SmsaC37KY+4KJOokfS9zJ4tJq3EWe"
"WaR0hUFsE5MbbCOXhe5dmjP09PpiZOqNLiKImjTxvUHaF2UoNa3kJtval36CF6T5i+nYKLjfvBwa"
"HV9neZ3mUvmc0TrPBFj0/YjWZdhdzUE1CNoPbpBZLWy7oWc3lqrsSLmE+5TNrAgsUh1O8aNbpYdD"
"X4L2TJpfn3n6kW0gURke6Aim67x4goDyIjSESEttANdqk1IJorFklcH3TuHPNZNCwi0PFI+wLRTZ"
"jNqcaoLXxmMV7vQb2qQ+n4d1bJmnFw=="
)
)
)
(dcl_project_import string)
(dcl_form_show xdcad_curvesset)
mode
)

(defun CurveSset:Mode (/ 
                       string 
                       c:xdcad_CurveSset_Ok_OnClicked 
                       c:xdcad_CurveSset_OnCancel 
                       mode 
                      ) 
  (defun c:xdcad_CurveSset_Ok_OnClicked        (/) 
    (setq 
      mode (+ (if (= (dcl_Control_GetValue xdcad_CurveSset_Inner) 1) 
                2 
                0 
              ) 
              (if (= (dcl_Control_GetValue xdcad_CurveSset_Outer) 1) 
                4 
                0 
              ) 
              (if (= (dcl_Control_GetValue xdcad_CurveSset_IsOn) 1) 
                8 
                0 
              ) 
           ) 
    ) 
    (dcl_form_close xdcad_curvesset) 
  ) 
  (defun c:xdcad_CurveSset_OnCancel (/) 
    (dcl_form_close xdcad_CurveSset) 
  ) 
  (setq        string 
         (apply 
           'strcat 
           '("YWt6AxQQAADIlRS8BuKjKTMxLT9qQ9MTZ2667t5YZv1vamla/la7a3e4/jQlGt0PLxcXO8BK9LZ0" 
             "o2YzosZMT0+AfEFtQWxJWtAKmXGOeRZqC5s426BFU5Gd6ibV5u6Im7MFGZCy4+cFsOOw1bFTmS7G" 
             "vY1mPWTdLHh+wtN81JvX2OhKcN59J9rakroAyt1phXobmtMltC9Xy9A94BcHtbar9WAHsbQlKKDE" 
             "2ylUQSowQxi7HSqkOdtIVIgIlVMUBQl1kDrpi+bvBIujW52X6+tIFJFvJTTYZL84C9RNaLlHEvt3" 
             "Xva8MTKrg8b6deZtMV3GVptSshVK0spWSku5byTXLCGY9AOmoQWPFZC0NnvN8BkAbOBdop6Iwd+A" 
             "oO+DTJ9pEAVF4Rn64W0ANIZFh+VZYneGj3EkkQsqRz+ti5CMe0/Kxi5t1cCLXxsgX5KXeI24qXDY" 
             "s+OpwqLoYpMv0UszMjCazi5N9Bff2w0rJPxOsGyd0JUYu2+BagsERVmU7dj46EidFSlFWkQW6AUi" 
             "eOPs1Wf52kJ9TZ+KtVGTYp8XGYK+SXOvWqfZdg3WQuxG08avu8Q27Q6PB7u9GhFbYg2PK7s5N2y5" 
             "dnFvQDxmfwGi5qRDailxq51WLtNc1KvkwzILBm5NDBv6Di01nNJdsu+aNk1tsmpNB+2CUUdNtZ0b" 
             "ycMjpxmUgbc38EIQ34AhoocmBXdfjaCcb4h3anUFD5+kjsMtXY9cH82+gCqWUaOP6AoC8U7J1+Gl" 
             "SjBdp21aGvEuSVWANrwX24BPbIQkdQnJbenM++L+ObYLJC1SmsaC37KY+4KJOokfS9zJ4tJq3EWe" 
             "WaR0hUFsE5MbbCOXhe5dmjP09PpiZOqNLiKImjTxvUHaF2UoNa3kJtval36CF6T5i+nYKLjfvBwa" 
             "HV9neZ3mUvmc0TrPBFj0/YjWZdhdzUE1CNoPbpBZLWy7oWc3lqrsSLmE+5TNrAgsUh1O8aNbpYdD" 
             "X4L2TJpfn3n6kW0gURke6Aim67x4goDyIjSESEttANdqk1IJorFklcH3TuHPNZNCwi0PFI+wLRTZ" 
             "jNqcaoLXxmMV7vQb2qQ+n4d1bJmnFw==" 
            ) 
         ) 
  ) 
  (dcl_project_import string) 
  (dcl_form_show xdcad_curvesset) 
  mode 
)

liuyj · 发表于 2014-1-11 10:50:12

st788796 发表于 2014-1-10 23:53
写了一个对话框函数，可以把三个线上选择整合为一个

这个主意好

小百合 · 发表于 2014-1-26 08:56:31

顶，很好的选择程序

yansu · 发表于 2014-1-27 13:37:06

这个必须有{:soso_e179:}

mxmsx888 · 发表于 2014-2-6 11:55:10

感觉实用性不强

selfwhy · 发表于 2014-2-7 15:20:00

谢谢~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~

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

[工具] 界内选择工具

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

点评

点评