非模态查找文字并连线

dyjwyqz5221

[Actionscript3] 纯文本查看 复制代码

;;;opendcl版
;;;查找文字并连线
(defun c:xd::czlx (/ yqz-czlx-data box)
        (setq yqz-czlx-data
                '("YWt6A1gUAAAFDroLBuKTKTU26i9qQJ2N3C3na3vH98za6aQtJTpqN4pkM9++Njhj06pPtDIkFsX8"
"/CRrKvXoUwRmiqBqexjF3jP1Fml6w0hT3PmtR5lhw4GD5Bji11bWAYaBgQCJogWQw5nikeIB9Bxd"
"T/Shh+Oqs8FwFNz9yvF8Oopa4dY+ZFLgLT8fJDc11+SRa4IiOjXW7AW8oiQ404LwDtUkOSoXVTJT"
"RCi4yw7hyukFtbs6HVvLDyHmhVxCweuZ+gcqdYE6nQzoU63Aa8L0qVlE1dfnS8iM4kjUngl7my0u"
"SCc2DOvudy5ou1EgWMn4McvhxAZtGOb0OVuPXxhlm+6RTH0EDMMgj0izfbQLmrsogDIOCL7jAbW0"
"a6F+Am2OC74hkgA6HhhF+bcBp6ChAkrMw88JqfXtiYSzHTk02LIUxVHNwSyg1kzr4XmilZ6XU8r0"
"ok5WWRXAp2rcVtOtb3mmgJhOFvV/AHCGbp5N/jF+sHXGhk22hX5lCQIuQkk7jzLy9MJkQCrm8Wuf"
"HjRqaScauAJszChDW0axL+tNlG0tfsC9pvdEjcx5XblllT0YkaZSI7sKfZBkJUOOP1zMfZrjaJXU"
"wHbTbEKzHEfs18uGyJ5E7ukkIloG1bu9/Ek/uhB4wnuOOL5qDtP6T0Jx0pb1lz/Aq9XgxewHS0+l"
"AZ4ryy180aD3MhSEhcLE/6yNFFPHIKM/0CnxruGLlBDA/aea+2WvPIoUH32FzfEEFlPZ2mCACw1k"
"NPXLZLnQAc3giEnL5T+2gKl+GZgF4dEYttat3hvkBQjBkapJC06BS6bMqhv6oekbihkDxzgOrre1"
"27fVNEdbCNHTSAXGhAmWSfy3+/QOa1S+G74pfiF88lI9aFw177u2jJ3egZPmm0JCfJXDfYL4QRiC"
"hJi+gokIQYwuqDIsQkCo2utrbc9YpAnIT2OoVoCb0i/H8UtptxvzzJRhGjObAaiuRiYtvPH39LXA"
"HTP2c6O9uG0NEJiJfzjXJ/2BZAxenD2eleSGwevGRIegttMhrl6hYqxg1PWIN6USzp0qsV32x7KU"
"rSPVm9OSyGbm7voH5G0U/zdAmBeDZMxGWIQ5PuHx94W2G9xMiRnnJjNnTS+JQZ9JuYUIrvGPIZqe"
"zCrnXg+2BOfe4E0+WZn9o4InYtsIUWGSCql1dHRUIPMCTkizCo1FS220v8hr/gMyh3oyL8fxV5l7"
"WddLREBrfVgZuvZUJqu57tfq/l91Husq8id2b8V2jgImgV+eRK5BdVwCz+sBYjYgdeuPJR8BF04u"
"seH6//StHp57vybPLCvW93DgRYCkl3vLueuLsvNDonUSh6uSEfjDYX3yp1/sXCXifcJNjRTUhTXN"
"5ORICUPHwH+T3STr")        
        );;;setq
        
        (defun callback(dynpt / ang)
                (setq ang (angle pt0 (trans dynpt 1 0)))
                (if (and (> ang (* pi 0.5)) (< ang (* pi 1.5)))
                        (progn
                                (xdrx_entity_move e-txt (trans pt-right 1 0) (trans dynpt 1 0))
                                (setq pt-right dynpt
                                        pt-left (mapcar '- pt-right (list len 0. 0.))
                                );;;setq        
                        );;;progn
                        (progn
                                    (xdrx_entity_move e-txt (trans pt-left 1 0) (trans dynpt 1 0))
                                (setq pt-left dynpt
                                        pt-right (mapcar '+ pt-left (list len 0. 0.))
                                );;;setq
                        );;;progn
                );;;if
                      (mapcar 
                        '(lambda (x)
                                 (xdrx_setpropertyvalue x "EndPoint" (trans dynpt 1 0))
                               );;;lambda
                              (xdrx_pickset->ents ss1)
                      );;;mapcar
        );;;defun
          (defun _pross(/ ss e-txt box-text len pt-left pt-right pts n pt0 ss1 yqz-czlx-txt)
                (setq yqz-czlx-txt (dcl-Control-GetText look_up/Form1/TextBox1))                
                (if (= (dcl-OptionList-GetCurSel look_up/Form1/OptionList1) 0)
                        (setq yqz-czlx-txt (strcat "*" yqz-czlx-txt "*"))        
                );;;if
                (if (setq ss (xd::ssget "\n选取文字<退出>:" (list ":L" (list '(0 . "text") (cons 1 yqz-czlx-txt)))))
                        (progn        
                                (xdrx_begin)
                                (xdrx_sysvar_push '("osmode" 0 "cmdecho" 0));;;捕捉和命令关闭
                                       (setq e-txt
                                        (XD::Text:Make (list (trans (cadr (grread t 15)) 1 0))
                                                        (strcat "共查找到包含“" yqz-czlx-txt "”的字符串 " (itoa (sslength ss)) " 个")
                                                        "yqz-style"
                                                        600
                                                        0.70
                                                        0.00
                                                        "ML"
                                        )
                                        box-text (xdrx_text_box e-txt)
                                        len (distance (car box-text) (cadr box-text))
                                        pt-left (XD::Geom:Get9PT e-txt 4)
                                        pt-right (XD::Geom:Get9PT e-txt 6)
                                );;;setq
                                       (xdrx_entity_setproperty e-txt "layer" "yqz-czlx" "color" 2)
                                (xdrx_setmark)
                                (setq pts 
                                        (mapcar
                                                '(lambda(x / box)
                                                        (setq box (xdrx_text_box x))
                                                        (xdrx_polyline_make (xdrx_points_offset 50. (XD::PnTs:Close box)) t)
                                                        (xdrx_points_centroid box)
                                                );;;lambda
                                                (xdrx_pickset->ents ss)
                                        );;;mapcar
                                        n (fix (* (length pts) 0.5))
                                        pt0
                                        (nth n 
                                                (vl-sort pts
                                                        '(lambda(a b)
                                                                (< (car a) (car b))
                                                        );;;lambda
                                                );;;vl
                                        );;;nth
                                );;;setq
                                (xdrx_entity_setproperty (xdrx_getss) "layer" "yqz-czlx" "color" 2 "ConstantWidth" 20)
                                (xdrx_setmark)
                                   (mapcar 
                                        '(lambda (x)
                                                      (xdrx_line_make x pt-left)
                                            );;;lambda
                                           pts
                                   );;;mapcar
                                (xdrx_entity_setproperty (setq ss1 (xdrx_getss)) "layer" "yqz-czlx" "color" 4)
                                       (xdrx_document_redraw);;;ARX太快，要更新下数据库
                                       (xdrx_pointmonitor "Callback" e-txt)
                                       (getpoint (trans pt-left 0 1))
                                       (xdrx_pointmonitor)
                                (xdrx_sysvar_pop)
                                (xdrx_end)
                                (princ)
                        );;;progn
                        (xdrx_prompt "\n未查找到包含“" yqz-czlx-txt "”的字符串")
                );;;if
                (princ)
             );;;defun

        (defun c:look_up/Form1/TextBox1#OnEditChanged (NewValue /)
                (cond 
                        ((/= NewValue "")
                                (dcl-Control-SetEnabled look_up/Form1/TextButton1 t)
                        )
                        (t
                                (dcl-Control-SetEnabled look_up/Form1/TextButton1 nil)
                        )
                );;;cond
        );;;;defun
        (defun c:look_up/Form1/TextButton1#OnClicked (/)
                (dcl-sendstring "(_pross)\n")
                (princ)
        );;;defun
        
        (defun c:look_up/Form1/TextButton2#OnClicked (/)
                (dcl-form-close look_up/Form1)
                    (princ)
        );;;defun
        (dcl-project-import yqz-czlx-data)
          (dcl-form-show look_up/Form1)
          (setq box (xdrx_drawing_pixelbox))
          (dcl_Form_SetPos
                    look_up/Form1
                    (car (last box))
                    (cadr (last box))
          )
        (dcl-Control-SetFocus look_up/Form1/TextBox1)
        (dcl-Control-ZOrder look_up/Form1/TextBox1 0)
        (dcl-Control-SetFocus look_up/Form1)
         (princ)
);;;defun

yuebirds

小工具挺奇特 ，感谢分享。

tzfcn

这种格式的代码好像见得不多，要认真学习一下。

XIAODONHUANGXUE

我是2016CAD 版本    查找前4个，查找后只剩下3个，丢失了一个。不知道是不是CAD版本问题？

dyjwyqz5221

XIAODONHUANGXUE 发表于 2020-6-13 12:44
我是2016CAD 版本    查找前4个，查找后只剩下3个，丢失了一个。不知道是不是CAD版本问题？

上传个cad图

dyjwyqz5221

XIAODONHUANGXUE 发表于 2020-6-13 12:44
我是2016CAD 版本    查找前4个，查找后只剩下3个，丢失了一个。不知道是不是CAD版本问题？

应该与你的api有关系，下载最新版本的api试试

kmliro_2017

谢谢分享！！！！

既然青春留不住

FGLG1980

楼主能不能再添加替换功能。