求各位大神，求如下数字转换功能比如有个数据A*B,输入tt选中A*B后，在他后面生成(

664571221 · 发表于 2019-1-6 09:40:05

本帖最后由 664571221 于 2019-1-7 08:27 编辑

求如下数字转换功能比如有个数据A*B,输入tt选中A*B后，在他后面生成(-A*B)+(A+B)*2*0.07
比如1.2*2.1，输入tt选中1.2*2.1,在这个文字后面x+5000的地方，生成（-1.2*2.1）+（1.2+2.1）*2*0.07

血司 · 发表于 2019-1-7 11:19:11

(defun c:lxy (/ a b na npt str te ypt)
      (setq na (car (entsel"\n请选择文本：")))
      (setq te (Vlax-Get (Vlax-Ename->Vla-Object na) 'TextString ))
      (setq a (atof (car (str->lst te "*")))
            b (atof(cadr (str->lst te "*")))
      )
      (setq str (rtos (+ (* 2 0.07 (+ a b)) (* (- 0 a) b)) 2))
      (setq ypt (Vlax-Get (Vlax-Ename->Vla-Object na) 'InsertionPoint ))
      (setq npt (append (list (+ 5000 (car ypt))) (list (cadr ypt))))
      (entmake-text str npt 1 0 1 0 0)
      (princ)
)
(princ)

C2开发 · 发表于 2019-1-7 09:31:23

有偿可以给你做一下

C2开发 · 发表于 2019-1-7 09:31:58

Q 328501556

664571221 · 发表于 2019-1-7 16:37:19

血司发表于 2019-1-7 11:19
(defun c:lxy (/ a b na npt str te ypt)
(setq na (car (entsel"\n请选择文本：")))
(s ...

你好，显示 no function definition: STR->LST

血司 · 发表于 2019-1-9 10:41:58

664571221 发表于 2019-1-7 16:37
你好，显示 no function definition: STR->LST

两个函数论坛找

664571221 · 发表于 2019-1-9 15:29:12

血司发表于 2019-1-9 10:41
两个函数论坛找

你好大神，能否介绍下，如何在论坛里面找函数，没有经验，求指导

664571221 · 发表于 2019-1-12 10:26:54

血司发表于 2019-1-9 10:41
两个函数论坛找

大神可以帮我下吗，我真的找不到

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

[提问] 求各位大神，求如下数字转换功能比如有个数据A*B,输入tt选中A*B后，在他后面生成(

[提问] 求各位大神，求如下数字转换功能比如有个数据AB,输入tt选中AB后，在他后面生成(