Topic: help! groups?

[Q1241274614]

1 ssget

2 elements in 3

[Tharwat]

Is this a puzzle ?

[irneb]

If you mean that selecting one item gives a selection set of 3 items, that's because they've been grouped and your group selection is turned on. Try adjusting PickStyle:
http://docs.autodesk.com/ARCHDESK/2013/ENU/index.html?url=filesACD/GUID-C20C24AD-81F5-4E4A-A414-B1A2BC71E041.htm,topicNumber=ACDd30e201157

[Q1241274614]

(DEFUN C:TT()
  (vl-load-com)
  (setq p (getpoint "\n起点 "))
  (setq q (getpoint p "\n终点点 "))
  (setq r1 (getdist "\n起点半径"))
  (setq r2 (getdist "\n起点半径"))
  (setq l1(entmakex (list (cons 0 "LINE") (cons 10 p)(cons 11 q)(cons 62 2))))
  (setq er1(entmakex (list (cons 0 "CIRCLE") (cons 10 p) (cons 40 r1)(cons 62 4))))
  (setq er2(entmakex (list (cons 0 "CIRCLE") (cons 10 q) (cons 40 r2)(cons 62 4))))
  (vlax-ldata-put l1 "规格" (strcat "l1="(rtos (distance p q) 2 0)))
  (vlax-ldata-put er1 "规格" (strcat "r1=" (rtos r1 2 0)))
  (vlax-ldata-put er2 "规格" (strcat "r2="(rtos r2 2 0)))
)

Excuse me what method can be the same length as the radius of the circle line, the same as a group of selected objects! Contains: copy,

[CAB]

This is the Chicken or the egg riddle. 

Select objects & build a table
OR
Select the table & build the objects

[Lee Mac]

Select objects and build table?

Code: [Select]

(defun c:test ( / en in l1 l2 l3 l4 ss x1 x3 x4 )
    (if (setq ss (ssget '((0 . "LINE,CIRCLE"))))
        (progn
            (repeat (setq in (sslength ss))
                (setq en (entget (ssname ss (setq in (1- in)))))
                (if (= "LINE" (cdr (assoc 0 en)))
                    (setq l1 (cons (list (cdr (assoc 10 en)) (cdr (assoc 11 en))) l1))
                    (setq l2 (cons (list (cdr (assoc 10 en)) (cdr (assoc 40 en))) l2))
                )
            )
            (while (and l1 l2)
                (setq x1 (car l1)
                      l1 (cdr l1)
                      l3 nil
                )
                (foreach x2 l2
                    (if (and (not (cddr l3))
                            (or (equal (car x2) (car  x1) 1e-8)
                                (equal (car x2) (cadr x1) 1e-8)
                            )
                        )
                        (setq l3 (cons (cadr x2) l3)
                              l2 (vl-remove x2 l2)
                        )
                    )
                )
                (if l3
                    (if (setq x4 (assoc (setq x3 (cons (apply 'distance x1) (vl-sort l3 '<))) l4))
                        (setq l4 (subst (list x3 (1+ (cadr x4))) x4 l4))
                        (setq l4 (cons  (list x3 1) l4))
                    )
                )
            )
            (mapcar 'print l4)
        )
    )
    (princ)
)

[Q1241274614]

Thanks Lee for your explanation.

[Q1241274614]

What can be achieved by ( vlax-ldata-put ) statistics, because some elements not necessarily at the line end.