插件BUG，无法修改文字图层

冒个烟圈

附件在8楼，，请帮忙修复此BUG。。


http://bbs.mjtd.com/data/attachm ... zzci6x34xt206ct.jpg

该贴已经同步到 冒个烟圈的微博

my999god

執行指令 GT

MENGZE

好程序竞无人顶，天天都用得上的实用工具

love1030312

为什么提示错误    你们呢  能用吗 求教

冒个烟圈

my999god 发表于 2016-4-14 20:34
執行指令 GT

首先谢谢你发这个程序！！！
但有点小问题，，跟3楼一样，CAD2014加载后提示：错误: 读入的 (八进制) 字符不正确: 0

查找半天找不到原因，请教这个该如何破。。。

冒个烟圈

my999god 发表于 2016-4-14 20:34
執行指令 GT

感谢，。提问的自己问题解决了，

冒个烟圈

my999god 发表于 2016-4-14 20:34
執行指令 GT

感谢，。提问的自己问题解决了，

冒个烟圈

感谢my999god的程序，正使用中，但程序有一个BUG，就是无法修改文字的图层，现在把附件重新传上来，请路过的兄弟帮忙解决此问题，谢谢！！！

尘缘一生

         发一个我自己的文字修改，仅提供另一思路，因为，此程序虽然强大，但是双穴点不能修改加字数，宽度限制死了，否则，变得一行文字又瘦又长的样子；为何不取得目标文字的，内容，颜色，高度，角度，图层等后，直接写出，再用CHANGE 改属性？

         假如此程序不用 entmod   entupd  方式修改，将解决问题。

2. ;;----------------------------------------------------------------------------
   
3. 
   
4.   (defun C:DD-CHT(/ str l l1 d pt2 pt3 e e1 hi ang)
   
5.   (setq e (entget(setq e1(nth 0 (entsel "请选择一文字实体\n====")))))
   
6.      (while (/= "TEXT"(cdr (assoc 0 e)))
   
7.        (setq e (entget(setq e1(nth 0 (entsel "请选择一文字实体\n====")))))
   
8.      )
   
9.   (setq str(cdr(assoc 1 e)))
   
10.   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dd-cht-dcl))) 0))
    
11.       (setq dcl_id(load_dialog (dd-cht-dcl)))
    
12.   )
    
13.   (if (not (new_dialog "cstr" dcl_id))
    
14.       (exit)
    
15.   )
    
16.   (set_tile "tile0" str)
    
17.   (action_tile "tile0" "(setq str $value)")
    
18.   (action_tile "accept" "(done_dialog 1)")
    
19.   (start_dialog)
    
20.   (unload_dialog dcl_id)
    
21.   (CH-ZI)
    
22.   )
    
23.   
    
24. ;;------------------------------------------------------------------
    
25. 
    
26. (defun dd-cht-dcl (/ lst_str str file f)
    
27. (setq lst_str '(
    
28. " cstr:dialog {"
    
29. " label="请给出新文字（编者：陈传建）:?";"
    
30. " initial_focus=tile0;"
    
31. " :boxed_row {"
    
32. "   label="文字为= :";"
    
33. "    :edit_box {"
    
34. "      key="tile0";"
    
35. "      allow_accept=true;"
    
36. "    }"
    
37. " }"
    
38. "  ok_cancel;"
    
39. " }"
    
40.         )
    
41.     )
    
42.     (setq file (vl-filename-mktemp "DclTemp.dcl"))
    
43.     (setq f (open file "w"))
    
44.     (foreach str lst_str
    
45.   (princ "\n" f)
    
46.   (princ str f)
    
47.     )
    
48.     (close f)
    
49.     ;;返回
    
50.     file
    
51. )
    
52. ;;--------------------------------------------------------------------------------
    
53. (defun CH-ZI ( )
    
54.   (setq ang(angtos (cdr(assoc 50 e)) 0 2))
    
55.   (setq hi(cdr(assoc 40 e)))  ；高度取原值，可以改成本帖的方法取得新值。
    
56.   (setq l1(strlen(cdr(assoc 1 e))))
    
57.   (setq sty(cdr(assoc 7 e)))  ；字体取原字体，可以改成本帖方法取得新字体。
    
58.   (setq pt2(cdr(assoc 10 e))) ；取得文字起始点，自此向右些出目标文字。
    
59. (entdel e1)   ；删除旧文字
    
60. (command "TEXT" "S" sty pt2 hi ang str)   ；写出目标文字
    
61.   (vl-cmdf "_.JustifyText" (entlast) "" "F")   ；改成双穴点，因为我用双穴点系统
    
62.         (command "CHANGE" (entlast) "" "P" "C" (rtos (1+ (rem (getvar "CPUTICKS") 8))) "")   

;;----------------------------------------------------------------------------<br /> <br />   (defun C:DD-CHT(/ str l l1 d pt2 pt3 e e1 hi ang)<br />   (setq e (entget(setq e1(nth 0 (entsel "请选择一文字实体\n====")))))<br />      (while (/= "TEXT"(cdr (assoc 0 e)))<br />        (setq e (entget(setq e1(nth 0 (entsel "请选择一文字实体\n====")))))<br />      )<br />   (setq str(cdr(assoc 1 e)))<br />   (if (or (not dcl_id) (< (setq dcl_id(load_dialog (dd-cht-dcl))) 0))<br />       (setq dcl_id(load_dialog (dd-cht-dcl)))<br />   )<br />   (if (not (new_dialog "cstr" dcl_id))<br />       (exit)<br />   )<br />   (set_tile "tile0" str)<br />   (action_tile "tile0" "(setq str $value)")<br />   (action_tile "accept" "(done_dialog 1)")<br />   (start_dialog)<br />   (unload_dialog dcl_id)<br />   (CH-ZI)<br />   )<br />   <br /> ;;------------------------------------------------------------------<br /> <br /> (defun dd-cht-dcl (/ lst_str str file f)<br /> (setq lst_str '(<br /> " cstr:dialog {" <br /> " label="请给出新文字（编者：陈传建）:?";" <br /> " initial_focus=tile0;" <br /> " :boxed_row {" <br /> "   label="文字为= :";" <br /> "    :edit_box {" <br /> "      key="tile0";" <br /> "      allow_accept=true;" <br /> "    }" <br /> " }" <br /> "  ok_cancel;" <br /> " }" <br />         )<br />     )<br />     (setq file (vl-filename-mktemp "DclTemp.dcl"))<br />     (setq f (open file "w"))<br />     (foreach str lst_str<br />   (princ "\n" f)<br />   (princ str f)<br />     )<br />     (close f)<br />     ;;返回<br />     file<br /> )<br /> ;;--------------------------------------------------------------------------------<br /> (defun CH-ZI ( )<br />   (setq ang(angtos (cdr(assoc 50 e)) 0 2))<br />   (setq hi(cdr(assoc 40 e)))  ；高度取原值，可以改成本帖的方法取得新值。<br />   (setq l1(strlen(cdr(assoc 1 e))))<br />   (setq sty(cdr(assoc 7 e)))  ；字体取原字体，可以改成本帖方法取得新字体。<br />   (setq pt2(cdr(assoc 10 e))) ；取得文字起始点，自此向右些出目标文字。<br /> (entdel e1)   ；删除旧文字<br /> (command "TEXT" "S" sty pt2 hi ang str)   ；写出目标文字<br />   (vl-cmdf "_.JustifyText" (entlast) "" "F")   ；改成双穴点，因为我用双穴点系统<br />         (command "CHANGE" (entlast) "" "P" "C" (rtos (1+ (rem (getvar "CPUTICKS") 8))) "")   

冒个烟圈

尘缘一生 发表于 2016-4-16 07:32
发一个我自己的文字修改，仅提供另一思路，因为，此程序虽然强大，但是双穴点不能修改加字数，宽度 ...

每个程序适用的行业和习惯不一样，适合自己的才是最好的。。
还是等热心的高手出手。。