[编程申请]：数字加1多重复制

zhuqiqing · 发表于 2014-12-11 10:35:14

能否稍修改一下，按001，002，003等这们排列的数字排列

zhuqiqing · 发表于 2014-12-11 10:36:18

cqxt00 发表于 2007-7-14 22:31
wayi2002
(defun c:1()
(setq s(atof(cdr(assoc 1 (entget(car(nentsel)))))))

能否稍修改一下，按001，002，003等这们排列的数字排列？

幻姬-7 · 发表于 2016-6-22 21:22:17

cqxt00 发表于 2007-5-28 17:45
这个简单:
(defun c:1()
(setq s(atof(cdr(assoc 1 (entget(car(nentsel)))))))

你好，这个程序是放到CAD哪个文件夹里的啊？我放到acadinfo.lsp里面，然后打开CAD试着复制数字没反应，请问怎么具体怎么操作，谢谢

mlhk1978 · 发表于 2017-12-28 20:24:25

SNS201700880-YL-427-Y-XL-01我的这个还是用不了

mlhk1978 · 发表于 2017-12-28 20:30:38

SNS201700880-YL-427-Y-XL-01，SNS201700880-YL-427-Y-XL-02，我的这个还是用不了

账号		自动登录	找回密码
密码			立即注册