[原创]锁定dim标注数值(支持公差等格式)

wyj_007

无痕发表于2004-3-19 23:46:00重发支持r14的标注固定硬改法 ;;(getdimtext dimentity) = 取出标注的文本! ;;支持所有标注类型.(defun c:dmvl (/ ss n dm dml) (pr...

我进行了测试，发现程序中e缺少原始对象，应当在
(while roop
(setq e (entnext e)
.........)
前加一句(setq e dimblk)语句定义，否则执行时会出现e值为nil的错误。
还有当尺寸值为空格时，程序将出错,故应当加一段补丁语句。
总的来讲，程序已是相当不错了。
以下是调整后程序： ;;(getdimtext dimentity) = 取出标注的文本!
;;取标注文本.
(defun getdimtext (ent / dimblk roop e el tig)
(setq dimblk (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget ent))))))
roop T)
(setq e dimblk)
(setq pp 0 tig 1)
(while roop
(setq e (entnext e))
(if (not (= e nil))
(progn
(setq el(entget e))
(setq dt (assoc 1 el))
(if (member '(100 . "AcDbMText") el);(member '(0 . "MTEXT") el)
(setq roop nil)
)
)
(setq tig 0 roop nil)
)
)
(if (= tig 1)
(cdr (assoc 1 el));"\\A1; "
' " "
)
)
;;支持所有标注类型.
(defun c:cdimtot (/ ss n dm dml)
(princ "\ndmvl = 块定义修改法－固定标注文字! ------by 无痕.2004.3
\n选择要固定文字的标注:")
(setq ss (ssget '((0 . "DIMENSION"))))
(repeat (setq n (sslength ss))
(setq dm (ssname ss (setq n (1- n)))
dml(entget dm)
dml(subst (cons 1 (getdimtext dm))(assoc 1 dml) dml)
)
(entmod dml)
)
(princ (strcat "\n共处理" (itoa (sslength ss)) "个标注:"))
(princ)
)

无痕

谢谢wyj_007 朋友帮找bug。重贴一次程序

2. ;; dmvl = 块定义修改法－固定标注文字! v1.1-----by无痕.2004.3
3. ;; 支持所有标注类型.
4. ;;(getdimtext dimentity) = 取出标注的文本!
5. (defun c:dmvl (/ ss n dm dml)
6.    (princ "\n选择要固定文字的标注:")
7.    (setq ss (ssget '((0 . "DIMENSION"))))
8.    (repeat (setq n (sslength ss))
9.        (setq dm (ssname ss (setq n (1- n)))
10.      dml(entget dm)
11.      dml(subst (cons 1 (getdimtext dm))(assoc 1 dml) dml))
12.        (entmod dml)
13.    )(princ (strcat "\n共处理" (itoa (sslength ss)) "个标注:"))
14.    (princ)
15. )
16. ;;取标注文本.  
17. (defun getdimtext (dm / e el)
18.    (setq e (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget dm)))))))
19.    (while (and (setq e (entnext e))
20.              (not (member '(100 . "AcDbMText") (setq el (entget e)))))
21.    )
22.    (if e (cdr (assoc 1 el)) " ")
23. )

;; dmvl = 块定义修改法－固定标注文字! v1.1-----by无痕.2004.3 ;; 支持所有标注类型. ;;(getdimtext dimentity) = 取出标注的文本! (defun c:dmvl (/ ss n dm dml)    (princ "\n选择要固定文字的标注:")    (setq ss (ssget '((0 . "DIMENSION"))))    (repeat (setq n (sslength ss))        (setq dm (ssname ss (setq n (1- n)))      dml(entget dm)      dml(subst (cons 1 (getdimtext dm))(assoc 1 dml) dml))        (entmod dml)    )(princ (strcat "\n共处理" (itoa (sslength ss)) "个标注:"))    (princ) ) ;;取标注文本.   (defun getdimtext (dm / e el)    (setq e (cdr (assoc -2 (tblsearch "block" (cdr (assoc 2 (entget dm)))))))    (while (and (setq e (entnext e))              (not (member '(100 . "AcDbMText") (setq el (entget e)))))    )    (if e (cdr (assoc 1 el)) " ") )

bbo

xie xie

SWAYWOOD

无痕大侠，你的程序很简洁，不过对于这样的标注不行。。。

SWAYWOOD

dwg上传不了,只能给各图片了


       

无痕

请上传dwg文件

SWAYWOOD

无法上传DWG我发到你的邮箱中了

无痕

你用zip或rar压缩dwg文件上传就可以了


我的email有时候是乱写的，可能收不到哦，：P

li809

好,学到了不少

SWAYWOOD

怎么固定这个