设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [分享]：固定\恢复 标注文字值 的程序
12下一页
返回列表 发新帖
查看: 7851|回复: 23

[分享]：固定\恢复 标注文字值 的程序

[复制链接]
wkai
发表于 2003-12-18 13:02:46 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
多比例图形混排时，需要放大一些图形，可是这些图形的中的尺寸值就会发生变化。这种情况下有的把尺寸炸开，有的把这部分图形做成块再放大，还有就是修改尺寸的线形比例，这些办法虽然可以解决问题，但都有不便之处。

试试这个 固定\恢复 标注文字值 。


  3.   [FONT=courier new]
  4. ;_2003.12.16.12.36__BY__WKAI__晓东CAD论坛
  5. ;>>FIXD    固定尺寸标注中的文字值
  6. (defun c:fixd (/ s sc e ee p1 p2 an an1 ang dis dis1 n)
  7.   (setq procision 0)
  8.   (setq s (ssget '((0 . "DIMENSION"))))
  9.   (setq sc (getreal "\n比例:"))
  10.   (if (not sc)
  11.     (setq sc 1)
  12.   )
  13.   (setq        n 0
  14.         e (ssname s n)
  15.   )
  16.   (while e
  17.     (if        (= "" (as 1 e))
  18.       (progn
  19.         (if (= (as 70 e) 32)
  20.           (progn
  21.             (setq an (as 50 e))
  22.             (setq p1 (as 13 e))
  23.             (setq p2 (as 14 e))
  24.             (setq an1 (angle p1 p2))
  25.             (setq ang (abs (- an1 an)))
  26.             (setq dis (* (cos ang) (distance p1 p2)))
  27.             (setq dis (* dis sc))
  28.             (setq dis (rtos dis 2 procision))
  29.             (setq dis (cons 1 dis))
  30.             (setq ee (subst dis (assoc 1 (entget e)) (entget e)))
  31.             (entmod ee)
  32.           )
  33.         )
  34.         (if (= (as 70 e) 33)
  35.           (progn
  36.             (setq p1 (as 13 e))
  37.             (setq p2 (as 14 e))
  38.             (setq dis (abs (distance p1 p2)))
  39.             (setq dis (* dis sc))
  40.             (setq dis (rtos dis 2 procision))
  41.             (setq dis (cons 1 dis))
  42.             (setq ee (subst dis (assoc 1 (entget e)) (entget e)))
  43.             (entmod ee)
  44.           )
  45.         )
  46.         (if (= (as 70 e) 35)
  47.           (progn
  48.             (setq p1 (as 10 e))
  49.             (setq p2 (as 15 e))
  50.             (setq dis (abs (distance p1 p2)))
  51.             (setq dis (* dis sc))
  52.             (setq dis (strcat "D=" (rtos dis 2 procision)))
  53.             (setq dis (cons 1 dis))
  54.             (setq ee (subst dis (assoc 1 (entget e)) (entget e)))
  55.             (entmod ee)
  56.           )
  57.         )
  58.         (if (= (as 70 e) 36)
  59.           (progn
  60.             (setq p1 (as 10 e))
  61.             (setq p2 (as 15 e))
  62.             (setq dis (abs (distance p1 p2)))
  63.             (setq dis (* dis sc))
  64.             (setq dis (strcat "R=" (rtos dis 2 procision)))
  65.             (setq dis (cons 1 dis))
  66.             (setq ee (subst dis (assoc 1 (entget e)) (entget e)))
  67.             (entmod ee)
  68.           )
  69.         )
  70.       )
  71.     )
  72.     (setq n (+ 1 n)
  73.           e (ssname s n)
  74.     )
  75.   )
  76. )
  77. ;>>FRED    恢复尺寸标注中的文字为默认值
  78. (defun c:fred (/ s n e ee)
  79.   (setq s (ssget '((0 . "DIMENSION"))))
  80.   (setq        n 0
  81.         e (ssname s n)
  82.   )
  83.   (while e
  84.     (setq ee (subst (cons 1 "") (assoc 1 (entget e)) (entget e)))
  85.     (entmod ee)
  86.     (setq n (+ 1 n)
  87.           e (ssname s n)
  88.     )
  89.   )
  90. )

  92. ((defun as (a b /)
  93.   (cdr (assoc a (entget b)))
  94. )  [/FONT]
setq, dis, entget

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

coolzhb
发表于 2003-12-18 13:43:46 | 显示全部楼层

Re: [分享]：固定\恢复 标注文字值 的程序

最初由 wkai 发布
[B]多比例图形混排时，需要放大一些图形，可是这些图形的中的尺寸值就会发生变化。这种情况下有的把尺寸炸开，有的把这部分图形做成块再放大，还有就是修改尺寸的线形比例，这些办法虽然可以解决问题，但都有不便之处。... [/B]


看了一下，编得不错！但如果尺寸是修改后的数值，程序会跳过，应增加判断一下！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wkai
 楼主| 发表于 2003-12-18 14:14:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

Re: Re: [分享]：固定\恢复 标注文字值 的程序

最初由 coolzhb 发布
[B]
如果尺寸是修改后的数值，程序会跳过，应增加判断一下！
[/B]


这么写有点原因，比如有些尺寸可能文字值已经改成了 "8等分" 或者其他什么，就不会受到这个程序的影响。

对于已经固定过的尺寸，如果想按新比例固定尺寸值，可以先恢复一下它们的尺寸值。
：）
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

dwgplt
发表于 2003-12-22 00:39:05 | 显示全部楼层
加载程序，不能用，有以下提示：
命令: APPLOAD
已成功加载 FIXD.lsp。


命令: ; 错误: 输入的列表有缺陷
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-12-22 01:22:57 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

Re: [分享]：固定\恢复 标注文字值 的程序

最初由 wkai 发布
[B]多比例图形混排时，需要放大一些图形，可是这些图形的中的尺寸值就会发生变化。这种情况下有的把尺寸炸开，有的把这部分图形做成块再放大，还有就是修改尺寸的线形比例，这些办法虽然可以解决问题，但都有不便之处。... [/B]


你是算距离得出尺寸的,那么如果标注样式设了比例，不是1：100怎么办?

以前讨论过的，找找!
(r2002,可以直接看组码，r14就要向里查)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2003-12-22 02:29:43 | 显示全部楼层
看看我的固定,至于恢复嘛,不写也罢
(command ".dim" "new" "<>" )
;;其实以下程序有一个bug,是在一次偶然的情况下发现的.嘻嘻,先卖个关子,不知哪位能说出来:)
过几天写个更完善的.可以做总结版了

  3. ;;*** dmvl ==锁定dim标注数值－v2－－－－－－陌生人.2002.11
  4. ;;v1.0 1999.2 v2.0 2002.11
  5. ;;v2.0 更改计算方法，加入考虑标注类型的比例因子 dimaltf; dimv取消，改名为dmvl(dim val lock)
  6. (princ "\ndmvl ==锁定dim标注数值－v2－－－－－－陌生人.2002.11\n")
  7. ;;
  8. (defun c:dmvl (/ ss i ent e e1 e10 e13 p14 ang e13e e13p dist dimst st se271 se144 val)
  9. (princ "\ndmvl ==锁定dim标注数值－v2－－－－－－陌生人.2002.11")
  10. (setq ss (ssget '((0 . "DIMENSION"))) i 0 )
  11. (repeat (sslength ss)
  12.   (setq ent (ssname ss i)
  13.         e (entget ent)
  14.         e1 (cdr (assoc 1 e))
  15.         e10 (cdr (assoc 10 e))
  16.         e13 (cdr (assoc 13 e))
  17.         e14 (cdr (assoc 14 e))
  18.         ang (angle e10 e14)
  19.         e13e (polar e13 (+ (/ PI 2)(angle e10 e14)) 100)
  20.         e13p (inters e13 e13e e10 e14 nil)
  21.         dist (distance e13 e13p)
  22.         dimst (cdr (assoc 3 e))
  23.         st (tblsearch "dimstyle" dimst) ;;搜索符号表
  24.         se271 (cdr (assoc 271 st))  ;;得到小数位
  25.         se144 (cdr (assoc 144 st))  ;;数字比例因子
  26.         val (* se144 dist)          ;;乘积为默认标注数值
  27.         val (rtos val 2 se271) ;;转为字符
  28.         i (1+ i)
  29.   )
  30.   (if (or (= "" e1)(wcmatch e1 "*<>*")) ;;<>是必须的判断！
  31.      (progn
  32.        (setq e (subst (cons 1 val) (assoc 1 e) e))
  33.        (entmod e)
  34.        (entupd ent)
  35.      )
  36.   );if
  37. );end repeat
  38. (princ)
  39. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lsjjm
发表于 2003-12-22 03:38:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

Re: [分享]：固定\恢复 标注文字值 的程序

最初由 wkai 发布
[B]多比例图形混排时，需要放大一些图形，可是这些图形的中的尺寸值就会发生变化...[/B]


另类思维:
还是1:1的在模型空间画图为好. 如果你需要不同比例的出图, 可以在图纸空间设立不同比例, 不同DIMSACLE的视区
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

coolzhb
发表于 2003-12-22 09:07:26 | 显示全部楼层
最初由 陌生人 发布
[B]看看我的固定,至于恢复嘛,不写也罢
(command ".dim" "new" "<>" )
;;其实以下程序有一个bug,是在一次偶然的情况下发现的.嘻嘻,先卖个关子,不知哪位能说出来:)
过几天写个更完善的.可以做总结版了
[/B]


我发现你程序中的bug了：当标注的第一和第二点的Z坐标不同时，你的程序不能修改尺寸值！因为inter的交点求不到！不知道您说的bug是不是这个！我也是偶尔发现的！

不过这个bug很容易解决，加一句话即可！修改后的程序如下


  3.   [FONT=courier new]
  4. (defun c:dmvl (/ ss i ent e e1 e10 e13 p14 ang e13e e13p dist dimst st se271 se144 val)
  5. (princ "\ndmvl ==锁定dim标注数值－v2－－－－－－陌生人.2002.11")
  6. (setq ss (ssget '((0 . "DIMENSION"))) i 0 )
  7. (repeat (sslength ss)
  8.   (setq ent (ssname ss i)
  9.         e (entget ent)
  10.         e1 (cdr (assoc 1 e))
  11.         e10 (cdr (assoc 10 e))
  12.         e13 (cdr (assoc 13 e))

  14.         e13 (list (car e13) (cadr e13) (caddr e10))  
  15.                 ;;解决此bug的语句 Modified by coolzhb

  17.         e14 (cdr (assoc 14 e))

  19.         e14 (list (car e14) (cadr e14) (caddr e10))  
  20.                 ;;解决此bug的语句 Modified by coolzhb
  21.         
  22.         ang (angle e10 e14)
  23.         e13e (polar e13 (+ (/ PI 2)(angle e10 e14)) 100)
  24.         e13p (inters e13 e13e e10 e14 nil)
  25.         dist (distance e13 e13p)
  26.         dimst (cdr (assoc 3 e))
  27.         st (tblsearch "dimstyle" dimst) ;;搜索符号表
  28.         se271 (cdr (assoc 271 st))  ;;得到小数位
  29.         se144 (cdr (assoc 144 st))  ;;数字比例因子
  30.         val (* se144 dist)          ;;乘积为默认标注数值
  31.         val (rtos val 2 se271) ;;转为字符
  32.         i (1+ i)
  33.   )
  34.   (if (or (= "" e1)(wcmatch e1 "*<>*")) ;;<>是必须的判断！
  35.      (progn
  36.        (setq e (subst (cons 1 val) (assoc 1 e) e))
  37.        (entmod e)
  38.        (entupd ent)
  39.      )
  40.   );if
  41. );end repeat
  42. (princ)
  43. )

  45.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

aeo

已领礼包: 488个

财富等级: 日进斗金
发表于 2003-12-22 22:50:35 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
R2002下
dxf42 ,不用求
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

LUCAS
发表于 2003-12-25 10:39:16 | 显示全部楼层
最初由 陌生人 发布
[B]看看我的固定,至于恢复嘛,不写也罢
(command ".dim" "new" "<>" )
;;其实以下程序有一个bug,是在一次偶然的情况下发现的.嘻嘻,先卖个关子,不知哪位能说出来:)
过几天写个更完善的.可以做总结版了
[code]
;;***... [/B]



;;陌生人:程序對 圓 & 弧 & 角度 皆不對

;;看來曉東大部份網友是做建築的,要知道機械上尺寸都會帶公差,在沒有VLISP(R14)時代,
;;修改尺寸(各種系統變數_如:比例 顏色....)要保有不同的公差很麻煩(可以說困難),更別談還原
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

2002zjp
发表于 2004-3-3 22:44:08 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
好东西。正是我需要的。谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

andyhua5240
发表于 2004-3-4 15:57:08 | 显示全部楼层
不是吧，楼主们！就没有一人能帮助我们这些LISP盲们整理一下吗？
好的东西当然要发扬光大，但是我们不懂呀，也想用用楼主们的东东呀，怎么办呢？
求求整理一下吧！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

陌生人
发表于 2004-3-4 17:18:32 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
鼓励自己动手！其实很简单，智商>30的都可以做到
方法是：
将程序段，即选取以“(defun ”开始 到 最后一个“)” 部分，鼠标右键“复制”，打开任何一文本编辑程序（如，winpad, uedit等），新建一个文档，粘贴，保存为*.lsp 文件（直接输入后缀）.
* 即 (defun c:xxx ()...) 中的xxx。
如8楼的帖子，保存为 dmvl.lsp 文件。
在cad中用 菜单 工具/加载应用程序，加载。也可以在acad*.lsp中加载（详有关帖子，已经有很多这样的帖子）
如果只是简单测试：可以拷贝程序段后，在cad命令行中用粘贴命令。即完成加载。可立即输入命令（defun c:后的字符串）调用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lsjjm
发表于 2004-3-5 14:34:09 | 显示全部楼层
隔行如隔山哪，机械图也有不同比例；尺寸，文字也有不同大小。看来各自有各自的需求，罗卜白菜各有所爱！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

ywx0576
发表于 2004-3-5 18:00:11 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
陌生人的程序用在角度标注、半径、直径标注上都会出错。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

下一页 »
12下一页
返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2025-9-29 07:09 , Processed in 0.342351 second(s), 61 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

快速回复 返回顶部 返回列表