[分享]绘图过程中常用的几个小程序
这是偶在绘图过程中常用的几个小程序,发上来给需要的人共享 这么小的程序，没有介绍么。 <p>内含很多命令<几十个>,请加载后打开文件一个个地试了,如复制,选中对象自动改变线型,比例,合并线,设定标注公差,精度,</p><p>;;;对象到图层</p><p>(defun c:ccc(/ a)<br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "DM" "")<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "DX" "")<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "UU" "")<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "Uz" "")<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "US" "")<br/> (prompt "\n复制对象到 DM DX UU UZ US图层......Amtonny") (princ))</p><p>(DEFUN c:CYY() <br/> (setq a (ssget))<br/> (setq b (getstring "\n 请输入层名:"))<br/> (command "chprop" a "" "la" b"")<br/> (prompt "\n移动对象到指定图层......Amtonny") (princ))<br/>(DEFUN c:CCY() <br/> (setq a (ssget))<br/> (setq b (getstring "\n 请输入层名:"))<br/> (command "_copy" a "" "@" "@")<br/> (command "chprop" a "" "la" b"")<br/> (prompt "\n复制对象到指定图层......Amtonny") (princ))<br/>;;;********----------------------***********<br/>;;;移动到0图层<br/>(DEFUN c:CY() (setq a (ssget))(command "chprop" a "" "la" 0 "")<br/> (prompt "\n移动对象到 0 图层......Amtonny") (princ))<br/>;;;移动到DD图层<br/>(DEFUN c:CDD() (setq a (ssget))(command "chprop" a "" "la" "DD" "")<br/> (prompt "\n移动对象到 DD 图层......Amtonny") (princ))</p><p>;;;*******<br/>;;;移动到UU图层<br/>(DEFUN c:CU() (setq a (ssget))(command "chprop" a "" "la" "UU" "")<br/> (prompt "\n移动对象到 UU 图层......Amtonny") (princ))<br/>;;;*******<br/>;;;移动到US图层<br/>(DEFUN c:CS() (setq a (ssget))(command "chprop" a "" "la" "US" "")<br/> (prompt "\n移动对象到 US 图层......Amtonny") (princ))<br/>;;;*******<br/>;;;移动到DX图层<br/>(DEFUN c:CX() (setq a (ssget))(command "chprop" a "" "la" "DX" "")<br/> (prompt "\n移动对象到 DX 图层......Amtonny") (princ))<br/>;;;*******<br/>;;;移动到DM图层<br/>(DEFUN c:CM() (setq a (ssget))(command "chprop" a "" "la" "DM" "")<br/> (prompt "\n移动对象到 DM 图层......Amtonny") (princ)) <br/>;;;*******<br/>;;;移动到UZ图层<br/>(DEFUN c:CZ()(setq a (ssget))(command "chprop" a "" "la" "UZ" "")<br/> (prompt "\n移动对象到 UZ 图层......Amtonny") (princ))<br/>;;;;***************--------------*****************<br/>;;;复制到指定图层</p><p>;;;复制到0图层<br/>(DEFUN c:CYU() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" 0 "")<br/> (prompt "\n复制对象到 0 图层......Amtonny") (princ)) </p><p>;;;*******<br/>;;;复制到DD图层</p><p>(DEFUN c:CCD() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "DD" "")<br/> (prompt "\n复制对象到 DD 图层......Amtonny") (princ))<br/> <br/>;;;*******<br/>;;;复制到UU图层</p><p>(DEFUN c:CCU() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "UU" "")<br/> (prompt "\n复制对象到 UU 图层......Amtonny") (princ))</p><p>;;;*******<br/>;;;复制到US图层<br/>(DEFUN c:CCS() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "US" "")<br/> (prompt "\n复制对象到 US 图层......Amtonny") (princ))</p><p>;;;*******<br/>;;;复制到DX图层<br/>(DEFUN c:CCX() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "DX" "")<br/> (prompt "\n复制对象到 DX 图层......Amtonny") (princ))<br/>;;;*******<br/>;;;复制到DM图层<br/>(DEFUN c:CCM() <br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "DM" "")<br/> (prompt "\n复制对象到 DM 图层......Amtonny") (princ))<br/> <br/>;;;*******<br/>;;;复制到UZ图层</p><p>(DEFUN c:CCZ()<br/> (setq a (ssget))<br/> (command "copy" a "" "0,0" "0,0")<br/> (command "change" a "" "p" "la" "UZ" "")<br/> (prompt "\n复制对象到 UZ 图层......Amtonny") (princ))</p><p></p><p>;;;------------------------------<br/>;;指令移动圆至0图层<br/>(defun C:CF (/ s1)<br/> (prompt "\n 移动圆至0 图层")<br/> (setq cmdsave (getvar "cmdecho")) <br/> (setvar "cmdecho" 0)<br/> (setq pt0 (getpoint " \n ---> 框选移动圆区域"))<br/> (setq pt1 (getcorner pt0))<br/> (setq s1 (ssget "C" pt0 pt1 '((0 . "CIRCLE"))))<br/> (command "chprop" s1 "" "la" "0" "")<br/> (setvar "cmdecho" cmdsave) <br/> (prompt "\n 指令 CF 移动圆至0 图层......Amtonny")<br/> (princ)<br/> )</p><p><br/>;;;复制到图层<br/>(DEFUN c:CXXx() <br/> (setq a (ssget)) <br/> (prompt "\n超级偏移\n--->>>请指定偏移方向")<br/> (command "OFFSET" 1 a pause "")<br/> (command "chprop" (entlast) "" "la" "dx" "")<br/> (command "copy" (entlast) "" "0,0" "0,0")<br/> (command "change" (entlast) "" "p" "la" "Uz" "")<br/> (command "OFFSET" 0.5 (entlast) pause "")<br/> (command "chprop" (entlast) "" "la" "dM" "")<br/> (prompt "\n超级偏移......Amtonny") (princ)) </p><p><br/>(defun c:cc ()<br/> (setvar "cmdecho" 0)<br/> (princ "\n--->>>连续复制")<br/> (SETQ SS(SSGET))<br/> (command "_.copy" ss "" "m")</p><p> (princ)<br/>)</p><p>;;;将虚线改变为DS层<br/> (defun C:FFFF (/ s1)<br/> (setq cmdsave (getvar "cmdecho")) <br/> (setvar "cmdecho" 0)<br/> (prompt "\n将所有虚线改变为DS层:") <br/> (setq s1 (ssget "X" '((6 . "CENTER"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (setq s1 (ssget "X" '((6 . "CENTER2"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (setq s1 (ssget "X" '((6 . "DASHED"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (setq s1 (ssget "X" '((6 . "DASHED2"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (setq s1 (ssget "X" '((6 . "HIDDEN"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (setq s1 (ssget "X" '((6 . "ACAD_ISO02W100"))))<br/> (command "chprop" s1 "" "la" "DS" "" )<br/> (prin1)<br/> )</p><p>;;;将中心线改变为p层<br/> (defun C:FFF (/ s1)<br/> (setq cmdsave (getvar "cmdecho")) <br/> (setvar "cmdecho" 0)<br/> (prompt "\n将中心线改为p层:") <br/> (setq s1 (ssget "X" '((6 . "CENTER"))))<br/> (command "chprop" s1 "" "la" "p" "" )<br/> (setq s1 (ssget "X" '((6 . "CENTER2"))))<br/> (command "chprop" s1 "" "la" "p" "" )<br/> (prin1)<br/> )<br/>;;;***********+<br/>;;;将指定颜色改变为0层<br/> (defun C:cFF (/ s1)<br/> (setq cmdsave (getvar "cmdecho")) <br/> (setvar "cmdecho" 0)<br/> ;(setq s2 (getstring "\n 请选择要转换到0层的对象颜色:"))<br/> ;(prompt "\n将中心线改为p层:") <br/> (setq s1 (ssget "x" '((62 . "4"))))<br/> (command "chprop" s1 "" "la" "p" "" )<br/> (prin1)<br/> )<br/>;;;***********+<br/>(defun c:bb()<br/> (setvar "osmode" 183)<br/> (setvar "ORTHOMODE" 0)<br/> (setq a (ssget)) <br/> (command"_copybase" pause a "")<br/> (COMMAND "ERASE" a "")<br/> (COMMAND "_pasteblock")</p><p> (setvar "ORTHOMODE" 1)<br/> (princ)</p><p></p><p></p><p>; 当前空间缩放（缩小0.5）<br/>(defun c:ZZ(/ orig_cmd) <br/> (setq orig_cmd (getvar "cmdecho"))<br/> (setvar "cmdecho" 0) <br/> (command "_zoom" "0.5X")<br/> (setvar "cmdecho" orig_cmd) <br/> (prompt "\n<当前空间缩放>: 缩小0.5 ")<br/> (prin1)<br/>); end of ZZ</p><p>; 当前空间缩放（放大2倍）<br/>(defun c:Z2(/ orig_cmd) <br/> (setq orig_cmd (getvar "cmdecho"))<br/> (setvar "cmdecho" 0) <br/> (command "_zoom" "2X")<br/> (setvar "cmdecho" orig_cmd) <br/> (prompt "\n<当前空间缩放>: 放大2倍")<br/> (prin1)<br/>); end of Z2<br/></p><p><br/>; 当前空间缩放（范围）<br/>(defun c:ZE(/ orig_cmd) <br/> (setq orig_cmd (getvar "cmdecho"))<br/> (setvar "cmdecho" 0) </p><p>请自行使用</p> <p>非常经典，顶你一个，实用！！！</p> <p>非常经典，顶你一个，实用！！！</p> 好象有几个人对偶小东东感兴趣哟 好东西，谢谢楼主 用用看感觉如何 <p>晕了 不知道怎么用</p> 回9楼：请打开看看这个：(defun c:Z2（）这里的C：后面的 Z2 就是命令，文件需加载后输入命令即可使用了，慢慢体验吧。
页:
[1]
2