明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 13051|回复: 33

工具箱面板源码求助

  [复制链接]
发表于 2013-1-28 20:01:32 | 显示全部楼层 |阅读模式
这是承建工具箱的面板源码,请问如何将lsp vlx arx等文件命令加进去使用呢?求详细说明

本帖子中包含更多资源

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

x
发表于 2024-4-2 16:22:01 | 显示全部楼层
kongel 发表于 2018-7-6 12:58
感谢楼主的源码,参考做了一个自己的

学习了~
面板工具是蛮多呢~
发表于 2024-4-2 16:44:45 | 显示全部楼层
想学习下怎么分类~
先收藏了,慢慢研究~
发表于 2018-7-6 12:58:45 | 显示全部楼层
感谢楼主的源码,参考做了一个自己的

本帖子中包含更多资源

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

x
 楼主| 发表于 2013-1-29 10:21:15 | 显示全部楼层
有没有人帮我解惑呀
发表于 2013-1-29 16:21:45 | 显示全部楼层
这不叫面板,只是个窗体而已
发表于 2013-2-2 12:31:40 | 显示全部楼层
这上面的功能我用的不多
发表于 2013-2-2 18:31:21 | 显示全部楼层
个人觉得将所有的命令写在窗体中,还不如直接用菜单适用
发表于 2013-7-5 16:39:10 | 显示全部楼层
你先分清lsp和dcl吧。

转:

(if (> nn 0)
    (progn (setq tt (cadr (nth (1- nn) order_lst))) ;取点击按钮的值(这个很关键)
     (if (= (eval (read (strcat "(type c:" tt ")"))) 'SUBR)
       (progn (princ "\n")
        (eval (read (strcat "(c:" tt ")")))
       ) ;_ 结束progn
       (progn
         (princ "\n")
         (vla-SendCommand (vla-get-ActiveDocument(vlax-get-acad-object)) (strcat tt "\n"))
       ) ;_ 结束progn
     ) ;_ 结束if
    ) ;_ 结束progn
  ) ;_ 结束if
) ;_ 结束defun

tt就是你的命令,明白否?
发表于 2013-7-19 18:39:37 | 显示全部楼层
权限太高了下载不了
发表于 2013-10-19 22:36:22 | 显示全部楼层
这个窗体容易呀
发表于 2014-5-18 10:42:45 | 显示全部楼层
求助 还设那么高限权
发表于 2014-5-29 18:40:33 | 显示全部楼层
全县太高
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-12-27 19:27 , Processed in 0.200481 second(s), 29 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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