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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › 如何修改当前table的文字样式？
返回列表 发新帖
查看: 1026|回复: 10

[求助] 如何修改当前table的文字样式？

[复制链接]
/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
发表于 2017-10-28 23:41:38 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

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

使用道具 举报

qqqincccken

已领礼包: 6845个

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

使用道具 举报

longer1000

已领礼包: 1304个

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

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2017-10-29 06:16:07 | 显示全部楼层
(vla-SetTextStyle
  (vla-item (vla-item (vla-get-Dictionaries
                        (vla-get-ActiveDocument
                          (vlax-get-acad-object)
                        )
                      )
                      "acad_tablestyle"
            )
            (getvar 'CTABLESTYLE)
  )
  acDataRow
  "standard"
)

评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 高手。

查看全部评分

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

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2017-10-29 13:06:33 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 /db_自贡黄明儒_ 于 2017-10-29 13:54 编辑
q3_2006 发表于 2017-10-29 06:16

我提这个问题嘛，主要是因为图中文字样式 太多，想一统文字样式，最好只有一个，看 起来清爽。还有一个是Mleader了，怎么搞?
  1. (defun See ()
  2.   (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  3.   (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  4.   (setq dic (vla-get-Dictionaries *DOC*))
  5.   (repeat (setq n (vlax-get dic 'count))
  6.     (setq x (vla-item dic (setq n (1- n))))
  7.     (if (vlax-property-available-p x 'Name)
  8.       (progn
  9. (princ "\n Name: ")
  10. (princ (vlax-get x 'Name))
  11.       )
  12.     )
  13.     (if (vlax-property-available-p x 'ObjectName)
  14.       (progn
  15. (princ "\n ObjectName: ")
  16. (princ (vlax-get x 'ObjectName))
  17.       )
  18.     )
  19.     (if (vlax-property-available-p x 'count)
  20.       (progn
  21. (setq i (vlax-get x 'count))
  22. (if (> i 1)
  23.    (repeat (setq i (vlax-get x 'count))
  24.      (setq y (vla-item x (setq i (1- i))))
  25.      (if (vlax-property-available-p y 'Name)
  26.        (progn
  27.   (princ "\n   Name: ")
  28.   (princ (vlax-get y 'Name))
  29.        )
  30.      )
  31.      (if (vlax-property-available-p y 'ObjectName)
  32.        (progn
  33.   (princ "\n   ObjectName: ")
  34.   (princ (vlax-get y 'ObjectName))
  35.        )
  36.      )
  37.    )
  38. )
  39.       )
  40.     )
  41.   )
  42.   (princ)
  43. )
  44. (See)

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

使用道具 举报

Linhay

已领礼包: 28个

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

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2017-10-30 08:36:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 q3_2006 于 2017-10-30 08:42 编辑
/db_自贡黄明儒_ 发表于 2017-10-29 13:06

写法完全相同呀..
(vla-put-TextStyle
  (vla-item (vla-item (vla-get-Dictionaries
                        (vla-get-ActiveDocument
                          (vlax-get-acad-object)
                        )
                      )
                      "ACAD_MLEADERSTYLE"
            )
            (getvar 'CTABLESTYLE)
  )
  "standard"
)

评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

marting

已领礼包: 20个

财富等级: 恭喜发财
发表于 2017-10-30 08:36:51 | 显示全部楼层
/db_自贡黄明儒_ 发表于 2017-10-29 13:06

下面代码设置MLEADER的文字样式为123

[JavaScript] 纯文本查看 复制代码
(vla-put-TextStyleName o "123")

评分

参与人数 1D豆 +5 收起 理由
/db_自贡黄明儒_ + 5 很给力!经验；技术要点；资料分享奖！

查看全部评分

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

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2017-10-30 09:40:09 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
marting 发表于 2017-10-30 08:36

现在遇到一个问题，表table,一步步执行能更新，但用下面的程序不行
  1. (defun C:w2 (/ COL OBJ ROW ST)
  2.   (or *ACAD* (setq *ACAD* (vlax-get-acad-object)))
  3.   (or *DOC* (setq *DOC* (vla-get-ActiveDocument *ACAD*)))
  4.   (setq st (vlax-get (vla-get-activetextstyle *DOC*) 'Name))
  5.   ;;选择表table
  6.   (setq obj (vlax-ename->vla-object (car (entsel))))
  7.   (setq Row (vlax-get obj 'Rows))
  8.   (repeat (setq Row (1- Row))
  9.     (setq col (vlax-get obj 'Columns))
  10.     (repeat (setq col (1- col))
  11.       (vl-catch-all-apply 'vla-SetCellTextStyle (list obj Row col st))
  12.       (vla-update obj)
  13.     )
  14.   )
  15.   (vla-update obj)
  16.   (princ)
  17. )


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

使用道具 举报

/db_自贡黄明儒_

已领礼包: 604个

财富等级: 财运亨通
 楼主| 发表于 2017-10-30 09:46:51 | 显示全部楼层
q3_2006 发表于 2017-10-30 08:36

不知你注意没有， (getvar 'CTABLESTYLE)好像不是改变当前对象
我就这样写了，改变当前多重引线的文字样式
  (if (setq x (vla-item (vla-get-Dictionaries *DOC*) "ACAD_MLEADERSTYLE"))
    (repeat (setq i (vlax-get x 'count))
      (setq y (vla-item x (setq i (1- i))))
      (if (and (vlax-read-enabled-p y) (vlax-write-enabled-p y))
        (vlax-put y 'Name st)
      )
    )
  )

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

使用道具 举报

q3_2006

已领礼包: 2476个

财富等级: 金玉满堂
发表于 2017-10-30 10:02:41 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
本帖最后由 q3_2006 于 2017-10-30 10:08 编辑
/db_自贡黄明儒_ 发表于 2017-10-30 09:46

(vlax-for itm (vla-item (vla-get-Dictionaries
                        (vla-get-ActiveDocument
                          (vlax-get-acad-object)
                        )
                      )
                      "ACAD_MLEADERSTYLE"
            )
                (setq lst (cons (vl-catch-all-apply 'vla-get-Name (list itm)) lst))
        )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2025-9-27 07:25 , Processed in 0.363270 second(s), 53 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2025 Discuz! Team.

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