找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: lucas3

[求助] 修改标注精度

[复制链接]

已领礼包: 3198个

财富等级: 富可敌国

 楼主| 发表于 2014-8-13 16:21:56 | 显示全部楼层

谢谢Free-Lancer大师,您的程序完美解决了我的问题,还有一点小小的请求,就是角度标注的精度,如果原程序中增加对角度标注精度的修改最好,如果不行那能否增加一个?命令t3用于修改角度标注精度。

点评

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

使用道具 举报

发表于 2014-8-13 16:46:22 | 显示全部楼层
lucas3 发表于 2014-8-13 16:21
谢谢Free-Lancer大师,您的程序完美解决了我的问题,还有一点小小的请求,就是角度标注的精度,如果原程 ...


增加个判断即可
  1. (defun c:t1 (/ n)
  2.   (fy:begin)
  3.   (if (and (ssget '((0 . "DIM*")))
  4.            (setq n (getint "\n精度: "))
  5.            (<= 0 n 8)
  6.       )
  7.     (vlax-for dim (fy:cset)
  8.       (if (vlax-property-available-p dim 'TextPrecision)
  9.         (vla-put-TextPrecision dim n)
  10.         (vla-put-PrimaryUnitsPrecision dim n)
  11.       )
  12.     )
  13.   )
  14.   (fy:end)
  15.   (princ)
  16. )
  17. (defun c:t2 ()
  18.   (fy:begin)
  19.   (if (ssget '((0 . "DIM*")))
  20.     (vlax-for dim (fy:cset)
  21.       (vla-put-TextOverride dim "") ;_恢复默认文字
  22.       (if (vlax-property-available-p dim 'TextPrecision)
  23.         (vla-put-TextPrecision
  24.           dim
  25.           (cdr
  26.             (assoc 272 (tblsearch "dimstyle" (vla-get-stylename dim)))
  27.           )
  28.         )
  29.         (vla-put-PrimaryUnitsPrecision
  30.           dim
  31.           (cdr
  32.             (assoc 271 (tblsearch "dimstyle" (vla-get-stylename dim)))
  33.           )
  34.         )
  35.       ) ;_恢复默认样式标注精度
  36.     )
  37.   )
  38.   (fy:end)
  39.   (princ)
  40. )

点评

谢谢大师,您真是个好人!再次感谢!  详情 回复 发表于 2014-8-13 17:01

评分

参与人数 1D豆 +5 收起 理由
lucas3 + 5 热心帮忙奖!

查看全部评分

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

使用道具 举报

已领礼包: 3198个

财富等级: 富可敌国

 楼主| 发表于 2014-8-13 17:01:59 | 显示全部楼层

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

使用道具 举报

发表于 2014-10-13 11:04:41 | 显示全部楼层
这个程序好!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2014-10-13 11:06:12 | 显示全部楼层
T1 no function definition: FY:BEGIN

点评

谢谢!  详情 回复 发表于 2014-10-13 11:14
去开源函数库找  发表于 2014-10-13 11:12
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2014-10-13 11:14:41 | 显示全部楼层
sinommw 发表于 2014-10-13 11:06
T1 no function definition: FY:BEGIN

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

使用道具 举报

发表于 2020-4-24 20:42:33 | 显示全部楼层

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

使用道具 举报

发表于 2020-4-24 20:45:48 | 显示全部楼层

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

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 13:42 , Processed in 0.357009 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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