不知道哪里出错了，求完善优化程序
本帖最后由 fjutcivil 于 2014-5-13 14:57 编辑.......................... 试试加上两句100组码的内容。 ll_j 发表于 2014-5-12 17:59
试试加上两句100组码的内容。
啥意思啊？不明白 ll_j 发表于 2014-5-12 17:59 static/image/common/back.gif
试试加上两句100组码的内容。
帮我看看吧 大侠 好久没看到你出现了 哈 ll_j 发表于 2014-5-12 17:59 static/image/common/back.gif
试试加上两句100组码的内容。
前面的问题解决了，原来是没转换成字符串的问题，现在还有个问题是新生成的文字位置有点问题，会重叠 ，能帮我优化下坐标点的位置吗？不太懂，帮我来个生成的文字在选定的文字的后面的代码吧 fjutcivil 发表于 2014-5-12 18:55 static/image/common/back.gif
帮我看看吧 大侠 好久没看到你出现了 哈
就程序出错本身而言：
(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盘中有一个计算钢筋表的程序，如果有兴趣，可以看一下，或许会有帮助。 ll_j 发表于 2014-5-12 19:56
就程序出错本身而言：
不知道程序是干什么的，所以也没法测试，根据追踪，有两个问题说一下：
恩，已经很感谢了，因为我想框选多个，文字可能是斜的所以没用getpoint
页:
[1]