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

[分享]顺序为零件编号

<p><font face="Verdana">顺序为零件编号</font></p>
<p>欢迎大家下载使用和学习！</p>

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

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

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

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

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

<p>很好，如果能框选一个范围，或自动从左向右，从上至下标注就更好</p>
<p>学习了</p>
<p>谢谢楼主</p>

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

<p>什么源码</p>
<p>&nbsp;</p>

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

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

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

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

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

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

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

本帖最后由 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
   ())

(defun ( / m d0 pt3 pt4 pt5 pt6 pt7 s1 s2 s3 pt8 pt9 pt10 a2 nn)
   (setqnn 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) 0nums)
    (COMMAND "TEXT" "C" PT10 0 NUMS)
   )
   (setq nums (1+ nums))
)

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

不能按图框放大而自动放大，还不够完美，参见http://bbs.mjtd.com/thread-93839-1-1.html
页: [1]
查看完整版本: [分享]顺序为零件编号