请任何人都可以加密
这个lisp是我从microsurvey标准lisp得到的。安装到auto cad并使用它假设添加或减去常数，到目前为止，我知道这个用于添加和减去的命令不起作用。如果你们能帮我ADDNUM。LSP 一般来说，文件是受保护的，因为作者不希望他们的代码被公开，并且在大多数情况下需要付费使用。
只要搜索一下，就知道还有其他人在做同样的任务，他们已经发布在这里，代码是开放的。 使用李·麦克的程序，尽管在我看来，你可能会被它的功能淹没，但布丽尔詹从未如此
http://www.lee-mac.com/numinc.html
顺便说一句，出于好奇，我做了件淘气的事，相信我，你发布的文件真的不值得。
gr.Rlx lee mac lisp很好，但我看起来很简单，只需输入常量，然后在图形中选择数字，它会自动用新添加的结果替换这些数字。https://www.youtube.com/watch?v=_lRJBC1p3NA 一个简单的数字
; Adds a fixed amount to a number
;(PRINC "\nTO USE JUST TYPE A2L or A2LM for multiple ")
(Alert "TO USE JUST TYPE A2L or A2LM for multiple ")
;(setvar "cmdecho" 1)
(setq olddimzin (getvar "Dimzin"))
(setvar "dimzin" 0)
(DEFUN c:A2L ()
(if (not AH:getval) (load "getval"))
(ah:getval "Enter ht adjust.." " edit_width = 10;" " edit_limit = 8;")
(setq v2 (Atof item))
(setq test 1)
(while (= test 1)
(setq en1 (car (entsel "\nSelect text number:" )))
(if (/= en1 nil)
(progn
(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)
; (entupd en1)
);progn
(princ "\nplease pick again"); else
);if
); while true
(setq el nil)
(setq en nil)
(setq a nil)
(setq v1 nil)
(setvar "cmdecho" 1)
(setvar "dimzin" olddimzin)
(princ)
); END a2l DEFUN
(defun c:A2LM ()
(if (not AH:getval) (load "getval"))
(ah:getval "Enter ht adjust.." " edit_width = 10;" " edit_limit = 8;")
(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
(setq el nil
ss nil)
(setq en nil)
(setq a nil)
(setq v1 nil)
(setvar "dimzin" olddimzin)
(setvar "cmdecho" 1)
(princ)
); END a2lm DEFUN
盖特瓦尔酒店
;; InputDialog box with variable title
;; By Ah June 2012
;; code (ah:getval title)
(defun AH:getval (title width limit / fo)
(setq fname "C://acadtemp//getval.dcl")
(setq fo (open fname "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)
; these can be replaced with shorter value etc
;(write-line " edit_width = 18;" fo)
;(write-line " edit_limit = 15;" fo)
(write-line width fo)
(write-line limit 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:\\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
)
页:
[1]