Topic: All circle diameter

[civil.eng]

Hi everyone,
I have a drawing that contains lots of circle and I need a lisp to select all the circles and then the lisp create diameter dimension to all of them, like this :

can someone help me?

[Lee Mac]

Quick one:

Code - Auto/Visual Lisp: [Select]

1. (defun c:cdim ( / a c d e i r s v x )
2.     (setq a (* pi 1.25) ;; Angle from center
3.           d 0.25        ;; Multiple of radius from center
4.     )
5.     (if (setq s (ssget '((0 . "CIRCLE"))))
6.         (progn
7.             (setq v (getvar 'cmdecho))
8.             (setvar 'cmdecho 0)
9.             (repeat (setq i (sslength s))
10.                 (setq i (1- i)
11.                       e (ssname s i)
12.                       x (entget e)
13.                       c (trans (cdr (assoc 10 x)) e 1)
14.                       r (cdr (assoc 40 x))
15.                 )
16.                 (command "_.dimdiameter" (list e (polar c a r)) "_non" (polar c a (* r d)))
17.             )
18.             (setvar 'cmdecho v)
19.         )
20.     )
21.     (princ)
22. )

[civil.eng]

Thank you so much sir,
Can you rewrite it by vla-adddimDiametric ??
Thanks in advanced.

[BIGAL]

Why are you not happy with the free answer ? If you want a VL solution have a go. Just google, Lee has done most of the work for you.

[Lee Mac]

Can you rewrite it by vla-adddimDiametric ??

Why?

[jtoverka]

The only reason one needs a VL instead of command is to use objectDBX. That aside the work is already done for you.

[HOSNEYALAA]

TRY ANTHER  LISP FROM LEE

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

[JohnK]

• The OP could want to start learning the VL object model (not saying examples v the documentation is the better route to learn but...) because it sounds like they started to do their research?
• Try one from yourself?
• Try the one that doesn't work ( https://www.theswamp.org/index.php?topic=49517.msg546591#msg546591 ) and make it work.

[d2010]

SubTitle=I change whiteBackGround to manyGreen.
Q1=How to replace the onlyALL->manyGreen with other Image isInside a23.jpg?
Q2=You need execute (dfn_cmd_canceld) all times? (for; You must be sure, make flow-Control of Commands-Prompt with "dfn_cmd_canceld").
 

Thank you so much sir,
Can you rewrite it by vla-adddimDiametric ??
Thanks in advanced.

You found full source "pp_tdcirclediameter.lsp"

[ribarm]

@all circle diameter (radiuses)