2013-06-06 明经 AutoLISP 编程②群(177027547) 群聊记录：ons 1 f) (assoc 1 e1) e1 )) (entm

明经快报

[fjutcivil]水泥匠 10:35:59

ons 1 f) (assoc 1 e1) e1 ))
   (entmod e1)
   (setvar "cmdecho" 1)
)
(prin1)
(defun c:qwq (/ a e1 e2 stext1 stext)
   (setvar "cmdecho" 0)
   (setq e1 (entget (car(entsel" 选择欲替换的文字内容"))))
   (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 (* (atoi (/ c 10)) 10)))
   (setq c (rots c))
   (setq d (substr c 1 3))
   (setq f (strcat "%%130" (itoa a) "@100/" d))
   (setq e1 (subst (c

请教下

[fjutcivil]水泥匠 10:36:50

是不是啊 高手 指点下吧

[fjutcivil]水泥匠 10:37:45

没有 这两句可以运行 但是加了这两句 就不行了 求优化啊 (if (> c 200) (setq c 200) (setq c (* (atoi (/ c 10)) 10)))
   (setq c (rots c))

Beverage 10:41:13

rtos

明经快报

[fjutcivil]水泥匠 10:56:10

恩 这个是一个

好像if如果判断小于200的时候那个地方也有问题

运行不下去

明经快报

Beverage 12:12:58

这个人的id很谦虚啊

明经快报

等你 13:55:33

怎么实现  @x,y绘制多线段

Beverage 13:59:13

command 或者polar

明经快报

等你 14:09:27

其中@X,Y可以从数组中调用吗

明经快报

(420552)浪子 17:02:31

[qqimg]oldimg/{52833D4B-8FC0-8892-88B0-0215E72E5334}.jpg[/qqimg]

各位！有没办法让上面代码正常运行？

[vormittag]桔子 17:03:52

啥地方不正常？

(420552)浪子 17:10:35

[qqimg]oldimg/{C5ACA6CA-6B9A-544D-9B4F-04ABCE55D8BE}.jpg[/qqimg]

语法报错

(420552)浪子 17:11:34

*里面不能跟变量吗*

[蔡__洛]不快乐 17:13:25

你概念错了 变量符号 不是值本身

cre8or 17:14:19

原来你这个意思 要用strcat "*" word "*"

(420552)浪子 17:14:55

我试试！

[蔡__洛]不快乐 17:15:34

改(ssget (list (cons 0 "INSERT")(cons 2 (strcat "*" word "*"))))

(420552)浪子 17:22:04

多谢了！