[LISP程序]：序号球自动循环生成程序

lsjjm · 发表于 2004-11-8 06:55:19

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

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

×

序号球自动循环生成程序
功能：可分别选取零件上点和序号球所在点逐步生成；
   可选引线箭头型式和字高；
   可选择起始号码；
   后续序号球与前一个自动对齐（水平或垂直）
[php]
(defun c:numball ( / pe pe0)
  (setvar "osmode" 0)
  (setvar "orthomode" 0)
  (initget "A D N")
  (setq kw (getkword "\nSelect Point Style[Arrow/Dot/None]: "))
  (if (null kw)(setq kw "A"))
  (setq ldr (getvar "DIMLDRBLK"))
  (cond
((= kw "A")(setvar "DIMLDRBLK" "."))
((= kw "D")(setvar "DIMLDRBLK" "dot"))
((= kw "N")(setvar "DIMLDRBLK" "none"))
  )
  (setq sn (getint (strcat "\nType in Start Number:<1>")))
  (if sn nil (setq sn 1))
  (setq th0 (* 1.5 (getvar "dimscale")(getvar "dimtxt")))
  (setq th (getreal (strcat "\nHeight of Text: <" (rtos th0 2 2) ">")))
  (if th nil (setq th th0))
  (setq  r (* 1.2 th))
  ;(mlayer "dim" 4 "continous")
  (setq p0 (getpoint "\nInput point"))
  (while sn
(if pe (setq pe0 pe))
(setq pe (getpoint p0 "\nPick End Point"))
(princ "\nItem Number or Break: n <")
(princ sn)
(setq sn0 (getstring ">:"))
(if pe0
   (if (< (abs (- (car pe)(car pe0)))(abs (- (cadr pe)(cadr pe0))))
      (setq pe (list (car pe0)(cadr pe)))
      (setq pe (list (car pe)(cadr pe0)))
   )
)
(command "leader" p0 (polar pe (angle pe p0) r) "" "" "n")
(vl-cmdf "circle"  pe r)
(if (= (type inum) 'STR)(setq sn (atoi sn)))
(vl-cmdf "text" "j" "m" pe th 0 (itoa sn) "")
(setq p0 (getpoint "\nPick start Point"))
(setq sn (1+ sn))
  )
)
[/php]

ycao · 发表于 2004-11-9 19:15:17

程序非常不错！谢谢楼主！

xyp1964 · 发表于 2004-11-10 13:47:55

直接标注“序号球”没有引线：
加载xhq.fas，运行xhq。
菜单项：[序号球]]^C^C^P(if (not c:xhq)(load"xhq")(princ));xhq

xyp1964 · 发表于 2004-11-10 13:50:33

程序示意

onej · 发表于 2004-11-10 14:27:32

什么是序号球？

peng197806 · 发表于 2004-12-13 21:51:24

能否做一个跟BOM想关联的程序,?就是把序号球写到BOM里?自动编号如果删除某序号球,BOM里自动删除

xxxcad · 发表于 2004-12-17 15:55:53

thanks for your share

fxdfy · 发表于 2005-12-17 20:58:16

2004使用好爽！数字怎么是横向的？与斑竹不一样？

zxq0220 · 发表于 2005-12-17 21:57:01

字形定义错误。不要用以@开头的字体。

SZ008 · 发表于 2005-12-18 12:39:28

可唔可以输入英文字母

fxdfy · 发表于 2005-12-18 21:49:18

最初由 zxq0220 发布
[B]字形定义错误。不要用以@开头的字体。 [/B]

是用hztxt.shx字体，还是数字横向的。
该序号球lisp程序自生成宋体

fxdfy · 发表于 2005-12-18 22:02:21

图2

zxq0220 · 发表于 2005-12-18 22:49:58

最初由 fxdfy 发布
[B]
是用hztxt.shx字体，还是数字横向的。
该序号球lisp程序自生成宋体 [/B]

你用的是三楼的程序吧，这得问xyp1964版主。
一楼的程序没问题。

ooohen · 发表于 2008-12-1 00:28:26

fdgfdgdfgdfgsfdgsdgsdgsdgsdgs

bikeboy · 发表于 2008-12-3 09:24:19

有点用不错不错

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

[LISP程序]：序号球自动循环生成程序

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

相关帖子