Diagram blocks

[choupi1968]

hello I have a synoptic lisp which classifies the blocks by "attributes" ADDRESS. it works if the address is entered like this.
001 002 003 004...etc
Or
1 2 3 4 etc....
I would like it if it could put the blocks in order with the address entered like this.
L1-001 L1-002 L1-003 etc....
Or
1/1/1-001 1/1/1-002
1/1/1-003
1/1/1-004 etc.

Thank you for your help
kind regards
Philip

 

(defun c:SYNOD (/ *error* _No-p sel i sn en p)
(defun *erro* (x) (setvar 'cmdecho 1) (princ "*Cancel*"))
(defun _No-p (nxt / e No)
(while (not (eq (cdr (assoc 0 (setq e (entget nxt)))) "SEQEND"))
(if (and (eq (cdr (assoc 0 e)) "ATTRIB")
(numberp (read (cdr (assoc 1 e))))
)
(setq No (cdr (assoc 1 e)))
)
(setq nxt (entnext nxt))
)
No
)
(if (setq sel (ssget "_:L" '((0 . "INSERT") (66 . 1))))
(repeat (setq i (sslength sel))
(setq sn (ssname sel (setq i (1- i))))
(if (and (setq p (read (_No-p (entnext sn))))
(numberp p)
)

(progn
(setvar 'cmdecho 0)
(command "_.move"
sn
""
"_none"
(cdr (assoc 10 (entget sn)))
"_none"
(list p 0. 0.)
)
(setvar 'cmdecho 1)
)
)
)
)
(princ)
)

 

Edited March 3 by CADTutor
Add code to code block

[fuccaro]

Hi choupi 1968!

Welcome in the forum.

If a text ends with a number, this Lisp will extract it. I didn't try it with your lisp, but I think it will work. Give it a try and let us know.

(defun en(txt) ; EndingNumber
(setq i (1+ (strlen txt)) lst nil)
(while (> i 0)
  (setq c1 (substr txt (setq i (- i 1)) 1))
  (cond
    ((numberp (read c1)) (setq lst (cons c1 lst)))
    (t (setq i nil))
    )
  )
  (setq nr 0)
  (foreach x lst
    (setq nr (+ (* 10 nr) (read x)))
    )
  )

[choupi1968]

4 hours ago, fuccaro said:

Hi choupi 1968!

Welcome in the forum.

If a text ends with a number, this Lisp will extract it. I didn't try it with your lisp, but I think it will work. Give it a try and let us know.

(defun en(txt) ; EndingNumber
(setq i (1+ (strlen txt)) lst nil)
(while (> i 0)
  (setq c1 (substr txt (setq i (- i 1)) 1))
  (cond
    ((numberp (read c1)) (setq lst (cons c1 lst)))
    (t (setq i nil))
    )
  )
  (setq nr 0)
  (foreach x lst
    (setq nr (+ (* 10 nr) (read x)))
    )
  )

Hello I know this lisp but it does not split the blocks by attribute address

 

 

 

 

diagram blocks.dwg

[choupi1968]

[fuccaro]

I wrote for you this Lisp to extract the numbers from the end of texts. Incorporate it in your program.

 

[fuccaro]

@choupi1968

I had a quick look at the drawing you uploaded. Those blocks have more attributes, none of them is ADDRESS!. On can extract texts from the ones named REFERENCE and ORDRE.

Do you wish to sort *always* the blocks according to the values stored in the attribute called REFERENCE?

 

*** edit ***

Or maybe the attribute to sort by is always the first one in the block definition?

Edited March 4 by fuccaro

[choupi1968]

sorry

The attributes is not ADRESS but Ordre.

[fuccaro]

I am at home now, I will try tomorrow to put together something for you. I think I will rewrite that Lisp...

If you have any comments or request, I would suggest you to put them right here, in this thread.

Au revoir!

[fuccaro]

Here is my try:

(defun c:pp()
  (setq ss (ssget "_:L" '((0 . "INSERT")(66 . 1))))
  (repeat (setq i (sslength ss))
    (setq b1 (ssname ss (setq i (1- i))) b0 (entget b1))
    (while (and (/= (cdr (assoc 0 (setq b1l (entget b1)))) "SEQEND") (/= (cdr (assoc 2 b1l)) "ORDRE"))
      (setq b1 (entnext b1))
      )
    (setq txt (cdr (assoc 1 b1l)))
    (setq p (1+ (strlen txt)) nr nil)
    (while (and (> p 0) (not nr))
      (setq c1 (substr txt (setq p (1- p)) 1))
      (setq nr (if (numberp (read c1)) nil (read (substr txt (1+ p)))))
      )
    (setq b0 (subst (list 10 nr 0.0 0.0) (assoc 10 b0) b0))
    (entmod b0)
    )
  (command "_.ATTSYNC" "" (ssname ss 0) "")
  (setq ss nil)
  )

 

[BIGAL]

Parse numbers by Lee-mac the issue is that the delimiter 32 applies to a character, space = 32  "/" = 47 "," = 44

 

; thanks to Lee-mac for this defun
(defun csv->lst ( str / pos )
(if (setq pos (vl-string-position 32 str))
    (cons (substr str 1 pos) (csv->lst (substr str (+ pos 2))))
    (list str)
    )
)

So would work for 

(csv->lst "L1-001 L1-002 L1-003)
("L1-001" "L1-002" "L1-003")

You could add more IF & And for more complex strings

[choupi1968]

Hello, fuccaro

thank you very much it works really well. a big thank-you you are fantastic.

I worked on it all evening without success. Sincerely Philip

[fuccaro]

Glad to help!

Thank you for the feed-back