Topic: Grread - dynamic sizing/position of circle

[deanby7]

I wonder whether anyone can help with the code below. I'm trying to position a circle on a polyline (simulating osnap 'near') using mouse, and simultaneously being able to resize the circle to 4 four radii options by pressing 1,2, 3 or 4 on the keyboard. The circle moves as expected up and down the polyline and is fixed with a left click. However, when pressing keys 1, 2,3 or 4 the circle only temporarily resizes in the original circle position! The 'entmod' function does not appear to be modifying the entity. I'm missing something simple I think!!
Any ideas/help would be most apreciated.

[Lee Mac]

Consider that when updating the circle position, you are using the original DXF data, as opposed to the DXF data which may hold a different radius value.

I would personally suggest:

Code - Auto/Visual Lisp: [Select]

1. (defun c:gg ( / cir ent grr lst rad sel )
2.     (setq lst
3.        '(
4.             (49 . 12.78)
5.             (50 . 15.78)
6.             (51 . 18.78)
7.             (52 . 21.78)
8.         )
9.     )
10.     (if (setq sel (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))
11.         (progn
12.             (setq ent (ssname sel 0)
13.                   cir (cons -1 (entmakex (list '(0 . "CIRCLE") '(10 1e8 1e8) (cons 40 (cdar lst)))))
14.             )
15.             (while (/= 3 (car (setq grr (grread t 15 0))))
16.                 (cond
17.                     (   (= 5 (car grr))
18.                         (entmod (list cir (cons 10 (vlax-curve-getclosestpointto ent (cadr grr)))))
19.                     )
20.                     (   (= 2 (car grr))
21.                         (if (setq rad (cdr (assoc (cadr grr) lst)))
22.                             (entmod (list cir (cons 40 rad)))
23.                         )
24.                     )
25.                 )
26.             )
27.         )
28.     )
29.     (princ)
30. )
31. (vl-load-com) (princ)

Note that the above is only a draft and doesn't account for UCS/Views etc.

[deanby7]

Brilliant! Thanks Lee

[Grrr1337]

Brilliant! Thanks Lee

Indeed. That assoc lst he used is brilliant!
Got me thinking that something can be written like action_tile, but it would work for grread instead of dialog.
Just leaving the idea.

[Lee Mac]

Thank you both 

[Marc'Antonio Alessi]

Consider that when updating the circle position, you are using the original DXF data, as opposed to the DXF data which may hold a different radius value.

I would personally suggest:

Code - Auto/Visual Lisp: [Select]

1. (defun c:gg ( / cir ent grr lst rad sel )
2.     (setq lst
3.        '(
4.             (49 . 12.78)
5.             (50 . 15.78)
6.             (51 . 18.78)
7.             (52 . 21.78)
8.         )
9.     )
10.     (if (setq sel (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))
11.         (progn
12.             (setq ent (ssname sel 0)
13.                   cir (cons -1 (entmakex (list '(0 . "CIRCLE") '(10 1e8 1e8) (cons 40 (cdar lst)))))
14.             )
15.             (while (/= 3 (car (setq grr (grread t 15 0))))
16.                 (cond
17.                     (   (= 5 (car grr))
18.                         (entmod (list cir (cons 10 (vlax-curve-getclosestpointto ent (cadr grr)))))
19.                     )
20.                     (   (= 2 (car grr))
21.                         (if (setq rad (cdr (assoc (cadr grr) lst)))
22.                             (entmod (list cir (cons 40 rad)))
23.                         )
24.                     )
25.                 )
26.             )
27.         )
28.     )
29.     (princ)
30. )
31. (vl-load-com) (princ)

Note that the above is only a draft and doesn't account for UCS/Views etc.

Has anyone tried this function in Bricscad?

[Marc'Antonio Alessi]

Version for Bricscad:

Code: [Select]

(defun c:ggB ( / EntDat ent grr lst rad sel )
   (setq lst
      '(
           (49 . 12.78)
           (50 . 15.78)
           (51 . 18.78)
           (52 . 21.78)
       )
   )
    (if (setq sel (ssget "_+.:E:S" '((0 . "LWPOLYLINE"))))
        (progn
            (setq ent    (ssname sel 0)
                  EntDat (entget (entmakex (list '(0 . "CIRCLE") '(10 1e8 1e8) (cons 40 (cdar lst)))))
            )
            (while (/= 3 (car (setq grr (grread t 15 0))))
                (cond
                    (   (= 5 (car grr))
                        (setq EntDat (entmod (subst (cons 10 (vlax-curve-getclosestpointto ent (cadr grr))) (assoc 10 EntDat) EntDat)))
                    )
                    (   (= 2 (car grr))
                        (if (setq rad (cdr (assoc (cadr grr) lst)))
                          (setq EntDat (entmod (subst (cons 40 rad) (assoc 40 EntDat) EntDat)))
                        )
                    )
                )
            )
        )
    )
    (princ)
)

[Lee Mac]

Thank you Marc, I wasn't aware that BricsCAD could not modify entities using only the entity name group & groups to be modified.

[Marc'Antonio Alessi]

 

Thank you Marc, I wasn't aware that BricsCAD could not modify entities using only the entity name group & groups to be modified.

Prego.

[roy_043]

Thank you Marc, I wasn't aware that BricsCAD could not modify entities using only the entity name group & groups to be modified.

Prego.

... Alternatively the vle-entmod function can be used.

[Marc'Antonio Alessi]

Thank you Marc, I wasn't aware that BricsCAD could not modify entities using only the entity name group & groups to be modified.

Prego.

... Alternatively the vle-entmod function can be used.

Ok, but the problem is that is not compatible with AutoCAD... 

[roy_043]

Ok, but the problem is that is not compatible with AutoCAD... 

Try sending in a Support Request.

[MP]

Write a function that branches on loading, defining (for the life time of the session) a wrapper (say _entmod) that sports the same interface regardless the platform but internally invokes vle-entmod | entmod appropriately.

[Marc'Antonio Alessi]

Write a function that branches on loading, defining (for the life time of the session) a wrapper (say _entmod) that sports the same interface regardless the platform but internally invokes vle-entmod | entmod appropriately.

Yes maybe it is the best solution ... but I seem to remember that AutoCAD does not support the method using entmod with only the entity name for all entities...

[Lee Mac]

I seem to remember that AutoCAD does not support the method using entmod with only the entity name for all entities...

Correct - but Circles are supported.

I have this in my notes:

TYPE      MODIFIED USING ONLY ENAME?
=====================================
ARC                   YES
ATTRIB (SINGLE)       YES
ATTRIB (MULTI)        NO
CIRCLE                YES
ELLIPSE               NO
HATCH                 NO
INSERT                YES
LINE                  YES
LWPOLYLINE            NO
MTEXT                 NO
POINT                 YES
POLYLINE              YES
SPLINE                NO
TEXT                  YES
XLINE                 NO