求做一个标注平行线宽度的插件 悬赏50明经币

呼呼se

i0=]

ssyfeng

修改相同内容的标注

2. (defun c:tt (/ *error* cmd dist en en0 ent ent0 new-str ss ssn str str0)
   
3.   (defun *error* ( msg )
   
4.     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))
   
5.       (progn (princ (strcat "\n错误：" msg)) (vl-cmdf "_undo" "e") (vl-cmdf "_undo" 1) (setvar "CMDECHO" cmd))
   
6.     )
   
7.     (princ)
   
8.   )
   
9.   (vl-cmdf "_undo" "be")
   
10.   (setq cmd (getvar "CMDECHO"))
    
11.   (setvar "CMDECHO" 0)
    
12.   (while (setq en (car (entsel "\n选择标注样板："))
    
13.            
    
14.          )
    
15.     (setq new-str (getstring "\n输入新值：")
    
16.       ent (entget en)
    
17.       str0 (cdr (assoc 1 ent))
    
18.       dist (cdr (assoc 42 ent))
    
19.     )
    
20.     (if str0 (setq str str0) (setq str (rtos dist 2 3)))
    
21.     (setq ss (ssget (list '(0 . "DIMENSION") '(-4 . "<xor") (cons 1 str) '(-4 . "<and") (cons 1 "") (cons 42 (atof str)) '(-4 . "and>") '(-4 . "xor>")))
    
22.       ssn (sslength ss)
    
23.     )
    
24.     (repeat ssn
    
25.       (setq en0 (ssname ss (setq ssn (1- ssn)))
    
26.         ent0 (entget en0)
    
27.       )
    
28.       (entmod (subst (cons 1 new-str) (assoc 1 ent0) ent0))
    
29.       (entupd en0)
    
30.     )
    
31.   )
    
32.   (vl-cmdf "_undo" "e")
    
33.   (setvar "CMDECHO" cmd)
    
34.   (princ)
    
35. )

(defun c:tt (/ *error* cmd dist en en0 ent ent0 new-str ss ssn str str0)<br />   (defun *error* ( msg )<br />     (if (not (wcmatch (strcase msg t) "*break,*cancel*,*exit*"))<br />       (progn (princ (strcat "\n错误：" msg)) (vl-cmdf "_undo" "e") (vl-cmdf "_undo" 1) (setvar "CMDECHO" cmd))<br />     )<br />     (princ)<br />   )<br />   (vl-cmdf "_undo" "be")<br />   (setq cmd (getvar "CMDECHO"))<br />   (setvar "CMDECHO" 0)<br />   (while (setq en (car (entsel "\n选择标注样板："))<br />            <br />          )<br />     (setq new-str (getstring "\n输入新值：")<br />       ent (entget en)<br />       str0 (cdr (assoc 1 ent))<br />       dist (cdr (assoc 42 ent))<br />     )<br />     (if str0 (setq str str0) (setq str (rtos dist 2 3)))<br />     (setq ss (ssget (list '(0 . "DIMENSION") '(-4 . "<xor") (cons 1 str) '(-4 . "<and") (cons 1 "") (cons 42 (atof str)) '(-4 . "and>") '(-4 . "xor>")))<br />       ssn (sslength ss)<br />     )<br />     (repeat ssn <br />       (setq en0 (ssname ss (setq ssn (1- ssn)))<br />         ent0 (entget en0)<br />       )<br />       (entmod (subst (cons 1 new-str) (assoc 1 ent0) ent0))<br />       (entupd en0)<br />     )<br />   )<br />   (vl-cmdf "_undo" "e")<br />   (setvar "CMDECHO" cmd)<br />   (princ)<br /> )

呼呼se

ssyfeng 发表于 2018-11-26 10:59
你下载这个文件试试：

可以了  大哥  请问能在有明经币那个里面发个言嘛  我转给你明经币！！！

呼呼se

ssyfeng 发表于 2018-11-26 08:49
什么问题，可以截图。把出问题的cad文件一起上传注明一下。
点评分就可以给了。

我加载之后  就提示字符缺陷

ssyfeng

改标注内容？还是。。。。。

呼呼se

ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。

改标注内容  原图不变

呼呼se

ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。

请问你会吗？

呼呼se

ssyfeng 发表于 2018-11-10 18:23
改标注内容？还是。。。。。

请问你会吗

呼呼se

ssyfeng 发表于 2018-11-25 18:43
修改相同内容的标注

感谢大哥相助

呼呼se

呼呼se 发表于 2018-11-26 08:29
感谢大哥相助

我怎么把明经币给你

呼呼se

呼呼se 发表于 2018-11-26 08:29
感谢大哥相助

我怎么把明经币给你

呼呼se

ssyfeng 发表于 2018-11-25 18:43
修改相同内容的标注

大哥  提示字符有缺陷。