转Cass5.0扩展工具 源码

nnzj

(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     将所选实体的属性复制给其它实体[KID植除外].")
(princ "\n;;CHJG    将所选房屋的[结构暂缺]= -1 的实体改为[结构其它]= 0.")
(princ "\n;;CHYT    将所选房屋的[用途暂缺]= -1 的实体改为[结构 其它= 0,住宅=100,办公=101,商业=102].")
(princ "\n;;CHKID   将KID置[0].")
(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;;SLAYER  1: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)
)
;;======================================================================================

wm123456

感谢分享 尤其感谢后面上传的

马甲

谢谢楼主，学习下

vlisp2012

看一下就收费啊，应该下载收费才对啊1

friendship

谢谢楼主，学习下

77077

哎,白送了1个明经币

gzxl

为啥，将明经币看成了真币？

liujing95

很全面，接受了

树櫴希德

强烈支持。请问你的向小波吗

技术工作室

垃圾啊浪费

恕放之生命

谢谢分享。

新新小兵

用了一下，炸碎文字不能用