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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 编号改代码
返回列表 发新帖
查看: 2271|回复: 10

[求助] 编号改代码

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

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

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

×
这是一个编号的代码，大哥能不能帮我修改一下代码，原来的代码很好用，就是出来的数都是正的，有时需要逆时针旋转90度。操作时在屏幕上点选直线便知道数的方向了。谢谢
QQ工具栏截屏未命名.GIF
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

zxq0220

已领礼包: 11282个

财富等级: 富甲天下
发表于 2013-12-12 07:45:02 | 显示全部楼层
代码在哪？

点评

hphkjz
编号代码如下： (princ "\n程序：连续编号 命令：bh ) (DEFUN C:bh() (setq n (getint "输入起始号:")) (setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 200) (1 . "1") (50  详情 回复 发表于 2013-12-12 12:24
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

ngc

已领礼包: 828个

财富等级: 财运亨通
发表于 2013-12-12 08:01:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
楼主也是做建筑模型的吧！这个是底板标号的功能，里面有些参数改一下就好了

点评

hphkjz
我不是做建筑模型的，我是现场施工的，所以我问的都是现实使用率高的  详情 回复 发表于 2013-12-12 13:35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-12-12 12:24:59 | 显示全部楼层
zxq0220 发表于 2013-12-12 07:45
代码在哪？

编号代码如下：
(princ "\n程序：连续编号 命令：bh )
(DEFUN C:bh()
(setq n (getint "输入起始号:"))
(setq enttxt '((0 . "TEXT") (8 . "ZJ") (6 . "Continuous") (10 0.0 0.0 0.0) (40 . 200) (1 . "1") (50 . 0.0) (41 . 0.8) (51 . 0.0)(71 . 0) (72 . 4) (11 0.0 0.0 0.0) (210 0.0 0.0 1.0) (100 . "AcDbText") (73 . 0)));40.200中200是控制字高
(setq pt (getpoint "输入标位置"))
(while (/= pt nil)
(setq enttxt2 (subst (cons 1 (rtos n 2 0)) '(1 . "1") (subst (append '(11) pt) '(11 0.0 0.0 0.0) enttxt)))
(entmake enttxt2)
(setq pt (getpoint "\n输入标位置"))
(setq n (+ n 1))
)
)

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

使用道具 举报

hphkjz
 楼主| 发表于 2013-12-12 13:35:18 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
ngc 发表于 2013-12-12 08:01
楼主也是做建筑模型的吧！这个是底板标号的功能，里面有些参数改一下就好了

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

使用道具 举报

st788796

已领礼包: 1268个

财富等级: 财源广进
发表于 2013-12-12 16:04:50 来自手机 | 显示全部楼层
本帖最后由 st788796 于 2013-12-12 16:06 编辑

这些框是什么线？都标内侧？
如果是pline，可以像标长度一样，指定起始一次自动标出

点评

hphkjz
大哥，这些框指的是房间的墙，不一定都是内标，指定插入位置就行。只是数字要跟线平行就行。  详情 回复 发表于 2013-12-12 17:43
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

hphkjz
 楼主| 发表于 2013-12-12 17:43:51 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
st788796 发表于 2013-12-12 16:04
这些框是什么线？都标内侧？
如果是pline，可以像标长度一样，指定起始一次自动标出

大哥，这些框指的是房间的墙，不一定都是内标，指定插入位置就行。只是数字要跟线平行就行。

点评

newer
给你写个更强的，自动递增数字 到 每日插件 http://bbs.xdcad.net/thread-672108-1-1.html  详情 回复 发表于 2013-12-12 20:15
newer
1、每日插件里面有 “对象平齐”，可以把标注后的文字和线对齐。 2、你希望程序输入编号，然后点取直线，然后平行直线标注文字？ 这个程序很好写。  详情 回复 发表于 2013-12-12 18:15
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-12-12 18:15:27 | 显示全部楼层
hphkjz 发表于 2013-12-12 17:43
大哥，这些框指的是房间的墙，不一定都是内标，指定插入位置就行。只是数字要跟线平行就行。

1、每日插件里面有 “对象平齐”，可以把标注后的文字和线对齐。

2、你希望程序输入编号，然后点取直线，然后平行直线标注文字？ 这个程序很好写。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2013-12-12 20:15:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
hphkjz 发表于 2013-12-12 17:43
大哥，这些框指的是房间的墙，不一定都是内标，指定插入位置就行。只是数字要跟线平行就行。

给你写个更强的，自动递增数字


                               
登录/注册后可看大图



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

使用道具 举报

zxq0220

已领礼包: 11282个

财富等级: 富甲天下
发表于 2013-12-12 21:11:47 | 显示全部楼层
  2. (princ "\n程序：连续编号 命令：bh")
  3. (defun C:bh()
  4. (setq oldos (getvar "OSMODE"))
  5. (setvar "OSMODE" 0)
  6. (setq n (getint "输入起始号: "))
  7. (setq enttxt
  8. '((0 . "TEXT")
  9. (8 . "ZJ")
  10. (6 . "Continuous")
  11. (10 0.0 0.0 0.0)
  12. (40 . 200);200是字高
  13. (1 . "1")
  14. (50 . 0.0)
  15. (41 . 0.8)
  16. (51 . 0.0)
  17. (71 . 0)
  18. (72 . 4)
  19. (11 0.0 0.0 0.0)
  20. (210 0.0 0.0 1.0)
  21. (100 . "AcDbText")
  22. (73 . 0)
  23. )
  24. )
  25. (while (setq pt (getpoint "输入标位置(靠近的点)"))
  26. (if (setq pm (osnap pt "NEAR")) (progn
  27. (setq ang (angle pm pt))
  28. (setq an (/ (* ang 180) pi))
  29. (setq an1 (if (< an 0) (+ an 360) an))
  30. (setq an1 (if (< 30 an1 210) (- an1 90) (+ an1 90)))
  31. (setq pc (polar pm ang 110))
  32. (setq enttxt2 (subst (cons 1 (itoa n)) '(1 . "1") enttxt))
  33. (setq enttxt2 (subst (cons 11 pc) (assoc 11 enttxt2) enttxt2))
  34. (entmake (subst (cons 50 (/ (* an1 pi) 180)) (assoc 50 enttxt2) enttxt2))
  35. (setq n (1+ n))
  36. ))
  37. )
  38. (setvar "OSMODE" oldos)
  39. (princ)
  40. )

点评

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

使用道具 举报

hphkjz
 楼主| 发表于 2013-12-12 21:41:04 来自手机 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
zxq0220 发表于 2013-12-12 21:11

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-20 08:08 , Processed in 0.562953 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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