求指导啊！！！

fjutcivil · 发表于 2013-5-3 15:16

本帖最后由 fjutcivil 于 2014-4-20 11:17 编辑

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

Gu_xl · 发表于 2013-5-3 15:37

Z1 Z2 C等要注意字符串和数字的转换！

fjutcivil · 发表于 2013-6-5 16:30

好像还是不行啊求优化啊！
(defun c:dggj (/ a e1 e2 stext1 stext)
(setq e1 (cdr (assoc 1 (entget (car(entsel"\n选择欲替换的文字内容"))))))

(setq e2 (cdr (assoc 1 (entget (car(entsel"\n选择欲替换的文字内容"))))))

(setq a1 (cdr (assoc 1 e2)))
(setq z1 (substr a1 2 3))
(setq z2 (substr a1 6 3))

(atof a1)
(atof z1)
(atof z2)

(if (> z1 15.8) (setq a 12) )
(if (and (> z1 10) (<= z1 15.8)) (setq a 10) )
(if (and (> z1 5.6) (<= z1 10)) (setq a 8) )
(if (<= z1 5.6) (setq a 6) )
(setq b (/ (* pi (* (/ a 2) (/ a 2))) 10))
(setq c (/ (* b 20) z2))
(setq d (substr c 1 3))
(setq f (strcat "%%130" (itoa a) "@100/" d))
(setq e1 (subst (cons 1 f) (assoc 1 e1) e1 ))
(entmod e1)
(setvar "cmdecho" 1)
)

ll_j · 发表于 2013-6-5 17:08

fjutcivil 发表于 2013-6-5 16:30
好像还是不行啊求优化啊！
(defun c:dggj (/ a e1 e2 stext1 stext)
(setq e1 (cdr (assoc 1 (entg ...

(atof a1)返回实数a1，不过你没有接住，有什么用？
应该是：(setq a1 (atof a1)) ...

fjutcivil · 发表于 2013-6-5 17:12

ll_j 发表于 2013-6-5 17:08
(atof a1)返回实数a1，不过你没有接住，有什么用？
应该是：(setq a1 (atof a1)) ...

(setq z1 (atof z1))
(setq z2 (atof z2)) 我把那两个改了可是接下来的a老是不行都是返回NIL

ll_j · 发表于 2013-6-5 22:10

fjutcivil 发表于 2013-6-5 17:12
(setq z1 (atof z1))
(setq z2 (atof z2)) 我把那两个改了可是接下来的a老是不行都是返回NIL

不知道你的程序是干什么用，e2、a1又是什么值，能不能substr，所以也没法检查。

wowan1314 · 发表于 2013-6-5 22:24

你一行行的检查下。返回的结果是否是你想要的的数值！
直接cad里面输入一行就可检查！估计你有几个变量算错了！

lengyunfeng · 发表于 2013-6-5 22:39

不知道你要干什么，所以没法检验。按我自己的理解处理了一下，代码如下：

(defun c:dggj (/ a e1 e2 stext1 stext)
(setvar "cmdecho" 0)
(setq e1 (entget (car(entsel"\n选择欲替换的文字内容"))))
(setq e2 (entget (car (nentsel "\选择计算值:"))))
(setq a1 (cdr (assoc 1 e1)))
(setq a2 (cdr (assoc 1 e2)))
(setq z1 (atof (substr a2 2 3)))
(setq z2 (atof (substr a2 6 3)))
(cond
((> z1 15.8) (setq a 12))
((> z1 10) (setq a 10))
((> z1 5.6) (setq a 8))
(t (setq a 6))
)
(setq b (/ (* pi (* (/ a 2) (/ a 2))) 10))
(setq c (rtos (/ (* b 20) z2)))
(setq d (substr c 1 3))
(setq f (strcat "φ130" (itoa a) "@100/" d))
(setq e1 (subst (cons 1 f) (assoc 1 e1) e1 ))
(entmod e1)
(setvar "cmdecho" 1)
)
(prin1)

fjutcivil · 发表于 2013-6-6 10:04

本帖最后由 fjutcivil 于 2013-6-6 11:38 编辑

lengyunfeng 发表于 2013-6-5 22:39
不知道你要干什么，所以没法检验。按我自己的理解处理了一下，代码如下：

你的理解基本对了 E2是类似“G1.5-0.5”这样的字符，如果出现的d是100我希望显示的是..@100，而不是..@100/100，怎么弄啊？

(defun c:qwq (/ a e1 e2 stext1 stext)
(setvar "cmdecho" 0)
(setq e1 (entget (car(entsel"\n选择欲替换的文字内容"))))
(setq e2 (entget (car (nentsel "\选择计算值:"))))
(setq a1 (cdr (assoc 1 e1)))
(setq a2 (cdr (assoc 1 e2)))
(setq z1 (atof (substr a2 2 3)))
(setq z2 (atof (substr a2 6 3)))
(cond
   ((> z1 1.58) (setq a 12))
   ((> z1 1.0) (setq a 10))
   ((> z1 0.56) (setq a 8))
   (t (setq a 6))
)
(setq b (* pi (* (/ a 2) (/ a 2))))
(setq c  (/ (* b 2) z2))
(if (> c 200) (setq c 200) (setq c (* (fix (/ c 10)) 10)))
(setq c (rtos c))
(setq d (substr c 1 3))
(if (= a 12) (setq f (strcat "%%132" (itoa a) "@100/" d))
(setq f (strcat "%%130" (itoa a) "@100/" d)))
(setq e1 (subst (cons 1 f) (assoc 1 e1) e1 ))
(entmod e1)
(setvar "cmdecho" 1)
)
(prin1)

lengyunfeng · 发表于 2013-6-6 15:46

fjutcivil 发表于 2013-6-6 10:04
你的理解基本对了 E2是类似“G1.5-0.5”这样的字符，如果出现的d是100我希望显示的是..@100，而不是.. ...

简单啊，把我的代码里弟18行替换成if语句，如下：

（if （= d “100”）
(setq f (strcat "φ130" (itoa a) "@100" ))
(setq f (strcat "φ130" (itoa a) "@100/" d))
）

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

[提问] 求指导啊！！！

点评

相关帖子

[提问] 求指导啊 ！！！

点评

相关帖子

[提问] 求指导啊！！！