[编程申请]：怎么样才能实现拾取一个圆,同时也选择了与圆相过的一条直线和圆内的文字?

li_seagull

怎么样才能实现拾取一个圆,同时也选择了与圆相过的一条直线和圆内的文字?

比如说我要移动一个带线的序号球,我只选中圆就行,直线与文字同时移动.

谢谢大家支持,本人非常感谢!!!

xyp1964

为什么不用属性块？

ooohen

good``````````````````````````````````````````

axin0305

这东西干啥的啊

myiiid

什么意思啊？

zj-οО○oοО

[PHP]
(DEFUN c:t1 (/ cir_en pt rad ptlst ang sl)
  (SETQ        cir_en (CAR (ENTSEL "\n请选择一个圆："))
                ang           0
  )
  (WHILE (NOT (AND (= (TYPE cir_en) 'ename) (= (dxf 0 cir_en) "CIRCLE")))
        (SETQ cir_en (CAR (ENTSEL (IF (NULL cir_en)
                                                   "\n未选择对象，请重新选择： "
                                                   "\n选择的对象不是圆，请重新选择： "
                                                 )
                                           )
                                  )
        )
  )
  (SETQ        pt        (dxf 10 cir_en) rad        (dxf 40 cir_en))
  (REPEAT 60
        (SETQ ptlst        (APPEND        (LIST (POLAR pt (SETQ ang (+ ang (/ PI 30))) rad)) ptlst))
  )
  (SETQ sl (SSGET "CP" ptlst '((0 . "TEXT,MTEXT,LINE"))))
  (PRINC "\n共选择了 ")
  (PRINC (SSLENGTH (CADR (SSSETFIRST ni (SSADD cir_en (IF (NULL sl) (SSADD) sl))))))
  (PRINC " 个对象.")
  (COMMAND "MOVE" pt PAUSE)
  (PRINC)
)

(DEFUN dxf (code en) (CDR (ASSOC code (ENTGET en))))
[/PHP]