[LISP程序]：批量生成序号球

lsjjm

批量生成序号球
功能: 点击诸零件上点按行列自动生成带引线的连续序号球.
[php]
(defun c:test ( / p pl)               
  (setvar "osmode" 0)
  (while (setq p (getpoint "\nPick Point in Part< \"Enter\" Stop>: "))
    (setq pl (cons p pl))
  )
  (setq plx (vl-sort pl '(lambda (p1 p2)(< (car p1)(car p2)))))
  (setq ply (vl-sort pl '(lambda (p1 p2)(> (cadr p1)(cadr p2)))))
  (if (> (- (car (last plx))(car (car plx)))
        (- (cadr (last plx))(cadr (car plx))))
    (setq pl plx ang 0)
    (setq pl ply ang (* 1.5 pi))
  )  
  (setq th (* (getvar "dimscale")(getvar "dimtxt")))
  (setq r (* 1.5 th))
  (setq pe (getpoint "\nPick the Point to place: "))
  (setq n 0)
  (while (< n (length pl))
    (vl-cmdf "circle" pe r)
    (vl-cmdf "text" "j" "m" pe th 0 (itoa (1+ n)) "")
    (setq pte (polar pe (angle pe (nth n pl)) r))
    (command "leader" (nth n pl) pte "" "" "n")
    (setq pe (polar pe ang 1))
    (setq n (1+ n))
  )
)
[/php]

自由的鱼

好程序~~~可以扩展！

xjxing

好东西！能否改为设置件号标注形式：圆圈and横线？

li809

制轴网时可用,好