添加所选mtex的数量
您好，先生/女士，谁能教我怎么修改这个代码。。我需要在我的图形中选择一个文本，并将添加选定的文本。。请帮帮我！！！：哭：：哭：：哭：
这是代码
（定义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Ϩ）'））））
)
)
（普林斯）
) 类似于此文本的内容
;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
;; InputDialog 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
)
我将你的帖子转移到AutoLISP、Visual LISP和DCL论坛，请在适当的论坛中发布。
请阅读代码发布指南，并编辑代码以包含在代码标签中。
Your Code Here=
Your Code Here 谢谢你，先生D希望你能帮助我nxt时间。。 对不起，先生SLW210。。谢谢你提醒我，先生。。很抱歉
页:
[1]