[源码]标注文本修改、线性比例、标注断开、标注合并 --待完善

hnfsf · 发表于 2009-8-14 22:38

如你所说，这个巨大的bug导致这个程序基本上没有什么用处，

是不是点的算法错了？

hnfsf · 发表于 2009-8-29 01:52

标注合并；；

(defun c:21( / d13 d14 dxf dxfn e1 e2 n p13 p14 plst ss)
(command "ucs" "w")
(setvar "cmdecho" 0)
(princ "\n选择标注尺寸...")
(setq ss (ssget '((0 . "DIMENSION"))))
(setq n -1 plst '())
(repeat (sslength ss)
     (setq dxf (entget (ssname ss (setq n (1+ n)))))
     (setq d13 (cdr (assoc 13 dxf))
           d14 (cdr (assoc 14 dxf)))
     (setq plst (cons d13 (cons d14 plst)))
)
(setq plst (vl-sort plst (function (lambda (e1 e2) (< (car e1) (car e2))))))
(setq plst (vl-sort plst (function (lambda (e1 e2) (< (cadr e1) (cadr e2))))))
(setq p13 (car plst) p14 (last plst))
(setq dxfn (subst (cons 13 p13) (assoc 13 dxf) dxf)
        dxfn (subst (cons 14 p14) (assoc 14 dxfn) dxfn))
(entmake dxfn)
(command ".erase" ss "")
(command "ucs" "p")
(princ)
)

ruirui999 · 发表于 2010-10-7 15:03

我有一个问题，比如我以1：100的绘图比例做的尺寸标注，我要改成1：50.。。。。。。如何办？

669423907 · 发表于 2011-4-6 23:22

都是高手！谢谢！

Timnis · 发表于 2012-2-15 15:06

很好很强大，太需要了。

lifenwei · 发表于 2012-3-1 22:41

hnfsf 发表于 2009-8-29 01:52
标注合并；；(defun c:21( / d13 d14 dxf dxfn e1 e2 n p13 p14 plst ss)  (command "ucs" "w")  ...

可否合并后的标注不自动指定标注样式呢？

革天明 · 发表于 2012-3-2 09:44

谢谢楼主分享

asd19400 · 发表于 2012-8-17 23:13

有bug 选择多个标注合并的时候有问题

200853006 · 发表于 2012-9-6 11:28

都是高手啊，。。

fengshi0519 · 发表于 2012-11-26 15:36

标注比例用着很方便，谢谢

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

[源码] [源码]标注文本修改、线性比例、标注断开、标注合并 --待完善