找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 7659|回复: 65

[每日一码] 我也会坐标标注

[复制链接]

已领礼包: 604个

财富等级: 财运亨通

发表于 2016-5-20 12:07:05 | 显示全部楼层 |阅读模式

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

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

×
本帖最后由 /db_自贡黄明儒_ 于 2016-5-24 08:46 编辑

我一直用NetBee版主的坐标标注,两三年用一回
以下是我刚写的,虽然不怎么好看,但也可以将就用
  1. ;;坐标标注(全局*Ang_ZBBZ*)
  2. (defun C:zbbz (/ ANS FLAG P1 P2 STR TEXTHEIGHT zbbz1 zbbz2)
  3.   (defun zbbz1 ()
  4.     (initget "S ")
  5.     (princ "\n 坐标点, or [输入角度S] <S>:")
  6.     (setq p1 (getpoint));(setq p1 (getpoint "\n坐标点"))
  7.   )
  8.   (defun zbbz2 ()
  9.     (setq AnS (zbbz1))
  10.     (cond
  11.       ((= AnS "S") (setq *Ang_ZBBZ* (getangle "\n文字倾角")) (zbbz2))
  12.       ((= (type AnS) 'List)
  13.        (cond
  14.          ((setq p2 (getpoint AnS "\n放置"))
  15.           (setq        str (strcat "X="
  16.                             (VL-PRINC-TO-STRING (cadr p1))
  17.                             "\\P"
  18.                             "Y="
  19.                             (VL-PRINC-TO-STRING (car p1))                           
  20.                     )
  21.           )
  22.           (_AddLeader AnS p2 str *Ang_ZBBZ* TextHeight)
  23.          )
  24.          (T (setq Flag nil))
  25.        )
  26.       )
  27.       (T (setq Flag nil))
  28.     )
  29.   )

  30.   (vl-Load-COM)
  31.   (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  32.   (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  33.   (or *MS* (setq *MS* (vla-get-modelSpace *DOC*)))

  34.   (cond((not *Ang_ZBBZ*)(setq *Ang_ZBBZ* 0)))
  35.   (SETQ TextHeight (* (GETVAR "DIMTXT") (GETVAR "DIMSCALE"))) ;字高
  36.   (setq Flag T)
  37.   (while Flag (zbbz2))
  38.   (princ)
  39. )


  40. (defun _AddLeader (p1 p2 str Ang TextHeight / HANDLEM OBJL OBJM POINTS)
  41.   (setq points (vlax-make-safearray vlax-vbDouble '(0 . 5)))
  42.   (vlax-safearray-fill points (append P1 p2))
  43.   ;;(vla-AddMText modelSpace corner width text)
  44.   (setq ObjM (vla-AddMText *MS* (vlax-3d-point p2) 1 str))
  45.   ;;Height AttachmentPoint Handle Width
  46.   (vlax-put ObjM 'Height TextHeight);05版用vla-put-TextHeight不灵
  47.   (vlax-put ObjM 'AttachmentPoint 7);左下角
  48.   (vlax-put ObjM 'Width 0);没有框,只有左下角一个夹点
  49.   ;;BackgroundFill 05版及以上16.1
  50.   (cond ((> (atof (getvar "ACADVER")) 16) (vlax-put ObjM 'BackgroundFill 1)))
  51.   (vlax-put ObjM 'Rotation Ang)
  52.   (setq ObjL (vla-AddLeader *MS* points ObjM acLineNoArrow))
  53.   (setq HandleM (vlax-get ObjM 'Handle))
  54. )





zbbz.gif

评分

参与人数 1D豆 +10 收起 理由
XDSoft + 10 很给力!经验;技术要点;资料分享奖!

查看全部评分

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

已领礼包: 3198个

财富等级: 富可敌国

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2016-5-20 15:21:12 | 显示全部楼层
lucas3 发表于 2016-5-20 13:40
长老,你这个坐标标注可是研究了几年哟,

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

使用道具 举报

已领礼包: 2476个

财富等级: 金玉满堂

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

使用道具 举报

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

使用道具 举报

已领礼包: 5578个

财富等级: 富甲天下

发表于 2016-5-20 15:54:30 | 显示全部楼层
看演示,还可以自动更新坐标值,不错,不错!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2016-5-20 15:58:24 | 显示全部楼层
只能标注到小数点后1位吗?怎么实现小数点后2、3位的显示?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 2963个

财富等级: 家财万贯

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2016-5-20 16:45:33 | 显示全部楼层
HLCAD 发表于 2016-5-20 15:54
看演示,还可以自动更新坐标值,不错,不错!

用了反应器,所以可以更新。这部分代码没贴出来。。

点评

反应器代码很主要啊,贴出来吧,可以收点币。  详情 回复 发表于 2016-5-20 16:47
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-5-20 16:47:44 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2016-5-20 16:45
用了反应器,所以可以更新。这部分代码没贴出来。。

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2016-5-20 16:48:31 | 显示全部楼层
q3_2006 发表于 2016-5-20 15:37
这个很难吗...看下技巧!

要做好恐怕就难,这不,主张开源的NetBee版主的源码迟迟没贴出来,不过他好像说了有空要贴出来的,期待吧
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2016-5-20 16:51:53 | 显示全部楼层
本帖最后由 /db_自贡黄明儒_ 于 2016-5-20 16:56 编辑
newer 发表于 2016-5-20 16:47
反应器代码很主要啊,贴出来吧,可以收点币。

不太成熟
游客,如果您要查看本帖隐藏内容请回复

zbbz.gif

点评

什么时候这样谦虚了  详情 回复 发表于 2021-8-30 12:39
您好,请问下能否设置成xy在线两侧?坐标标注小数点后3位  详情 回复 发表于 2020-6-6 16:55
反应器还是用 vla 修改,尽量不要用 entmod  发表于 2016-5-20 17:37
什么时候这样谦虚了  详情 回复 发表于 2016-5-20 16:57
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 2016-5-20 16:57:45 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2016-5-20 16:51
不太成熟
**** 本内容被作者隐藏 ****

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

使用道具 举报

已领礼包: 1268个

财富等级: 财源广进

发表于 2016-5-20 17:34:52 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2016-5-20 16:51
不太成熟
**** 本内容被作者隐藏 ****

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

使用道具 举报

已领礼包: 604个

财富等级: 财运亨通

 楼主| 发表于 2016-5-20 18:50:10 来自手机 | 显示全部楼层
st788796 发表于 2016-5-20 17:34
黄老的作品一定要支持的!

还是你用xd涵数写的更正宗!

点评

过不了几天,API版本的坐标标注就会出来啦  详情 回复 发表于 2016-5-20 23:23
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 04:24 , Processed in 0.515345 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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