添加两个不同的单元文本

erbalaji · 发表于 2022-7-5 15:18:08

开发者们好。
我有一个奇怪的情况，我想添加两个文本，一个是米，另一个是毫米，我想添加这两个数字，我想输出米。
你能帮助我吗？
请参阅图片以供参考

hanhphuc · 发表于 2022-7-5 15:31:24

([color="blue"][b]+[/b][/color] 46.00 ([color="blue"][b]/[/b] [/color]379 1000.))

erbalaji · 发表于 2022-7-5 15:43:41

谢谢你的回复。
我的要求是我在cad中有这些值。
我想先选择链测长度，然后选择差异，并想用米的输出替换现有文本。

erbalaji · 发表于 2022-7-5 15:51:27

我有这个lisp，但我想消除输入链测长度：

copy

(defun *error* (errmsg)
 (princ "\nAn error has occurred in the programme. ")
 (terpri)
 (prompt errmsg)
 (princ)
)
(defun trap1 (errmsg)                                                ;define function
(setvar "osmode" oldsnap)                                ;restore variables
(setvar "clayer" oldlayer)
(setvar "cmdecho" oldecho)
(setq *error* temperr)                                        ;restore *error*
(prompt "\nResetting System Variables ")                ;inform user
  (princ)
)
(defun c:dff (/ p1 p2 di e e1 v1 lens)
          (vl-load-com)
           (setq temperr *error*)                                        ;store *error*
(setq *error* trap1)                                        ;re-assign *error*
(setq oldecho (getvar "cmdecho"))                        ;store variables
(setq oldlayer (getvar "clayer"))
(setq oldsnap (getvar "osmode"))
(setvar "cmdecho" 0)                                        ;reset variables
(setvar "osmode" 1)
 
 (setq lens 0)
    (setq ext
               (cond
                   (   (getdist
                           (strcat "\nSpecify Previous Chainage"
                               (if ext (strcat " <" (rtos ext) "> : ") ": ")
                           )
                       )
                   )
                   (   ext   )
               )
           )
 
    (setq ext1
               (cond
                   (   (getdist
                           (strcat "\nSpecify Current Distance"
                               (if ext (strcat " <" (rtos ext) "> : ") ": ")
                           )
                       )
                   )
                   (   ext   )
               )
           )
         
             (setq p3 (/ ext1 1000))
(setq lens2 (+ ext p3))
         (progn
(prompt"\n Select text object to paste New Chainage :")
(setq e (ssget "_+.:S:L" '((0 . "*TEXT")))))
 
(progn
(setq lens (+ lens (+ lens2 0)))
(entupd (cdr (assoc -1 (entmod (subst(cons 1 (rtos lens 2 3))(assoc 1 (setq e1 (entget (ssname e 0))))e1))))))
(princ)
 (setq errFlag T)
           (setvar "clayer" oldlayer)                                                        ;reset variables
(setvar "osmode" oldsnap)
(setvar "cmdecho" oldecho)
(setq *error* temperr)        
 (princ)
 )

hanhphuc · 发表于 2022-7-5 16:03:41

抱歉，内部服务器错误让我抓狂！我过去30分钟没能发帖！
不知道你的意思
你选择379然后选择46.000，
46.000变成46.379？

这只是草稿，您需要调试，示例错误，如果选择非文本等。。

copy

(defun c:test ( / mmTx tx ob )
 (and (setq mmtx (car (entsel "\nSelect mm Text ")))
      (setq tx (car (entsel "\nSelect CH Text to add ")))
      (setq str (rtos (apply '+
              (setq l (mapcar ''((a b) (* a (atof (vla-get-textString (setq ob (vlax-ename->vla-object b))))))
                              '(1e-3 1.0)
                              (list mmtx tx)
                              )
                    )
              ) 
       2
       )
     )
      (vla-put-TextString
 ob
 str 
 ) 
      ) 
 (princ)
 )