明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 8615|回复: 2

[函数]对操作ACAD_TABLE物件的重要函数

[复制链接]
发表于 2005-11-25 08:25 | 显示全部楼层 |阅读模式
  1. ;;BY 龙龙仔(LUCAS)
  2. ;;对操作ACAD_TABLE物件的重要函数(取么⒋娓穹段?
  3. ;;注意:要先把指令做成按钮
  4. (defun SELECT_TABLE (/ TABLE ROWMIN ROWMAX COLMIN COLMAX SS N)
  5.   (setq N 0)
  6.   (if (setq SS (ssget "X" '((0 . "ACAD_TABLE"))))
  7.     (repeat (sslength SS)
  8.       (if (not (vl-catch-all-apply
  9. 'vla-getsubselection
  10. (list (vlax-ename->vla-object
  11. (ssname SS N)
  12.        )
  13.        'ROWMIN
  14.        'ROWMAX
  15.        'COLMIN
  16.        'COLMAX
  17. )
  18.        )
  19.   )
  20. (setq TABLE (vlax-ename->vla-object
  21.       (ssname SS N)
  22.     )
  23. )
  24.       )
  25.       (setq N (1+ N))
  26.     )
  27.   )
  28.   (if ROWMIN
  29.     (list TABLE ROWMIN ROWMAX COLMIN COLMAX)
  30.     (progn
  31.       (prompt "\n没有选取任何储存格!!")
  32.       NIL
  33.     )
  34.   )
  35. )
  36. ;;例子:合并储存格
  37. (defun C:MRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)
  38.   (if (setq C1 (SELECT_TABLE))
  39.     (progn
  40.       (setq MINROW (nth 1 C1)
  41.     MAXROW (nth 2 C1)
  42.     MINCOL (nth 3 C1)
  43.     MAXCOL (nth 4 C1)
  44.       )
  45.       (if (vl-catch-all-apply
  46.     'vlax-invoke
  47.     (list (car C1) 'MERGECELLS MINROW MAXROW MINCOL MAXCOL)
  48.   )
  49. (princ "\n储存格不能被合并!!")
  50.       )
  51.     )
  52.   )
  53.   (princ)
  54. )
  55. ;;例子:分解储存格
  56. (defun C:UNMRGCELLS (/ C1 MAXCOL MAXROW MINCOL MINROW)
  57.   (if (setq C1 (SELECT_TABLE))
  58.     (progn
  59.       (setq MINROW (nth 1 C1)
  60.     MAXROW (nth 2 C1)
  61.     MINCOL (nth 3 C1)
  62.     MAXCOL (nth 4 C1)
  63.       )
  64.       (if (vl-catch-all-apply
  65.     'vlax-invoke
  66.     (list (car C1) 'UNMERGECELLS MINROW MAXROW MINCOL MAXCOL)
  67.   )
  68. (princ "\n储存格不能被分解!!")
  69.       )
  70.     )
  71.   )
  72.   (princ)
  73. )
"觉得好,就打赏"
还没有人打赏,支持一下

本帖被以下淘专辑推荐:

  • · table|主题: 9, 订阅: 0
发表于 2014-1-17 16:12 | 显示全部楼层
SELECT_TABLE函数 中
;;BY 龙龙仔(LUCAS)
;;对操作ACAD_TABLE物件的重要函数(取么⒋娓穹段?
;;注意:要先把指令做成按钮

做成按钮是什么意思啊?
发表于 2014-1-17 16:16 | 显示全部楼层
(vl-catch-all-apply
'vla-getsubselection
(list (vlax-ename->vla-object
(ssname SS N)
       )
       'ROWMIN
       'ROWMAX
       'COLMIN
       'COLMAX
)作用是什么呢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 19:45 , Processed in 0.192520 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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