CAD单行文字数字可以实现运算功能？
2个回答
展开全部
autoLISP程序可以，程序把文字变为可以计算的数值，就可以内部计算。如下：
(defun c:LJ ( / %k1 %k2 &k1 &kw)
(princ "\n请选择数字文字")
(setq &kw (ssget '((0 . "TEXT"))));框选文字
(if (/= &kw nil);如果选择了文字
(progn;那么进入累计界面
(setq &k1 (ssname &kw 0) %k1 0);取得第一个对象并设定初始值为0
(while &k1;进入循环计算
(setq %k2 (atof (cdr (assoc 1 (entget &k1)))));把文字内容变为数值
(if (/= %k2 nil) (setq %k1 (+ %k2 %k1)) );累计数值
(setq &kw (ssdel &k1 &kw));排除已经计算的文字
(setq &k1 (ssname &kw 0));计算下一个直到全部累加完成
)
(princ "\n文字数值累计为")(princ %k1);在命令行显示累加数值
)
)
(princ)
);复制内容到记事本，以【LJ累加数值.lsp】命名，加载到AutoCAD，命令为：LJ
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
