做建筑底图处理的小程序

tranney

给像和我一样的朋友，需要做处理建筑底图
(defun c:0T()
     (setq ceng "0-建筑底图")
     (PRINC "\n---将所选对象设置为")(princ ceng)(PRINC "，属性随层")
     (if (= (TBLOBJNAME "LAYER" ceng) nil)
     (command "layer" "n" ceng "c" "8" ceng "lt" "" "bylayer" ""))
     (while(setq a (ssget":s"))
     (setvar "cmdecho" 0)
     (command "change" a "" "p" "c" "bylayer" "la" ceng "lw" "bylayer" "")
     )
     (command "clayer" ceng)
     (PRINC "\n---将所选对象设置为")(princ ceng)(PRINC "，属性随层")
     (princ)
     )
哎呀呀，发现bug了，刚才找了半天没找到编辑这个选项，求管理员删除

yiqisese

继续写这个帖子  设备的都需要