【文字】插入平方字符

marting

1. (defun c:xdtb_txtpingfang ( / #textstring a b dynpt e p ss x)
   
2.   (defun _callback (dynpt)
   
3.     (redraw)
   
4.     (if        (setq a (XD::Text:IndexAtPoint (car e) dynpt))
   
5.       (xdrx-grdraw 7 -1 (xd::pnts:close (nth 2 a)))
   
6.     )
   
7.   )
   
8.   (xdrx-begin)
   
9.   (if (setq e (xdrx-entsel "\n拾取文字<多选>:" '((0 . "text"))))
   
10.     (progn
    
11.       (xdrx-pointmonitor "_callback")
    
12.       (if (setq p (getpoint "\n点取要插入的位置:"))
    
13.         (progn
    
14.           (redraw)
    
15.           (setq
    
16.             b (strcat
    
17.                 (xdrx-string-substr        (xdrx-getpropertyvalue (car e) "textstring")
    
18.                         1
    
19.                         (1+ (nth 1 a))
    
20.                 )
    
21.                 "㎡"
    
22.                 (xdrx-string-substr #textstring (+ 2 (nth 1 a)) (xdrx-string-length #textstring))
    
23.               )
    
24.           )
    
25.           (xdrx-setpropertyvalue (car e) "textstring" b)
    
26.         )
    
27.       )
    
28.       (xdrx-pointmonitor)
    
29.     )
    
30.     (progn
    
31.       (if (and (xdrx-initssget "\n选择文字<退出>:")
    
32.                (setq ss (xdrx-ssget '((0 . "text"))))
    
33.           )
    
34.         (progn
    
35.           (mapcar
    
36.             '(lambda (x)
    
37.                (xdrx-setpropertyvalue
    
38.                  x
    
39.                  "textstring"
    
40.                  (strcat (xdrx-getpropertyvalue x "textstring") "㎡")
    
41.                )
    
42.              )
    
43.             (xdrx-pickset->ents ss)
    
44.           )
    
45.         )
    
46.       )
    
47.     )
    
48.   )
    
49.   (xdrx-end)
    
50.   (princ)
    
51. )
    
52. 
    

(defun c:xdtb_txtpingfang ( / #textstring a b dynpt e p ss x)<br />   (defun _callback (dynpt)<br />     (redraw)<br />     (if        (setq a (XD::Text:IndexAtPoint (car e) dynpt))<br />       (xdrx-grdraw 7 -1 (xd::pnts:close (nth 2 a)))<br />     )<br />   )<br />   (xdrx-begin)<br />   (if (setq e (xdrx-entsel "\n拾取文字<多选>:" '((0 . "text"))))<br />     (progn<br />       (xdrx-pointmonitor "_callback")<br />       (if (setq p (getpoint "\n点取要插入的位置:"))<br />         (progn<br />           (redraw)<br />           (setq<br />             b (strcat<br />                 (xdrx-string-substr        (xdrx-getpropertyvalue (car e) "textstring")<br />                         1<br />                         (1+ (nth 1 a))<br />                 )<br />                 "㎡"<br />                 (xdrx-string-substr #textstring (+ 2 (nth 1 a)) (xdrx-string-length #textstring))<br />               )<br />           )<br />           (xdrx-setpropertyvalue (car e) "textstring" b)<br />         )<br />       )<br />       (xdrx-pointmonitor)<br />     )<br />     (progn<br />       (if (and (xdrx-initssget "\n选择文字<退出>:")<br />                (setq ss (xdrx-ssget '((0 . "text"))))<br />           )<br />         (progn<br />           (mapcar<br />             '(lambda (x)<br />                (xdrx-setpropertyvalue<br />                  x<br />                  "textstring"<br />                  (strcat (xdrx-getpropertyvalue x "textstring") "㎡")<br />                )<br />              )<br />             (xdrx-pickset->ents ss)<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

yangjian001

谢楼主分享好资料

1917732332

谢楼主分享

kyky1002

这个非常厉害，多谢分享

香远益清

错误: 输入中含有多余的闭括号

newer

香远益清 发表于 2020-6-10 10:31
错误: 输入中含有多余的闭括号

你没拷贝完整

liuwenxuan8351

感谢楼主分享 好好学习下

香远益清

newer 发表于 2020-6-10 11:20
你没拷贝完整

完整复制了，又试了几次，还是提示：
命令:
错误: 输入中含有多余的闭括号

香远益清

newer 发表于 2020-6-10 11:20
你没拷贝完整

完整复制了，又试了几次，还是提示：
命令:
错误: 输入中含有多余的闭括号