不知道标注全局比例？就动态修改。附: 标注断开及连续标注，标注合并

q3_2006 · 发表于 2013-6-30 09:27

如果能键盘输入变量值，就更好了！

阿然 · 发表于 2013-6-30 09:34

[以下内容回复可见]-

yoyoho · 发表于 2013-6-30 09:46

不错的程序,学习一下!

669423907 · 发表于 2013-6-30 13:47

首先非常感谢楼主分享并更新。
就使用观过程中提个问题：
在一个零件上用了标注样式1，我把其中一个没有标公差的标注改变到合适的大小了，然后我想把这个零件上的所有标注都改过来，于是我用格式刷去刷，结果所有的尺寸都没有公差了。
不知道是否方便改成多选的呢？

ucuc2003 · 发表于 2013-6-30 16:18

很不错的程序，引来了很多高手！

ucuc2003 · 发表于 2013-6-30 16:25

yxp 发表于 2013-7-2 21:59
哈哈，难道这就是抛砖引玉？再来一个。

太给力了！！又是源码！！

ucuc2003 · 发表于 2013-6-30 21:44

楼主卖1一个币的“合并标注”还有BUG....

yxp · 发表于 2013-6-30 22:06

本帖最后由 yxp 于 2013-6-30 22:09 编辑

ucuc2003 发表于 2013-6-30 21:44
楼主卖1一个币的“合并标注”还有BUG....

sorry ，原程序已更新，如果你不想下载就用下面的getmxy函数,替换原来的同名函数即可，Lsort 函数在标注断开里有

(defun getmxy(ssent / ptx xx yy A xl sa)
(foreach x ssent
(setq ptx (cons (dxf 13 (entget x)) ptx)
      ptx (cons (dxf 14 (entget x)) ptx)))
(setq xl (entget (dxf -2 (tblsearch "block" (dxf 2 (entget (car ssent))))))
   A (angle (dxf 10 xl) (dxf 11 xl)))
(cond
   ((equal SA 1 1e-6) (setq ppt (Lsort ptx 0)))
   ((equal SA 0 1e-6) (setq ppt (Lsort ptx 1)))
   (t (setq ppt (Lsort ptx 2)))
  )(list (car ppt)(last ppt))
)

yzr2002626 · 发表于 2013-6-30 22:15

不错的程序,学习一下!

ucuc2003 · 发表于 2013-6-30 22:48

ucuc2003 发表于 2013-7-4 16:44
楼主卖1一个币的“合并标注”还有BUG....

哈哈，没事，修改了我再下

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

[源码] 不知道标注全局比例？就动态修改。附: 标注断开及连续标注，标注合并

点评

点评

本帖子中包含更多资源

点评