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

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

本帖最后由 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
两个函数论坛找

大神可以帮我下吗，我真的找不到
页: [1]
查看完整版本: 求各位大神，求如下数字转换功能比如有个数据A*B,输入tt选中A*B后，在他后面生成(