[求助]：白金长老你好，能不能给我的序号球加一条直线，多谢了！！！

li_seagull

白金长老你好，我是一只菜鸟，能不能给我的动态序号球加一条直线，多谢了！！！

lsjjm

请说明你“动态序号球”使用的工作环境，程序的功能要求。如批量处理，还是单个？序号球的引线是LINE还是LEDEAR？
其实论坛也有好多关于序号球的贴子也可参考。

li_seagull

要求字高为4倍的DIMSCALE，半径为4倍的DIMSCALE，文字要手工输入，有一条直线（line），不用有箭头，圆与文字随光标移动，直线始终指向圆的中心，谢谢！！！

lsjjm

直线的起点呢? 以何种方式输入?

li_seagull

直线的起点，用光标在屏幕上点一下为直线的起点，再点一下为圆心点！！！谢谢！！！

lsjjm

试试这个：
[php]
(defun c:test () ;;line
  (vl-load-com)
  (setq h (* 4 (getvar "dimscale"))
        r h
       sn 1)
  (while sn
    (setq p0 (getpoint "\nPick Insert Point:"))
    (setq loop t)
    (command "circle" p0 r)
    (setq ceo (vlax-ename->vla-object (entlast)))
    (vl-cmdf "text" "j" "m" p0 h 0 (itoa sn) "")
    (setq teo (vlax-ename->vla-object (entlast)))
    (vl-cmdf "line" p0 (polar p0 (/ pi 4) 1) "")
    (setq leo (vlax-ename->vla-object (entlast)))
    (while loop
      (setq p (grread T))
      (setq k (car p)
            p (cadr p))
      (if (= k 3)(setq loop nil))
      (vla-put-center ceo (vlax-3d-point p))
      (vla-put-textalignmentpoint teo (vlax-3d-point p))
      (vla-put-startpoint leo (vlax-3d-point p0))
      (vla-put-endpoint leo (vlax-3d-point (polar p (angle p p0) r)))
    )
    (setq sn (1+ sn))
    (setq ct (getstring "\nContinue<N>?"))
    (if (= (strcase ct) "N")(setq sn nil))
  )
)
[/php]

li_seagull

谢谢 lsjjm  ，非常感谢，如果我想手工输入文字怎么样改这个程序。