添加所选mtex的数量

reynaldomalasag · 发表于 2022-7-5 16:40:39

您好，先生/女士，
谁能教我怎么修改这个代码。。我需要在我的图形中选择一个文本，并将添加选定的文本。。请帮帮我！！！：哭：：哭：：哭：
这是代码
（定义c:addn（/ss）
（vl load com）
（if（and（setq ss（ssget“X”（list（cons 0“*text”））））
（setq amt（getreal“\nIsuwat kung pila ang gusto nimo e puno na numero：”））
（程序
（mapcar’（λ（z）（vla put textstring z（rtos（+（atof（vla get textstring z））amt）2 3）））
（mapcar“vlax ename->vla object（vl remove if”listp（mapcar“cadr（ssnamex ssϨ）'））））
)
)
（普林斯）
)

BIGAL · 发表于 2022-7-5 17:09:46

类似于此文本的内容

copy


;Adds a fixed amount to a number
(Alert "TO USE JUST TYPE A2LM")
(DEFUN c:A2LM ( / el en a v1 v2 ss)
(setvar "cmdecho" 1)
(setq olddimzin (getvar "Dimzin"))
(setvar "dimzin" 0)
(if (not AH:getval) (load "getval"))
(ah:getval "Enter ht adjust.." 10 
(setq v2 (Atof item))
(setq ss (ssget (list (cons 0 "Text"))))
(setq len (sslength ss))
(setq x 0)
(repeat len
(setq en1 (ssname ss x))
       (setq el1 (entget en1))
       (setq v1 (atof (cdr (assoc 1 el1))))
       (setq a (+ v1 v2))
       (setq b (rtos a 2 3))
       (setq el (subst (cons 1 b) (assoc 1 el1) el1))
       (entmod el)
(setq x (+ x 1))
     
) ; repeat
(setvar "cmdecho" 1)
(setvar "dimzin" olddimzin)
(princ)
); END DEFUN

copy


;; Input  Dialog box with variable title
;; By Ah June 2012
;; code (ah:getval "LINE 1" 6 5)
(defun AH:getval (title width limit / fo)
(setq fo (open "C:\\acadtemp\\getval.dcl" "w"))
(write-line "ddgetval : dialog {" fo)
(write-line " : row {" fo)
(write-line ": edit_box {" fo)
(write-line (strcat "    key = "  (chr 34) "key1" (chr 34) ";") fo)
(write-line  (strcat " label = "  (chr 34) title (chr 34) ";"  )   fo)
(write-line (strcat "     edit_width = " (rtos width 2 0) ";" ) fo)
(write-line (strcat "     edit_limit = " (rtos limit 2 0) ";" ) fo)
(write-line "   is_enabled = true;" fo)        
(write-line "    }" fo)
(write-line "  }" fo)
(write-line "ok_only;}" fo)
(close fo)
(setq dcl_id (load_dialog  "c:\\acadtemp\\getval"))
(if (not (new_dialog "ddgetval" dcl_id))
(exit))
(action_tile "key1" "(setq item $value)(done_dialog)")
(mode_tile "key1" 2)
(start_dialog)
; returns the value of item
)