Topic: [XDrX-PlugIn(2)] Block bottom WIPEOUT

[xdcad]

https://www.theswamp.org/index.php?topic=56646.30


You add WIPEOUT to INSERT, use the following, it is very concise, and directly puts the display order of WIPEOUT at the bottom of the entities inside the block, so as to cover the entities under the block without affecting the entities inside the block.

Code - Auto/Visual Lisp: [Select]

1. (xdrx-insert-appendwipeout blkref box offset)
2.  
3. blkref --- insert entity name
4. box    --- WIPEOUT rectangular box, such as (xdrx-entity-box....) generated
5. offset  --- a real number, whether the BOX is offset, positive values are outward offset, negative values are inward offset, if not given, offset = 0.0

The following is the demo program. A small problem was discovered during the debugging process. The XDRX API was re-uploaded. You may need to re-download it.

Code - Auto/Visual Lisp: [Select]

1. (defun c:tt ()
2.   (if (setq blkref (xdrx-entsel "\nPick Insert<exit>:" '((0 . "insert"))))
3.     (progn
4.       (xdrx-begin)
5.       (setq blkref (car blkref)
6.             box    (xdrx-entity-box blkref)
7.             offset (/ (distance (nth 0 box) (nth 3 box)) 10.0)
8.                                         ; offset distance 1/10 of the box height
9.       )
10.       (vl-cmdf ".wipeout" "frame" "off")
11.       ;;Turn off WIPEOUT border display
12.       (xdrx-insert-appendwipeout blkref box offset)
13.       (xdrx-draworder->top blkref)      ;Insert the entity display order to the top
14.       (xd::drag:simplemove blkref "\nInsert Point:" 5 t) ;Move drag
15.       (xdrx-end)
16.     )
17.   )
18.   (princ)
19. )

[Hugo]

Do you also have an idea how to set attributes on a background?
Autocad can't do that.
Thanks

[xdcad]

Do you also have an idea how to set attributes on a background?
Autocad can't do that.
Thanks

Upload a drawing of your work. If there are many situations, try to include various attributes as much as possible.

[Hugo]

Attached is the dwg
I use the text background command (see image)
Thanks

[xdcad]

Attached is the dwg
I use the text background command (see image)
Thanks

How do you think this program would be more convenient for you if you wrote it?

[Hugo]

Unfortunately, I don't know the commands from the XDRX API that make simple Lisp possible.
True, just a request, it doesn't have to be that way anyway.

Danke

[xdcad]

Unfortunately, I don't know the commands from the XDRX API that make simple Lisp possible.
True, just a request, it doesn't have to be that way anyway.

Danke

I’m not asking you to write using XDRX API.
But what effects and requirements does this tool want to achieve?
It’s just a simple attribute. If there are any other requirements or ideas in a complex DWG

[Hugo]

That's what I mean only for attributes

(defun c:blatt2txt ( / ssbl ssbln bl att a b );; ATT zu Text
  (setq ssbl (ssget '((0 . "INSERT"))))
  (repeat (setq ssbln (sslength ssbl))
    (setq bl (ssname ssbl (setq ssbln (1- ssbln))))
    (if (eq (cdr (assoc 66 (entget bl))) 1)
        (while (not (eq (cdr (assoc 0 (entget (if att (setq att (entnext att)) (setq att (entnext bl)))))) "SEQEND"))
          (setq a (member (assoc 210 (reverse (entget att))) (reverse (entget att))))
          (setq b (member (assoc 100 (reverse a)) (reverse a)))
          (entmakex (append (list '(0 . "TEXT")) b))
          (entmod (subst (cons 1 "") (assoc 1 (entget att)) (entget att)))
        )
    )
  )
  (princ)
)

http://www.lee-mac.com/mask.html

[xdcad]

Unfortunately, I don't know the commands from the XDRX API that make simple Lisp possible.
True, just a request, it doesn't have to be that way anyway.

Danke

http://www.theswamp.org/index.php?topic=58857.0

Need to re-download the API