[分享]顺序为零件编号

dkj0322 · 发表于 2010-11-9 07:16

顺序为零件编号

欢迎大家下载使用和学习！

hydkot99 · 发表于 2010-11-9 08:47

不错，能够自动水平或垂直对齐就更好了

461045462 · 发表于 2010-11-10 09:49

很好，如果能框选一个范围，或自动从左向右，从上至下标注就更好

学习了

谢谢楼主

zwf100 · 发表于 2010-11-23 20:15

什么源码

风流少年时 · 发表于 2010-12-26 03:08

这个人的东西我见过很多，却不怎么大方。

xiaoshi112 · 发表于 2011-2-4 23:59

不知用什么语言？VB?LSP?

yygusong · 发表于 2011-8-9 20:38

还是框选图块，自动读出图名比较方便

zhouwanweihf · 发表于 2011-11-22 23:57

请高手编写图框自动页码的程序，谢谢

GamIng · 发表于 2011-11-27 09:47

本帖最后由 GamIng 于 2011-11-27 09:48 编辑

贴上楼主的程序：
(defun c:KK ( / pt1 pt2 numa nums lr );HH_sca
  (defun wljxh (pt1 pt2 numa nums lr);HH_sca
([ljxh]))

  (defun [ljxh] ( / m d0 pt3 pt4 pt5 pt6 pt7 s1 s2 s3 pt8 pt9 pt10 a2 nn)
(setq  nn 1)
(setq d0 (* HH_sca 8.0))
(setq a2 (if (> (car pt2) (car pt1)) 0 pi))
(setq pt3 (polar pt2 a2 d0) m 1)
(setq pt9 (polar pt2 a2 (* d0 0.5)))
(setq pt10 (polar pt9 (* pi 0.5) (* 1.5 HH_sca)))
(command "layer" "M" 2 "" "line" pt1 pt2 pt3 "")
(command "doughnut" 0 (* HH_sca 1) pt1 "")
(IF (= (CDR (ASSOC 40 (TBLSEARCH "STYLE" (GETVAR "TEXTSTYLE")))) 0.0)
(command "text" "C" pt10 (* 5 HH_sca) 0  nums)
(COMMAND "TEXT" "C" PT10 0 NUMS)
)
(setq nums (1+ nums))
  )

s678z · 发表于 2012-6-7 11:29

不能按图框放大而自动放大，还不够完美，参见http://bbs.mjtd.com/thread-93839-1-1.html

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

[分享]顺序为零件编号

本帖子中包含更多资源

点评