转Cass5.0扩展工具 源码
本帖最后由 nnzj 于 2013-9-9 00:15 编辑(princ "\n\n\n\n\n\n;;*************** Cass5.0扩展工具 *****************")
(princ "\n;;CC 打开选择实体所在图层,关闭其他层.")
(princ "\n;;ZZ 关闭选择实体所在图层.")
(princ "\n;;VV 显示添加的图层.")
(princ "\n;;CB 将图形颜色BYLAYER")
(princ "\n;;PLJ 将输入图层的LINE 或LWPOLYLINE;连接成LWPOLYLINE")
(princ "\n;;COP 将选择的实体复制放在\"0\"层.")
(princ "\n;;EPL 选择没闭合的LWPOLYLINE,将其闭合(构面)")
(princ "\n;;CHKGM 检测面状地物是否构面,如果没构面将其颜色该为(品红=6).")
(princ "\n;;CHKSX 检测Building层属性是否完全,如果不全将其颜色该为(品红=6).")
(princ "\n;;ADDF1 将Building层属性为空值的实体加上\"-1\".")
(princ "\n;;3DP 外业数据展点程序(直接转换到CASS5.0入库格式).")
(princ "\n;;POINTSX 将已形成DWG文件的\"SZS\"直接转换到CASS5.0入库格式.")
(princ "\n;;XLIST 察看扩展数据(单个实体).")
(princ "\n;;XDATA 加入扩展数据(单个实体).")
(princ "\n;;LIS 察看实体DXF数据(单个实体)")
(princ "\n;;NPP 根据所选实体的文本或已有属性的房屋NAME,将再次选择的房屋加入该属性.")
(princ "\n;;QPP 将所选实体的属性复制给其它实体.")
(princ "\n;;CHJG 将所选房屋的[结构暂缺]= -1 的实体改为[结构其它]= 0.")
(princ "\n;;CHYT 将所选房屋的[用途暂缺]= -1 的实体改为[结构 其它= 0,住宅=100,办公=101,商业=102].")
(princ "\n;;CHKID 将KID置.")
(princ "\n;;MapTF500在Autodesk Map下裁500图.")
(princ "\n;;MTR Map下裁剪.")
(princ "\n;;PCH 批量处理***.")
(princ "\n;;UD 将实体置上或置下.")
(princ "\n;;ER 关闭其它层打开ERROR层.")
(princ "\n;;CSTK 加CASS图廓.")
(princ "\n;;CHKE 检查非法图层、块、线型.")
(princ "\n;;CHKT 检查TYPE的值即CODE与LAYER是否匹配.")
(princ "\n;;HDP 幻灯片--浏览图形")
(princ "\n;;CHKC 查找无Code值的实体")
(princ "\n;;********************* Cadtools10000 ************************")
(princ "\n;;WQ 1:1000围墙符号.")
(princ "\n;;LS 1:1000栅栏符号.")
(princ "\n;;GX1 1:1000管线符号.")
(princ "\n;;GX2 1:1000管线符号.")
(princ "\n;;DX 1:1000电线符号.")
(princ "\n;;KAN 1:1000陡坎符号.")
(princ "\n;;GJK 1:500加固坎符号.")
(princ "\n;;HSLB 1:500活树篱笆符号.")
(princ "\n;;MD 1:500门墩符号.")
(princ "\n;;FT 1:500扶梯符号.")
(princ "\n;;TJ 1:500台阶符号.")
(princ "\n;;IZ 1:500植被成组注记.")
(princ "\n;;SLAYER1:500加入环境.")
(princ "\n;;FX 1:500棚房、桥符号.")
(princ "\n;;GC1 1:500一位高程#.#.")
(princ "\n;;GC2 1:500二位高程#.##.")
(princ "\n;;GC3 1:500三位高程#.###.")
(princ "\n;;JZB 极坐标计算程序.")
(princ "\n;;C_CHANGE 文字,块等批量修改程序.")
(princ "\n;;ZDM 纵断面生成程序.")
(princ "\n;;HDM 横断面生成程序.")
(princ "\n;;SEARCH文字,块等查找程序.")
(princ "\n;;PPP 展点程序,原3DP程序.")
(princ "\n;;SHOWH 将具有3维坐标块\"SZS\"的高程展在图上.")
(princ "\n;;TQ 提取图形中的文字并形成文件程序.")
(princ "\n;;ZJT 将提取图形中的文字注记到图形中程序,TQ的逆运算.")
(princ "\n;;SX 将选取实体的线型该为CONTINUOUS.")
(princ "\n;;XX 将选取实体的线型该为DASH1.")
(princ "\n;;DB 将选取的直线单点打断.")
(princ "\n;;GD 将选高、低压线互换711A<==>712A.")
(princ "\n;;SAVER14TOR12 将R14格式另存为R12格式.")
(princ "\n;;DB 将选取的直线单点打断.")
(princ "\n;;DELDH 删除点号.")
(princ "\n;;HXYS 提取红线元素.")
(princ "\n;;NXY 提取点名、x、y.")
(princ "\n;;HU 求弧长.")
(princ "\n;;LC 里程标注.")
(princ "\n;;XY 在图上注记X,Y坐标.")
(princ "\n;;3WTO2W三维变贰维.")
(princ "\n;;CPL 炸碎多义线.")
(princ "\n;;PLJ 将指定图层的线或多义线连接成多义线.")
(princ "\n;;ZSWZ 炸碎文字.")
(princ "\n;;ZSTXT 炸碎文字,和ZSWZ一样.")
(princ "\n;;HBWZ 合并文字.")
(princ "\n;;WBK 写块并打开该图 ")
(princ "\n;;HTOV 水平注记的文字变成垂直注记.")
(princ "\n;;TFH500在所选的图面位置注记1:500图号.")
(princ "\n;;TFX500在所选的图面范围内注记1:500图号,并画出分幅线.")
(princ "\n;;TFX1000 在所选的图面范围内注记1:1000图号,并画出分幅线.")
(princ "\n;;TFX2000 在所选的图面范围内注记1:2000图号,并画出分幅线.")
(princ "\n;;TK500 在所选的图面加注1:500图廓线.")
(princ "\n;;TK1000在所选的图面加注1:1000图廓线.")
(princ "\n;;TK2000在所选的图面加注1:2000图廓线.")
(princ "\n;;TF500 将所选的图面按1:500分幅切割成分幅图并存到C:MAPLIB目录下(应先建立该目录).")
(princ "\n;;TF1000将所选的图面按1:1000分幅切割成分幅图并存到C:MAPLIB目录下(应先建立该目录).")
(princ "\n;;TF2000将所选的图面按1:2000分幅切割成分幅图并存到C:MAPLIB目录下(应先建立该目录).")
(princ "\n;;ADD 选择包含数字的字符串相加减.")
(princ "\n;;C2 选择包含数字的字符串除以2.0.")
(princ "\n;;STS 将文本缩放x倍")
(princ "\n;;**********************说明*************************")
(princ "\n;; 1:500或1:1000如果想进入那一层,直接输入该层文字,如:87")
(princ "\n;; 1:500或1:1000如果想改注记的高度,直接输入T??,然后再选该文字即可如:T25,T07等")
(princ "\n;;*******************************************************")
(princ)
)
;;====================================================================================== 感谢分享 尤其感谢后面上传的
谢谢楼主，学习下 看一下就收费啊，应该下载收费才对啊1 谢谢楼主，学习下 哎,白送了1个明经币 为啥，将明经币看成了真币？ 很全面，接受了 强烈支持。请问你的向小波吗 垃圾啊浪费 谢谢分享。 用了一下，炸碎文字不能用
页:
[1]
2