做建筑底图处理的小程序
本帖最后由 tranney 于 2014-4-12 14:51 编辑给像和我一样的朋友，需要做处理建筑底图
(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了，刚才找了半天没找到编辑这个选项，求管理员删除 继续写这个帖子设备的都需要
页:
[1]