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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › 晓东工具箱、编程申请 › 标注文字加框
12
返回列表 发新帖
楼主: 明天你好

[编程申请] 标注文字加框

[复制链接]
newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-9-28 00:32:39 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
明天你好 发表于 2014-9-26 22:45
谢谢各位大师的出手相助！

来个简洁些的，直接设置 XDATA
  1. (defun c:tt ()
  2.   (if (setq ss (ssget '((0 . "DIM*"))))
  3.     (progn
  4.       (mapcar
  5.         '(lambda (x)
  6.            (setq xdata (xdrx_object_getxdata x "ACAD"))
  7.            (if (member "DSTYLE" xdata)
  8.              (setq xdata (cons "DSTYLE" (append (list 147 -0.625 72 0 71 0) (cadr xdata))))
  9.              (setq xdata (list "DSTYLE" '(147 -0.625 72 0 71 0)))
  10.            )
  11.            (xdrx_object_setxdata x "ACAD" xdata)
  12.          )
  13.         (xdrx_pickset->ents ss)
  14.       )
  15.     )
  16.   )
  17.   (princ)
  18. )

点评

lucas3
XDATA是什么啊？ 晓东API要更新了才能用 更新过后使用，还是不行哟， 错误: 参数类型错误: listp 147  详情 回复 发表于 2014-9-28 09:38
/db_自贡黄明儒_
不明白，我觉得就是一句(vla-put-TextGap (vlax-ename->vla-object (car (entsel "\n 【选择尺寸,外加一个方框】"))) -1)就可以了，为什么你还亲自出马？  详情 回复 发表于 2014-9-28 09:36
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2014-9-28 09:36:34 | 显示全部楼层
newer 发表于 2014-9-28 00:32
来个简洁些的，直接设置 XDATA

不明白，我觉得就是一句(vla-put-TextGap (vlax-ename->vla-object (car (entsel "\n 【选择尺寸,外加一个方框】"))) -1)就可以了，为什么你还亲自出马？

点评

lucas3
大家其实都只是凑个热闹哈，前面Z版，ST ,Free-Lancer 大师们都给出答案了  发表于 2014-9-28 11:00
newer
条条大路通罗马啊，还有很多纯LISPer 呢。这个方法是写实体的扩展实体数据实现的。  详情 回复 发表于 2014-9-28 10:37
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-9-28 09:38:24 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2014-9-28 00:32
来个简洁些的，直接设置 XDATA

XDATA是什么啊？
晓东API要更新了才能用:L
更新过后使用，还是不行哟，
错误: 参数类型错误: listp 147

点评

newer
你确认你完全复制的代码吗？ 数字147前面表前 小引号 你给弄丢了吧？  详情 回复 发表于 2014-9-28 10:36
newer
就是7楼 LISPBOY贴的数据 往尺寸里面应用程序名ACAD下面添加拓展实体数据 命令: (entget (entlast) '("acad")) ((-1 . ) (0 . "DIMENSION") (330 . ) (5 . "F3") (100 . "AcDbEntity") (67 . 0) (410 . "Mo  详情 回复 发表于 2014-9-28 10:35
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-9-28 10:35:02 | 显示全部楼层
lucas3 发表于 2014-9-28 09:38
XDATA是什么啊？
晓东API要更新了才能用
更新过后使用，还是不行哟，

就是7楼 LISPBOY贴的数据

往尺寸里面应用程序名ACAD下面添加拓展实体数据

命令: (entget (entlast) '("acad"))
((-1 . <图元名: 7ee68f98>) (0 . "DIMENSION") (330 . <图元名: 7ee68cf8>) (5 .
"F3") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbDimension") (2 . "*D1") (10 1428.54 542.568 0.0) (11 1408.65 545.276 0.0)
(12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 39.7852)
(52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "ISO-25")
(100 . "AcDbAlignedDimension") (13 1388.75 562.433 0.0) (14 1428.54 559.95 0.0)
(15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 .
"AcDbRotatedDimension") (-3 ("ACAD" (1000 . "DSTYLE") (1002 . "{") (1070 . 147)
(1040 . -0.625) (1070 . 72) (1070 . 0) (1070 . 71) (1070 . 0) (1002 . "}"))))

红色的部分就是扩展实体数据XDATA

点评

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

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-9-28 10:36:07 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
lucas3 发表于 2014-9-28 09:38
XDATA是什么啊？
晓东API要更新了才能用
更新过后使用，还是不行哟，

你确认你完全复制的代码吗？

数字147前面表前 小引号 你给弄丢了吧？

点评

lucas3
这种情况不太可能吧，要说复制时弄丢，或许会弄丢开始或结尾的括号，中间的怎么可能丢呀？  详情 回复 发表于 2014-9-28 10:47
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

newer

已领礼包: 40个

财富等级: 招财进宝
发表于 2014-9-28 10:37:25 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2014-9-28 09:36
不明白，我觉得就是一句(vla-put-TextGap (vlax-ename->vla-object (car (entsel "\n 【选择尺寸,外加一 ...

条条大路通罗马啊，还有很多纯LISPer 呢。这个方法是写实体的扩展实体数据实现的。因为不管什么方法，最终都是往实体里面写这个扩展实体数据实现。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

lucas3

已领礼包: 3199个

财富等级: 富可敌国
发表于 2014-9-28 10:47:58 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
newer 发表于 2014-9-28 10:36
你确认你完全复制的代码吗？

数字147前面表前 小引号 你给弄丢了吧？

这种情况不太可能吧，要说复制时弄丢，或许会弄丢开始或结尾的括号，中间的怎么可能丢呀？
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

csharp

已领礼包: 859个

财富等级: 财运亨通
发表于 2014-9-28 11:19:15 来自手机 | 显示全部楼层
各有各的优势，选择适合的
多了解方法没坏处
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

明天你好

已领礼包: 149个

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

使用道具 举报

褪去的记忆

已领礼包: 177个

财富等级: 日进斗金
发表于 2014-10-29 17:46:30 | 显示全部楼层
学习学习大侠皮毛:lol
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-25 05:43 , Processed in 0.505654 second(s), 48 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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