移动标题的某些属性
大家好，这是我的第一篇帖子。
任何人都已经为在块中移动某些属性制作了lisp。如果没有，这可能吗？
场景是我已经完成了绘图，但我们现在需要更改标题栏，一行属性现在没有在框内对齐。我附上一张照片，让自己更清楚。。。。。我有几百张画
提前感谢！
干杯
插入并重新定义块[使用已固定版本的tblock]，然后Attsync
那你就完了
欢迎来到CAD导师jeem_CAD 试试这个Lisp程序
将下面的代码另存为两个单独的代码。lsp文件，我无法在这里加载
转到not working文件夹，在Startup Suite中加载这两个文件
然后键入PROC以执行
；；；fixo（）2012；；；6/2/13;;; 测试不够（defun C:PROC（/dwgname dwgs fstream folder scrfile）（setq dwgname（getfield“选择第一个DWG文件”（getvar“dwgprefix”）“DWG”16））（setq folder（vl filename directory dwgname））（setq dwgs（vl directory files folder“*DWG”1））（if（not（eq“\\”（substr folder（strlen folder）1））（setq folder（strcat folder“\\”）（setq folder（vl string translate“\\”/）文件夹））（setq dwgs（mapcar（function（lambda（file）（strcat folder file）））dwgs））（setq scrfile（strcat folder“BatchAttJust.scr”））（setq fstream（open scrfile“w”））（foreach dwg dwgs（write line（strcat“.open”dwg“\”）fstream）（write line（strcat“（load \“BATTJUST.lsp”“\”）fstream）（write line“（BATTJUST）”fstream）（write line“.QSAVE”fstream））（关闭fstream）（命令“_.DELAY”500）（警报“脚本正在运行…”）（命令“_.SCRIPT”scrfile）（princ））（princ“\n\t\t--\t用PROC\t--”开始批处理（princ）；__________________________________________________;；；；；另存为单独的lisp文件（请参阅代码中的注释）；；巴特贾特。lsp（defun BATTJUST（/aligntxt att_list blkdef blkname cmde）（vl load com）（setq cmde（getvar“cmdecho”））（setvar“cmdecho”0）（setq blkname“TITLEBLOCK”）（if（tblsearch“block”blkname）（progn（setq att_list（mapcar的strcase（list“DATE”“DATE2”“DATE3”“sometothertag”））；； 我也有类似的情况，但需要不同的补救措施。当CAD崩溃时，它有时会使标题栏中的属性失去对齐。ATTSYNC有时有效，有时无效。而且它似乎从来不会影响所有属性，只是少数属性。所以我想做的是在lisp中使用标题栏中属性的现有坐标——正如它们应该的那样——在每次打开图形时重置属性。因此，如果图形发生崩溃，属性失去正常，它们可以自动将自己调整回其原始位置（坐标）。所以，我有每个属性的坐标，但如何重置它们的位置？你会移动并编码0,0,0作为所有的基点（这也是块插入点）？我需要识别每个属性标签及其坐标是否正确？？但是你必须告诉lisp哪个区块是第一个，是吗？我只是想知道怎么做。
页:
[1]