Author Topic: [XDrX-PlugIn(21)] Text (Attrib) Copy+1 (Read 3000 times)

xdcad · « **on:** November 29, 2023, 01:26:59 AM »

Code - Auto/Visual Lisp: [Select]

(defun c:XDTB_Copy+1 (/ base dis dynpt e1 i msg myerr num olderr p p1 p2 pos posl pt tf txt txt2 typ v x pnt
                        pt v1 v2 pts sp1 sp2 dp1 dp2 ents oper info #xd_var_global_bits txt1 prev next
                     )
  (defun _callback1 (dynpt)
    (xdrx_entity_move e (trans base 1 0) dynpt)
    (setq base (trans dynpt 0 1))
  )
  (defun _callback2 (dynpt)
    (xdrx_entity_move ents (trans base 1 0) dynpt)
    (setq base (trans dynpt 0 1))
  )
  (defun myerr (msg)
    (princ (strcat "\n" msg))
    (xdrx_end)
    (if oper
      (progn (if ent
               (setq e ent)
             )
             (xdrx_entity_delete e)
      )
    )
    (setq *error* olderr)
    (princ)
  )
  (defun _cale ()
    (setq oper 1
          e    (xdrx_entity_copy e)
          e    (ssname e 0)
          txt2 (strcat prev
                       (xdrx_string_replace
                         (xdrx_string_format
                           (setq lpj (strcat "%" (itoa #xd_var_global_bits) "d"))
                           (setq ljb (+ (atoi txt1) 1 i))
                         )
                         " "
                         "0"
                       )
                       next
               )
    )
    (setq typ (car (xdrx_object_classname e)))
    (cond ((= typ "INSERT")
           (setq e1 (xdrx_getpropertyvalue e "AttributeEntities"))
           (xdrx_setpropertyvalue (car e1) "textstring" txt2)
          )
          (t (xdrx_setpropertyvalue e "textstring" txt2))
    )
    (setq i (1+ i))
    e
  )
  (defun _cale1 ()
    (setq oper 1
          ents (xdrx_entity_copy ents)
          ents (xdrx_pickset->ents ents)
          ents (xd::pickset:tablesort ents 0 1 '< '<)
          ents (xd::list:flat ents)
    )
    (mapcar
      '(lambda (x)
         (setq txt2 (strcat prev
                            (xdrx_string_replace
                              (xdrx_string_format1
                                (strcat "%" (itoa #xd_var_global_bits) "d")
                                (itoa (+ (atoi txt1) 1 i))
                              )
                              " "
                              "0"
                            )
                            next
                    )
         )
         (setq typ (car (xdrx_object_classname x)))
         (cond ((= typ "INSERT")
                (setq e1 (xdrx_getpropertyvalue x "AttributeEntities"))
                (xdrx_setpropertyvalue (car e1) "textstring" txt2)
               )
               (t (xdrx_setpropertyvalue x "textstring" txt2))
         )
         (setq i (1+ i))
       )
      ents
    )
    ents
  )
  (defun _check (e p / i next pos posl prev tf txt txt1 x)
    (setq typ (xdrx_object_classname e))
    (if (= (car typ) "INSERT")
      (setq e (car (xdrx_getpropertyvalue e "AttributeEntities")))
    )
    (if (and (setq txt (xd::text:indexatPoint e p))
             (setq pos (cadr txt)
                   txt (car txt)
             )
             (setq txt1 (xdrx_string_regexps "[0-9]+" txt))
             (setq posl (xdrx_string_regexpv)
                   i    -1
             )
             (vl-some '(lambda (x)
                         (setq i (1+ i))
                         (if (setq tf (<= (car x) pos (cadr x)))
                           (setq pos x)
                         )
                       )
                      posl
             )
        )
      (progn (setq prev (xdrx_string_mid txt 0 (car pos))
                   next (xdrx_string_mid txt (last pos))
             )
             (list prev (nth i txt1) next)
      )
    )
  )
  (defun _check1 (e / typ txt next txt1)
    (setq typ (xdrx_object_classname e))
    (if (= (car typ) "INSERT")
      (setq e (car (xdrx_getpropertyvalue e "AttributeEntities")))
    )
    (if (and (setq txt  (xdrx_getpropertyvalue e "textstring")
                   next ""
                   txt1 (car (xdrx_string_regexps "[0-9]+" txt))
             )
        )
      (progn (setq prev (car (xdrx_string_regexps "[^0-9]+" txt)))
             (list (if prev
                     prev
                     ""
                   )
                   txt1
                   next
             )
      )
    )
  )
  (if (and (xdrx_initget "M")
           (setq e (xdrx_entsel
                     "\nSelect a String or attribute with Numbers[Multiple Selection(M)]<Exit>"
                     '((-4 . "<or")
                       (-4 . "<and")
                       (0 . "insert")
                       (66 . 1)
                       (-4 . "and>")
                       (0 . "*text")
                       (-4 . "or>")
                      )
                   )
           )
      )
    (progn
      (xdrx_begin)
      (xdrx_sysvar_push '("osmode" 33))
      (setq olderr *error*)
      (setq *error* myerr)
      (cond ((and (= (type e) 'STR) (= (strcase e) "M"))
             (if (and (xdrx_initssget
                        "\nSelect Multiple Text with Numbers<Exit>:"
                      )
                      (setq ss (xdrx_ssget '((1 . "*#"))))
                 )
               (progn (setq ents (xdrx_pickset->ents ss)
                            lxd ents
                             txts
                            (xdrx_entity_getproperty ss "textstring")
                             maxv
                            (apply
                              'max
                              (mapcar
                                '(lambda (x)
                                   (atoi (car (xdrx_string_regexps "[0-9]+" x)))
                                 )
                                txts
                              )
                            )
                             ss1
                            (xd::pickset:getsub
                              ss
                              (list (cons 1 (strcat "*" (itoa maxv))))
                            )
                             e
                            (ssname ss1 0)
                      )
                      (setq info (_check1 e))
               )
             )
            )
            (t
             (setq p (trans (cadr e) 1 0)
                   e (car e)
             )
             (setq info (_check e p))
            )
      )
      (if info
        (progn
          (setq prev (car info)
                txt1 (cadr info)
                llxd txt1
                #xd_var_global_bits
                 (strlen txt1)
                dxxy #xd_var_global_bits
                next (last info)
          )
          (initget 128 "A")
          (xdrx_initget 128 "A")
 
          (if (setq base (getpoint "\nBasepoint[array(A)]<exit>:"))
            (progn
              (cond
                ((= base "A")
                 (if (not #xd_var_global_gap_factor)
                   (setq #xd_var_global_gap_factor 3)
                 )
                 (if (setq val (getreal (xdrx_prompt
                                          "\nEnter Spacing<"
                                          #xd_var_global_gap_factor
                                          ">:"
                                          t
                                        )
                               )
                     )
                   (setq #xd_var_global_gap_factor val)
                 )
                 (if (not #xd_var_global_array_num)
                   (setq #xd_var_global_array_num 2)
                 )
                 (if
                   (setq p1 (getpoint
                              "\nFirst Point in Direction<select curve as path>:"
                            )
                   )
                    (progn
                      (if (setq p2 (getpoint p1 "\nSecond Point in Direction <exit>:"))
                        (progn (setq #xd_var_global_array_num
                                      (1-
                                        (fix
                                          (/
                                            (distance p1
                                                      p2
                                            )
                                            #xd_var_global_gap_factor
                                          )
                                        )
                                      )
                               )
                               (if (setq
                                     val (getint (xdrx_prompt
                                                   "\nEnter quantity<"
                                                   #xd_var_global_array_num
                                                   ">:"
                                                   t
                                                 )
                                         )
                                   )
                                 (setq #xd_var_global_array_num val)
                               )
                               (setq i 0)
                               (if (not ents)
                                 (setq ent (_cale))
                                 (progn (setq ent (_cale1)))
                               )
                               (setq v   (mapcar '- p2 p1)
                                     dis (xdrx_vector_length v)
                                     v   (trans v 1 0 t)
                                     v   (xdrx_vector_normalize v)
                               )
                               (repeat #xd_var_global_array_num
                                 (xdrx_entity_move
                                   ent
                                   (setq base (xd::geom:get9pt ent 5))
                                   (mapcar '+
                                           base
                                           (xdrx_vector_product
                                             v
                                             #xd_var_global_gap_factor
                                           )
                                   )
                                 )
                                 (if (not ents)
                                   (setq ent (_cale))
                                   (progn (setq ent (_cale1)))
                                 )
                               )
                               (xdrx_entity_delete ent)
                        )
                      )
                    )
                    (progn
                      (if (setq crv
                                 (car (xdrx_entsel
                                        "\nPick Path Curve<Exit>:"
                                        '((0 . "*LINE,ARC,CIRCLE,ELLIPSE"))
                                      )
                                 )
                          )
                        (progn (setq v1  (xdrx_entity_getecs e)
                                     v1  (cadr v1)
                                     pnt (xdrx_curve_getclosestpoint
                                           crv
                                           (xdrx_getpropertyvalue e "position")
                                         )
                                     v2  (xdrx_curve_getfirstderiv crv pnt)
                               )
                               (if (xdrx_vector_iscodirectional v1 v2)
                                 (setq pts (xdrx_curve_getpointsatdist
                                             crv
                                             pnt
                                             #xd_var_global_gap_factor
                                           )
                                 )
                                 (setq pts (xdrx_curve_getpointsatdist
                                             crv
                                             pnt
                                             (- #xd_var_global_gap_factor)
                                           )
                                 )
                               )
                               (if (setq
                                     val (getint (xdrx_prompt
                                                   "\nEnter quantity (maximum"
                                                   (1- (length pts))
                                                   ")<"
                                                   #xd_var_global_array_num
                                                   ">:"
                                                   t
                                                 )
                                         )
                                   )
                                 (setq #xd_var_global_array_num val)
                               )
                               (setq i 0)
                               (if (not ents)
                                 (setq ent (_cale))
                                 (progn (setq ent (_cale1)))
                               )
                               (while (and (< i (length pts))
                                           (< i #xd_var_global_array_num)
                                      )
                                 (setq pt (nth i pts)
                                       v1 (xdrx_entity_getecs e)
                                       v1 (cadr v1)
                                 )
                                 (setq pnt (xdrx_curve_getclosestpoint
                                             crv
                                             (setq sp1 (xdrx_getpropertyvalue
                                                         e
                                                         "9pt"
                                                         5
                                                       )
                                             )
                                           )
                                 )
                                 (setq sp1 pnt
                                       sp2 (mapcar '+ sp1 v1)
                                       dp1 pt
                                       dp2 (mapcar
                                             '+
                                             dp1
                                             (xdrx_curve_getfirstderiv crv pt)
                                           )
                                 )
                                 (xdrx_entity_align e sp1 sp2 dp1 dp2)
                                 (if (not ents)
                                   (setq ent (_cale))
                                   (progn (setq ent (_cale1)))
                                 )
                               )
                               (xdrx_entity_delete ent)
                        )
                      )
                    )
                 )
                )
                (t
                 (setq i 0)
                 (if (not ents)
                   (progn (_cale)
                          (while (setq pt (xd::drag:gmove
                                            base "\nNext Point<Exit>:" -7 nil t "_callback1")
                                 )
                            (_cale)
                          )
                          (xdrx_entity_delete e)
                   )
                   (progn (_cale1)
                          (while (setq pt (xd::drag:gmove
                                            base "\nNext Point<Exit>:" -7 nil t "_callback2")
                                 )
                            (_cale1)
                          )
                          (xdrx_entity_delete ents)
                   )
                 )
                )
              )
            )
          )
        )
        (progn (if (and (not ents) e)
                 (xdrx_prompt "\nNo Number Selected.")
               )
        )
      )
      (xdrx_sysvar_pop)
      (xdrx_end)
      (setq *error* olderr)
    )
  )
  (princ)
)

Hugo · « **Reply #1 on:** December 02, 2023, 01:39:19 PM »

get an error in ZWCAD
Thanks

xdcad · « **Reply #2 on:** December 02, 2023, 04:10:22 PM »

Quote from: Hugo on December 02, 2023, 01:39:19 PM

get an error in ZWCAD
Thanks

You haven't loaded it completely yet. xd-lisp-liv.vls hasn't loaded yet. Go to the post where you asked the question. I've attached the debugged file. You can overwrite it in the installation directory and give it a try.

==========

The ZRX you are using is version 11.18, which is a bit old.
In the attachment, I give you the latest ZRX. You can use this to cover it. If there is a bug under ZRX, please post it and I will pay attention to it.
ZRX is not planned to be provided in the installation package because it has just been ported.

hcbn1997 · « **Reply #3 on:** December 03, 2023, 12:48:18 AM »

Great lisp, it's what I was looking for but when the app loads the lisp I can't use it
error is as follows

hcbn1997 · « **Reply #4 on:** December 03, 2023, 01:37:39 AM »

After installing the XDRX API library, I was able to run Lisp, but a problem arose when using it: the prefix and suffix were inconsistent.
For example, if I use the command with the text string 2CG39-1, sometimes the result is 2CG39-2, and sometimes the result is 2CG40-1.
I want it to be 2CG39-01 then 2CG39-02

Hugo · « **Reply #5 on:** December 03, 2023, 02:27:28 AM »

Thanks, everything works now
Thank you thank you

xdcad · « **Reply #6 on:** December 03, 2023, 03:47:45 AM »

Quote from: hcbn1997 on December 03, 2023, 01:37:39 AM

After installing the XDRX API library, I was able to run Lisp, but a problem arose when using it: the prefix and suffix were inconsistent.
For example, if I use the command with the text string 2CG39-1, sometimes the result is 2CG39-2, and sometimes the result is 2CG40-1.
I want it to be 2CG39-01 then 2CG39-02

Has the mouse clicked on 40? In this program, whichever number the mouse clicks on will be changed. You can enlarge the picture so that you can easily select the one you need to change.

Hugo · « **Reply #7 on:** December 03, 2023, 04:24:57 AM »

Unfortunately, this doesn't work with dynamic blocks.

xdcad · « **Reply #8 on:** December 03, 2023, 06:29:21 AM »

Quote from: Hugo on December 03, 2023, 04:24:57 AM

Unfortunately, this doesn't work with dynamic blocks.

Only supports text and attribute text
If BLOCK is supported, where do you want to copy the text?

Hugo · « **Reply #9 on:** December 03, 2023, 07:05:48 AM »

I don't know if you have tested this, but Lisp works with a normal block with ATT.

xdcad · « **Reply #10 on:** December 03, 2023, 07:13:29 AM »

Quote from: Hugo on December 03, 2023, 07:05:48 AM

I don't know if you have tested this, but Lisp works with a normal block with ATT.

Please upload the DWG

Hugo · « **Reply #11 on:** December 03, 2023, 07:21:59 AM »

HIER DIE DWG

hcbn1997 · « **Reply #12 on:** December 04, 2023, 12:28:42 AM »

Quote from: Hugo on December 03, 2023, 04:24:57 AM

Unfortunately, this doesn't work with dynamic blocks.

IT turns out to click on the number (I didn't know this) thank you very much.
But if you could edit the array, could the algorithm change a bit? Array will use Distance to pick 2 points, then enter the number of times you want to copy.
Thank you!

xdcad · « **Reply #13 on:** December 04, 2023, 04:42:01 AM »

Quote from: hcbn1997 on December 04, 2023, 12:28:42 AM

Quote from: Hugo on December 03, 2023, 04:24:57 AM
Unfortunately, this doesn't work with dynamic blocks.
IT turns out to click on the number (I didn't know this) thank you very much.
But if you could edit the array, could the algorithm change a bit? Array will use Distance to pick 2 points, then enter the number of times you want to copy.
Thank you!

I got you,
Now two points are selected to determine the direction of the array, and the distance depends on user input.

And if you want to use two points to determine the direction and the distance of the array at the same time, isn't it sometimes inefficient?

The main purpose is to reduce user interaction as much as possible

Hugo · « **Reply #14 on:** December 04, 2023, 05:24:02 AM »

This now also works with dynamic blocks
Thank you 1000x

News:

Author Topic: [XDrX-PlugIn(21)] Text (Attrib) Copy+1 (Read 3000 times)

xdcad

[XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

xdcad

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

hcbn1997

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

hcbn1997

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

xdcad

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

xdcad

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

xdcad

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

hcbn1997

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

xdcad

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1

Hugo

Re: [XDrX-PlugIn(21)] Text (Attrib) Copy+1