dim radius

[kalai]

i am not able to create radial dim.

code:

(command "circle" '(0 0 0) 100)

(command "dimradius" (entlast) '(200 100 0))

 

i am not getting error but radial dim is not created.

 

help me.

[fixo]

How about:

(vl-cmdf "_.circle" "_non" '(0 0 0) 100)
(vl-cmdf "_.dimradius"

(ssname (ssget "L") 0)
 '(200 100 0)
 )

[Lee Mac]

I think perhaps:

 

(command "_.circle" "_non" '(0. 0. 0.) 100.)
(command "_.dimradius" (list (entlast) '(100. 0. 0.)) "_non" '(200. 100. 0.))

[kalai]

thanks it works,

 

can u explain '(100. 0. 0.)??

i cant understand

[fixo]

Mine code is working on my end with no problems as well (A2010/2009)

[Lee Mac]

Mine code is working on my end with no problems as well (A2010/2009)

 

Sorry Fixo, yours works too

 

@kalai: '(100. 0. 0.) is a point on the circle - I would suggest using Fixo's method though.

[kalai]

sorry fixo,

your code also works

thank you

 

but i have a collection of circles of varying radius to be dimensioned.

how shall i proceed?

 

 

Also i have change the text ht and arrow size?

[fixo]

Glad if so

You have to create selection set

something like:

(setq sset (ssget (list (cons 0 "circle"))))

then loop through selected items usual way

(while (setq en (ssname sset 0))
(setq elist (entget en)
center (cdr (assoc 10 elist))
rad (cdr (assoc 10 elist)
pt (polar center 0 rad))
(vl-cmdf "_.dimradius"
(ssname (ssget "pt) 0)
pt )
(ssdel en sset)
);end while

Cheers

Edited May 10, 2011 by fixo
code added

[kalai]

fixo,

 

but i have a collection of circles of varying radius to be dimensioned.

how shall i proceed?

 

 

Also i have change the text ht and arrow size?

[kalai]

FIXO ,

 

iam getting error at this point,

(vl-cmdf "_.dimradius"

(ssname (ssget "pt) 0)

pt )

pls check,

[Lee Mac]

Maybe use:

 

(defun c:test ( / ss i e p r )
 (if (setq ss (ssget '((0 . "CIRCLE"))))
   (repeat (setq i (sslength ss))
     (setq e (ssname ss (setq i (1- i)))
           p (cdr (assoc 10 (entget e)))
           r (cdr (assoc 40 (entget e)))
     )
     (vl-cmdf "_.dimradius" (list e (polar p 0 r)) "_non" (polar p 0 r))
   )
 )
 (princ)
)

[fixo]

FIXO ,

 

iam getting error at this point,

(vl-cmdf "_.dimradius"

(ssname (ssget "pt) 0)

pt )

pls check,

Sorry I wrote it without editor

Try instead

(defun C:mdrad(/ cp elist en pt rad sset)
(if (setq sset (ssget '((0 . "circle"))))
 (while
   (setq en (ssname sset 0))
   (setq elist (entget en)
  cp (cdr (assoc 10 elist))
  rad (cdr (assoc 40 elist))
  pt (trans (polar cp (/ pi 4) rad) 1 0))
    (vl-cmdf "_.dimradius"
      (ssname (ssget pt '((0 . "circle"))) 0)
      pt
      )
    (ssdel en sset)
   )
 )
(princ)
)

[ricardo matos]

pls, can you explain why "_non" and whay '(200. 100. 0.))

i cant understand

[Lee Mac]

See this tutorial: http://lee-mac.com/scriptwriting.html

[ricardo matos]

lee mec tks. and now '(200 100 0)?

[Lee Mac]

'(200 100 0) is a literal list representing the 3D coordinate (200, 100, 0).

[ricardo matos]

now understand. tks Lee Mac

[ricardo matos]

Now l want creat a lisp using DIMARC with just points.l not want click in arc, l want click just in points.

 

Lee Mac can you help me again?

[ricardo matos]

if l have

 

(setq list_1(assoc 8 "red"))

 

l can subst

 

(setq list_1(entmod(subst(cons 8 "green")(assoc 8 list_1)list_1)))

 

 

but, how can l subst (10 6433.43 9440.89 0)

(10 0 0 0) ?????