大家都来晒晒自己画图中比较常用的代码（使用平率高，绘图效率快）

Lispboy

qht5566 发表于 2013-8-2 22:22
(defun c:FE ()
  (prinC "打开当前图档所在的文件夹")
  (if (= (getvar "dwgtitled") 0)

支持原创!!!

--@-----

NET-JOB 发表于 2013-8-2 22:23
推荐下小菜的选择易，建选择集，查图元信息，都用到

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

NET-JOB

--@----- 发表于 2013-8-2 22:33

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

有些信息CTRL+1查不了的

ucuc2003

(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)
)

清风明月10

; 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)

   )

清风明月10

请点击此处下载

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

您的用户组是：游客

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

清风明月10

我在CAD2005上试了，你的代码没有确切的效果啊？能否说明使用过程及最终结果？

清风明月10

你的代码我在CAD2005上试了，没有确切的效果，你能否说明一下使用过程及结果？

--@-----

清风明月10 发表于 2013-8-3 11:44
你的代码我在CAD2005上试了，没有确切的效果，你能否说明一下使用过程及结果？

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

清风明月10

--@----- 发表于 2013-8-3 22:43
就跟MA刷子一样，你看看能刷哪些

我是试了，一点刷的功能都没有，才回复请教的

st788796

刷的什么图？来自: Android客户端

金鹅起飞

各位大师，太感谢了，看到这么多的源码，我不会这个，向您们学习。

tranney

很多很好啊

sinommw

这么好的主题，回复少了点。