设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1255|回复: 12

[图块] 重命名块对话框版,支持放大到指定块

[复制链接]

已领礼包: 57个

财富等级: 招财进宝

发表于 2017-7-31 17:54:45 | 显示全部楼层 |阅读模式

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

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

x
  1. (defun c:renblk        (/ INSERTNAME SEL filllist)
  2.   (setq objlst nil)
  3.   (vlax-for n
  4.               (zgx:acsssets)
  5.     (vla-delete n)
  6.   )
  7.   (setq sel (zgx-select "select insert" '((0 . "insert"))))
  8.   (vlax-for each sel
  9.     (setq insertname (vla-get-name each))
  10.     (if        (not (member insertname filllist))
  11.       (progn
  12.         (setq filllist (append filllist (list insertname))
  13.               objlst   (append objlst (list each))
  14.         )
  15.       )
  16.     )
  17.   )
  18.   (setq        filllist (mapcar '(lambda (x)
  19.                             (list x
  20.                                   x
  21.                             )
  22.                           )
  23.                          filllist
  24.                  )

  25.   )
  26.   (vlax-for each sel
  27.     (vlax-release-object each)
  28.   )
  29.   (vla-delete sel)
  30.   (vlax-release-object sel)
  31.   (dcl-project-load "room_finishing" t)
  32.   (dcl-form-show room_finishing/renblk)
  33.   (dcl-grid-filllist room_finishing/renblk/grid1 filllist)
  34.   (dcl-Control-SetColumnStyleList
  35.     ROOM_finishing/renblk/Grid1
  36.     '(0 6)
  37.   )
  38.   (gc)
  39. )

完整代码间附件


00.gif

renblk用vla方法重写 对话框.rar

2.73 KB, 下载次数: 72, 下载积分: D豆 -1 , 活跃度 1

评分

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

查看全部评分

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

已领礼包: 57个

财富等级: 招财进宝

 楼主| 发表于 2017-7-31 18:02:03 | 显示全部楼层
漏掉一个函数
  1. ;;;---获得grid指定单元格值-----------------------------------------------------------------------------
  2. ;;;---startcell '(0 0)-, 取出全部----------------------------------------------------------------------
  3. ;;;---(get_grid_value '(2 nil) '(nil nil),  取出第二项开始所有单元格值---------------------------------
  4. (defun get_grid_value (gridname          startcell  endcell        /
  5.                        row          column     rtn        rtn1
  6.                        startrow          startcolumn                endrow
  7.                        n          endcolumn
  8.                       )
  9.   (setq        row    (dcl-grid-getrowcount gridname)
  10.         column (dcl-grid-getcolumncount gridname)
  11.   )
  12.   (if (not startcell)
  13.     (setq startcell '(0 0))
  14.   )
  15.   (if (not endcell)
  16.     (setq endcell (list (- row 1) (- column 1)))
  17.   )
  18.   (setq        startcell
  19.          (mapcar '(lambda (a b)
  20.                     (if        (not a)
  21.                       b
  22.                       a
  23.                     )
  24.                   )
  25.                  startcell
  26.                  (list 0 0)
  27.          )
  28.   )
  29.   (setq        endcell
  30.          (mapcar '(lambda (a b)
  31.                     (if        (not a)
  32.                       b
  33.                       a
  34.                     )
  35.                   )
  36.                  endcell
  37.                  (list row column)
  38.          )
  39.   )
  40.   (setq        startrow    (car startcell)
  41.         startcolumn (cadr startcell)
  42.         endrow            (car endcell)
  43.         endcolumn   (cadr endcell)
  44.   )
  45.   (repeat (+ 1 (- endrow startrow))
  46.     (setq rtn nil)
  47.     (setq n startcolumn)
  48.     (repeat (+ 1 (- endcolumn startcolumn))

  49.       (setq
  50.         rtn (append
  51.               rtn
  52.               (list
  53.                 (dcl-grid-getcelltext gridname startrow n)
  54.               )
  55.             )
  56.       )
  57.       (setq n (1+ n))
  58.     )
  59.     (setq rtn1 (append rtn1 (list rtn)))
  60.     (setq startrow (1+ startrow))
  61.   )
  62.   rtn1
  63. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 36个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 57个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 28个

财富等级: 恭喜发财

发表于 2017-8-1 13:09:44 | 显示全部楼层

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

使用道具 举报

已领礼包: 811个

财富等级: 财运亨通

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

使用道具 举报

已领礼包: 36个

财富等级: 招财进宝

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

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 57个

财富等级: 招财进宝

 楼主| 发表于 2017-8-26 17:35:43 | 显示全部楼层
(defun zgx:acDoc        nil
  (eval        (list 'defun
              'zgx:acdoc
              'nil
              (vla-get-activedocument (vlax-get-acad-object))
        )
  )
  (zgx:acdoc)
)
补上zgx:acdoc
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 233个

财富等级: 日进斗金

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

使用道具 举报

已领礼包: 22个

财富等级: 恭喜发财

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

使用道具 举报

已领礼包: 2个

财富等级: 恭喜发财

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2021-9-23 02:25 , Processed in 1.456287 second(s), 59 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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