不知道哪里出错了，求完善优化程序

fjutcivil · 发表于 2014-5-12 17:51:46

本帖最后由 fjutcivil 于 2014-5-13 14:57 编辑

..........................

复制代码

ll_j · 发表于 2014-5-12 17:59:50

试试加上两句100组码的内容。

fjutcivil · 发表于 2014-5-12 18:17:58

ll_j 发表于 2014-5-12 17:59
试试加上两句100组码的内容。

啥意思啊？不明白

fjutcivil · 发表于 2014-5-12 18:55:15

ll_j 发表于 2014-5-12 17:59
试试加上两句100组码的内容。

帮我看看吧大侠好久没看到你出现了哈

fjutcivil · 发表于 2014-5-12 19:33:23

ll_j 发表于 2014-5-12 17:59
试试加上两句100组码的内容。

前面的问题解决了，原来是没转换成字符串的问题，现在还有个问题是新生成的文字位置有点问题，会重叠，能帮我优化下坐标点的位置吗？不太懂，帮我来个生成的文字在选定的文字的后面的代码吧

ll_j · 发表于 2014-5-12 19:56:53

fjutcivil 发表于 2014-5-12 18:55
帮我看看吧大侠好久没看到你出现了哈

就程序出错本身而言：

(setq dat (entget s1)
p10 (cdr (assoc 10 dat)) ;原本缺函数
p11 (cdr (assoc 11 dat))
dd (mapcar '- p11 p10)
dat (substdp 1 (rtos lgjmj 2 2) dat) ;这里该是文本
pta (mapcar '- p10 (mapcar '* dd '(1.25 1.25)))
ptb (mapcar '+ pta dd)
dat (substdp 10 pta dat)
dat (substdp 11 ptb dat)
; dat (substdp 1 lgjmj dat)
; dat (member (assoc 100 dat) dat)
; dat (cons '(0 . "TEXT") dat)
)
(entmake dat)

不知道程序是干什么的，所以也没法测试，根据追踪，有两个问题说一下：
1.输入的内容好像不够通用，“%%132 12”可以，“20 %%132 12”也可以，这样后面就会有错误。
2.新坐标点应该自己输入（getpoint），否则不具有实用性。
没有精力了，不能多帮你，请谅解。看你这好像是计算钢筋的程序，我的网络U盘中有一个计算钢筋表的程序，如果有兴趣，可以看一下，或许会有帮助。

fjutcivil · 发表于 2014-5-12 21:02:45

ll_j 发表于 2014-5-12 19:56
就程序出错本身而言：

不知道程序是干什么的，所以也没法测试，根据追踪，有两个问题说一下：

恩，已经很感谢了，因为我想框选多个，文字可能是斜的所以没用getpoint

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

[提问] 不知道哪里出错了，求完善优化程序

点评

相关帖子