找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

楼主: --@-----

[精彩文萃] 大家都来晒晒自己画图中比较常用的代码(使用平率高,绘图效率快)

[复制链接]

已领礼包: 51个

财富等级: 招财进宝

发表于 2013-8-2 22:24:40 | 显示全部楼层
qht5566 发表于 2013-8-2 22:22
(defun c:FE ()
  (prinC "打开当前图档所在的文件夹")
  (if (= (getvar "dwgtitled") 0)

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

使用道具 举报

 楼主| 发表于 2013-8-2 22:33:39 | 显示全部楼层
NET-JOB 发表于 2013-8-2 22:23
推荐下小菜的选择易,建选择集,查图元信息,都用到

  • CTRL+1不能能查到图元信息了吗

点评

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

使用道具 举报

已领礼包: 918个

财富等级: 财运亨通

发表于 2013-8-2 23:23:49 | 显示全部楼层
--@----- 发表于 2013-8-2 22:33
  • CTRL+1不能能查到图元信息了吗

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

    使用道具 举报

    发表于 2013-8-3 10:43:17 | 显示全部楼层
    (defun C:tt7 (/ s1)
       (setvar "measurement" 1)    ;设置公制单位
       (setvar "measureinit" 1)    ;使用公制注册表设置指定的填充图案文件和线型文件
       (setq ytc_d (getvar "hpseparate"))
       (setvar "hpassoc" 1)  ;控制填充图案是否关联(1:是;0:否)
       (setvar "hpseparate" 0)  ;控制是否创建独立填充图案(1:是;0:否)
       (while (tt7_1))
       (princ)
    ) ;over defun
    (defun tt7_1 ()
       (setvar "cmdecho" 0)
       (princ "\n请选择填充对象:(***跳过则为拾取内部点填充)")
       (if (setq s1 (ssget))
         (command "bhatch" "s" s1 "" "")
         (progn
           (princ "\n请拾取填充内部点:")
           (command "bhatch" pause)
         );progn
       );if
       (setvar "hpseparate" ytc_d)
    )
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    发表于 2013-8-3 11:11:50 | 显示全部楼层
    ; copylay.lsp
    ;命令复制一个实体到当前层无论它在哪个层
    ;本程序将复制一个实体到当前层无论它在哪个层。

    (defun C:复制一个实体到当前层无论它在哪个层 ( / anniuzongxinxi b b1 c c_layer chajianmincen count d len minlingmincen name pause pt1 ptlst sset wenjianmin wenjianmincen)
       ;;下面是反复启动本插件的代码。将本套代码放在所有代码的最前面。因为放在后面可能会产生不可预测的问题。而放在前面一点问题也不会有
    ;;这部分代码是将按钮总信息写入一个文本文件“D:/D盘DXM文件夹/自编软件运行过程中保存的信息/日常使用的插件信息2013年3月28日.txt”中,
    ;;再用VBA将文本文件中的内容读入数组A中,将数组A倒序分解成两个问题,一个部分为插件名称,一个部分为命令,再以命令为关键词添加到字典中。
    ;;这样就可以获得没有重复命令的插件信息。再将字典的关键词(即插件名称)放入LISTBOX1,将字典的解释词(即插件命令)放入LISTBOX2。这样
    ;;只要选中LISTBOX2的其中一项双击就可以启动该插件了。
    ;;命令只保存100条,容许是300条,超过300条就将文本文件内容删除,将LISTBOX1及LISTBOX2的最后100项内容写入文本文件。
    ;;对于尾缀为“FAS”或“VLS”的加密的LSP插件,另做一个LISP插件V启动它,再将V的插件名加命令发送到文本文件。由于V插件的命令是我定的,所以不会重复,这样还可以避免原插件命令容易重复的毛病,保证了每个最近使用的插件信息都能得到有效保存。
    ;;VLX另做一个LISP启动,还可以避免命令重复
    ;;对于VBA插件,直接写代码将VBA插件名称及启动命令写入文本文件,格式为:VBA插件名称+“-vbarun”+一个空格+启动命令
    (setq chajianmincen "CJ001命令复制一个实体到当前层无论它在哪个层.lsp")
    (setq minlingmincen "(LOAD \"CJ001命令复制一个实体到当前层无论它在哪个层.lsp\") 复制一个实体到当前层无论它在哪个层")
    (setq anniuzongxinxi (strcat chajianmincen "芰" minlingmincen))
    (setq wenjianmincen "D:/D盘DXM文件夹/自编软件运行过程中保存的信息/日常使用的插件信息2013年3月28日.txt")
      (setq wenjianmin(open wenjianmincen "a"));;如何写作“(setq f(open wenjianmincen "a"))”,则是保存原内容,在最行一行的下行追加

    (write-line anniuzongxinxi wenjianmin)
    (close wenjianmin)
    ;;上面是反复启动本插件的代码

    (setvar "cmdecho" 0)
        (setq c_layer (getvar "clayer")
              sset (ssget)
              pt1 (getpoint "\n基点: ")
              count 0)
       (prompt "\n位移的第二点: ")
          (setq  len (sslength sset))
          (while (< count len)
           (setq name (ssname sset count)
                 ptlst (entget name)
                 b (assoc 8 ptlst)
                 b1 (cdr (assoc 8 ptlst))
                 c (cons 8 c_layer)
                 d (subst c b ptlst)
                 count (1+ count))
                (entmod d)
         )
        (command "_copy" sset "" pt1 pause)
        (setq count 0)
        (while (< count len)
        (setq name (ssname sset count)
                 ptlst (entget name)
                 b (assoc 8 ptlst)
                 c (cons 8 b1)
                 d (subst c b ptlst)
                 count (1+ count))
                (entmod d)
         )
         (princ)

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

    使用道具 举报

    发表于 2013-8-3 11:13:24 | 显示全部楼层
    请点击此处下载

    查看状态:需购买或无权限

    您的用户组是:游客

    文件名称:CJ393凉开水中的角度匹配最好命令JDPP.zip 
    下载次数:24  文件大小:18.76 KB 
    下载权限: 不限 以上  [免费赚D豆]




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

    使用道具 举报

    发表于 2013-8-3 11:42:33 | 显示全部楼层
    我在CAD2005上试了,你的代码没有确切的效果啊?能否说明使用过程及最终结果?
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

    发表于 2013-8-3 11:44:38 | 显示全部楼层
    你的代码我在CAD2005上试了,没有确切的效果,你能否说明一下使用过程及结果?

    点评

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

    使用道具 举报

     楼主| 发表于 2013-8-3 22:43:54 | 显示全部楼层
    清风明月10 发表于 2013-8-3 11:44
    你的代码我在CAD2005上试了,没有确切的效果,你能否说明一下使用过程及结果?

    就跟MA刷子一样,你看看能刷哪些

    点评

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

    使用道具 举报

    发表于 2013-8-4 08:16:20 | 显示全部楼层
    --@----- 发表于 2013-8-3 22:43
    就跟MA刷子一样,你看看能刷哪些

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

    使用道具 举报

    已领礼包: 1268个

    财富等级: 财源广进

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

    使用道具 举报

    发表于 2013-9-2 13:25:37 | 显示全部楼层
    各位大师,太感谢了,看到这么多的源码,我不会这个,向您们学习。
    论坛插件加载方法
    发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
    如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
    如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
    回复 支持 反对

    使用道具 举报

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

    使用道具 举报

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

    使用道具 举报

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

    本版积分规则

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

    GMT+8, 2024-11-15 05:15 , Processed in 0.214665 second(s), 56 queries , Gzip On.

    Powered by Discuz! X3.5

    © 2001-2024 Discuz! Team.

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