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