[编程申请]：求助一个动态的序号球！！！

li_seagull · 发表于 2004-11-25 12:18:06

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求助一个动态的序号球！！！急，要求字高为4倍的DIMSCALE，半径为4倍的DIMSCALE，谢谢！！！

lsjjm · 发表于 2004-11-25 17:09:52

请说说"动态的"是什么意思?

li_seagull · 发表于 2004-11-26 08:10:39

就是说能够动态显示圆与文字！！！

lsjjm · 发表于 2004-11-26 11:17:33

下面的程序满足你“动态”的要求了，不知这样有什么用途。最好把标注序号球的具体要求说清楚，比如，有没有引线？什么形式的？论坛里有不少关于序号球的程序，可参考一下。[PHP]
(defun c:test ()
  (vl-load-com)
  (setq h (* 4 (getvar "dimscale"))
      r h
   sn 1
   p0 '(0 0 0))
  (while sn
(setq loop t)
(command "circle" p0 r)
(setq ce (entlast))
(setq ceo (vlax-ename->vla-object ce))
(vl-cmdf "text" "j" "m" p0 h 0 (itoa sn) "")
(setq te (entlast))
(setq teo (vlax-ename->vla-object te))
(while loop
   (setq p (grread T)
          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))
   (setq p0 p)
)
(setq sn (1+ sn))
(setq ct (getstring "\nContinue<N>?"))
(if (= (strcase ct) "N")
   (setq sn nil)
)
  )
)
[/PHP]

li_seagull · 发表于 2004-11-26 12:02:16

谢谢白金长老了，能不能在这个程序上加一条引线，文字要手工输入，就达到我的目的了，非常感谢！

lsjjm · 发表于 2004-11-26 14:29:33

你看看, 为什么不一次说完呢? 我还特意把引线给去掉了. 就算给你留的作业吧, 自己试试.

wzg · 发表于 2004-11-26 16:12:23

请问：用lisp能否实现？

li_seagull · 发表于 2004-12-1 12:22:50

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

账号		自动登录	找回密码
密码			立即注册

[编程申请]：求助一个动态的序号球！！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子