求一个选择文字变公式的命令

lsfanlijie · 发表于 2016-4-15 16:44:33

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

求一个选择文字，变公式的命令，如图

选择包含M的和包含C的形成不同的公式，在cad中形成如上公式，公式的开始位置距离文字的中心距离2000

iLisp · 发表于 2016-4-15 16:51:03

看不出公式和文字有什么关系

lsfanlijie · 发表于 2016-4-15 17:08:43

一个文字有c一个有m

lsfanlijie · 发表于 2016-4-15 17:09:45

后面的数字

iLisp · 发表于 2016-4-15 17:10:22

lsfanlijie 发表于 2016-4-15 17:08
一个文字有c一个有m

公式怎么来的

iLisp · 发表于 2016-4-15 17:43:21

本帖最后由 iLisp 于 2016-4-15 18:25 编辑

这样试一试

(defun c:tt (/ ss lst)
(if (setq ss (ssget '((0 . "text") (1 . "*[MC]*####"))))
(progn
(setq lst (mapcar '(lambda (x)
(xdrx_getpropertyvalue
x "textstring" "position" "height" "rotation")
)
(xdrx_pickset->ents ss)
)
lst (mapcar '(lambda (x / a b c d e str)
(mapcar 'set '(a b c d) x)
(setq str (xdrx_string_trimleft
(strcase a)
"ABCDEFGHIJKLMNOPQRSTUVWXYZ"
)
)
(list (if (wcmatch a "*C*")
t
nil
)
(atof (xdrx_string_left str 2))
(atof (xdrx_string_right str 2))
b
c
d
)
)
lst
)
lst (mapcar '(lambda (x / a b c d e f)
(mapcar 'set '(a b c d e f) x)
(list (if a
(strcat "-"
(rtos (/ b 10) 2 1)
"x"
(rtos (/ c 10) 2 1)
"+"
(rtos b 2 1)
"+"
(rtos c 2 1)
"x2x0.08"
)
(strcat "-"
(rtos (/ b 10) 2 1)
"x"
(rtos (/ c 10) 2 1)
"+("
(rtos (/ b 10) 2 1)
"+"
(rtos (/ c 10) 2 1)
"x2)X0.12"
)
)
d
e
f
)
)
lst
)
)
(mapcar '(lambda (x)
(mapcar 'set '(a b c d) x)
(xdrx_text_make (polar b d 2000.0) a c d)
)
lst
)
)
)
(princ)
)

(defun c:tt (/ ss lst) 
  (if (setq ss (ssget '((0 . "text") (1 . "*[MC]*####")))) 
    (progn 
      (setq lst        (mapcar        '(lambda (x) 
                           (xdrx_getpropertyvalue 
                             x "textstring" "position" "height"        "rotation") 
                         ) 
                        (xdrx_pickset->ents ss) 
                ) 
            lst        (mapcar        '(lambda (x / a b c d e str) 
                           (mapcar 'set '(a b c d) x) 
                           (setq str (xdrx_string_trimleft 
                                       (strcase a) 
                                       "ABCDEFGHIJKLMNOPQRSTUVWXYZ" 
                                     ) 
                           ) 
                           (list (if (wcmatch a "*C*") 
                                   t 
                                   nil 
                                 ) 
                                 (atof (xdrx_string_left str 2)) 
                                 (atof (xdrx_string_right str 2)) 
                                 b 
                                 c 
                                 d 
                           ) 
                         ) 
                        lst 
                ) 
            lst        (mapcar        '(lambda (x / a b c d e f) 
                           (mapcar 'set '(a b c d e f) x) 
                           (list (if a 
                                   (strcat "-" 
                                           (rtos (/ b 10) 2 1) 
                                           "x" 
                                           (rtos (/ c 10) 2 1) 
                                           "+" 
                                           (rtos b 2 1) 
                                           "+" 
                                           (rtos c 2 1) 
                                           "x2x0.08" 
                                   ) 
                                   (strcat "-" 
                                           (rtos (/ b 10) 2 1) 
                                           "x" 
                                           (rtos (/ c 10) 2 1) 
                                           "+(" 
                                           (rtos (/ b 10) 2 1) 
                                           "+" 
                                           (rtos (/ c 10) 2 1) 
                                           "x2)X0.12" 
                                   ) 
                                 ) 
                                 d 
                                 e 
                                 f 
                           ) 
                         ) 
                        lst 
                ) 
      ) 
      (mapcar '(lambda (x) 
                 (mapcar 'set '(a b c d) x) 
                 (xdrx_text_make (polar b d 2000.0) a c d) 
               ) 
              lst 
      ) 
    ) 
  ) 
  (princ) 
)

lsfanlijie · 发表于 2016-4-15 20:58:12

iLisp 发表于 2016-4-15 17:43
这样试一试

用不起来啊

newer · 发表于 2016-4-17 12:42:08

lsfanlijie 发表于 2016-4-15 20:58
用不起来啊

安装晓东工具箱，然后加载上面的代码。

xinxirong · 发表于 2016-4-29 11:07:13

这么简单的东西，自己编一个算了。还要装xdAPI

lijunfa12345 · 发表于 2018-11-28 17:41:24

marting · 发表于 2018-11-28 19:23:23

xinxirong 发表于 2016-4-29 11:07
这么简单的东西，自己编一个算了。还要装xdAPI

键盘侠哪里都有

账号		自动登录	找回密码
密码			立即注册

[求助] 求一个选择文字变公式的命令

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

点评

点评

点评

点评