查看单个帖子
旧 2009-04-27, 10:21 AM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 求助:修改尺寸标注问题

求助:修改尺寸标注问题
www.dimcax.com
求助:修改尺寸标注问题
请论坛各位高手帮帮忙,这个程序只能修改尺寸标注的值却不能还原尺寸的实值
下面是程序的源码:
(setq txt1 "")
(defun editdim ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "n" dim2 "p" "")
(setvar "cmdecho" 1)
)
(defun editdimh ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "h" "p" "")
(setvar "cmdecho" 1)
)
(defun c:de (/ dim1 p dim2)
(setvar "cmdecho" 0)
(princ "\n请输入标注字符,允许汉字和空格。(空格->还原)(空回车->缺省值)<")
(princ txt1)
(setq dim1 (getstring t ">:"))
(cond
((= dim1 " ")(editdim))
((= dim1 "")(setq dim2 txt1)(editdim))
((= dim1 "h")(editdimh))
((setq txt1 dim1)(setq dim2 dim1)(editdim))
)
)
d
(setq txt1 "")
改为
(setq txt1 "<>")
d
谢谢指教,
我试了,可还是不行啊。你帮我调试下吧
d
(setq txt1 "")
(defun editdim ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "n" dim2 "p" "")
(setvar "cmdecho" 1)
)
(defun editdimh ()
(princ "\n选择需修改的标注 :")
(setq p (ssget))
(command "dimedit" "h" "p" "")
(setvar "cmdecho" 1)
)
(defun c:de (/ dim1 p dim2)
(setvar "cmdecho" 0)
(princ "\n请输入标注字符,允许汉字和空格。(空格->还原)(空回车->缺省值)<")
(princ txt1)
(setq dim1 (getstring t ">:"))
(cond
((= dim1 " ")(editdim))
((= dim1 "")(setq txt1 "<>" dim2 txt1)(editdim))
((= dim1 "h")(editdimh))
((setq txt1 dim1)(setq dim2 dim1)(editdim))
)
)
d
非常谢谢 问题已解决
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)