2013-05-13 明经 AutoLISP 编程②群(177027547) 群聊记录：求助：谁有“雨箭风刀”大侠的批量偏移程序发给我一份呗，本人感激不尽

明经快报

笑对人生 10:11:49

求助：谁有“雨箭风刀”大侠的批量偏移程序发给我一份呗，本人感激不尽

明经快报

云 11:22:53

以下程序输入x 输出错误 请帮助，谢谢！

(defun c:mdnum()
  (setvar"cmdecho" 0)
  (setq num1(getreal"\n enterfirst number:"))
  (setq num2(getreal"\n enter second number:"))
  (prompt"Do you want to multiply or divide.Enter M or D:")
  (setq ans(strcase(getstring)))
  (if (= ans "m")
  (setq x(* num1  num2))
    )
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
  (princ)                      
  )

明经快报

创雅 14:05:46

(defun c:ttt (/ ss i en ent cnt st1 st2)
  (if (setq ss (ssget '((0 . "CIRCLE"))))
    (progn
      (repeat (setq i (sslength ss))
        (setq en  (ssname ss (setq i (1- i)))
              ent (entget en)
              cnt (cdr (assoc 10 ent))
              r   (vl-catch-all-apply
                    '(lambda ()
                       (foreach p st1
                         (if (equal cnt p 1e-6) (exit))
                       )
                     )
                  )
        )
        (if (not (vl-catch-all-error-p r))
          (setq st1 (cons cnt st1)
                st2 (cons (cdr (assoc 10 ent)) st2)
          )
        )
      )
    )
  )
  (reverse st2)
)

明经快报

[天津]-地形-fly 14:15:57

可以这么理解

[qqimg]oldimg/{218649DB-7F97-797B-0870-78D6E11BECC0}.jpg[/qqimg]

创雅 14:16:45

那些整句话是什么意思？

[天津]-地形-fly 14:16:57

这个也没赋值啊 [qqimg]oldimg/{218649DB-7F97-797B-0870-78D6E11BECC0}.jpg[/qqimg] 而且是个数 不可思议

[qqimg]oldimg/{373C3215-FF8A-D9AF-4615-4669CA4480C0}.jpg[/qqimg]

创雅 14:18:18

这是在论坛里下的

[qqimg]oldimg/{666C5632-F0D1-A93B-4E32-3C40563ED20F}.jpg[/qqimg]

创雅 14:19:05

我是想取得过滤掉同心圆的座标的选择集

[天津]-地形-fly 14:19:59

啥子意思

创雅 14:21:32

比如我有一个程序想取得所有圆的圆心坐标，但如果有同心圆就重复了，我想过滤掉相同的点

[【KAIXIN】][【KAIXIN】]炫翔 14:27:39

要循环判断

其他所有圆心坐标

提取

删除相同坐标表

创雅 14:31:29

我刚发的这个就已过滤掉了，但是得到的不是一个表，是返回了点

我想要这个集

创雅 14:32:19

我想要取得过滤掉同心圆的圆心座标集合

明经快报

云 16:15:08

以下程序输入x返回nil.请帮助，谢谢！
(defun c:mdnum()
  (setvar"cmdecho" 0)
  (setq num1(getreal"\n enterfirst number:"))
  (setq num2(getreal"\n enter second number:"))
  (prompt"Do you want to multiply or divide.Enter M or D:")
  (setq ans( strcase (getstring)))
  (if (= ans  "m")
  (setq x(* num1  num2))
    )

  
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
  (princ)                      
  )

明经快报

[梦里水香] 16:41:27

q(defun c:mdnum()
  (setvar "cmdecho" 0)
  (setq num1(getreal"  enterfirst number:"))
  (setq num2(getreal"  enter second number:"))
  (setq ans(getstring "Do you want to multiply or divide.Enter M or D:"))
  (if (= ans  "m")
    (setq x(* num1  num2))
  )
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
          (princ)           
 
(princ "x=")
(princ x)  
)

创雅 16:46:54

这是什么

[梦里水香] 16:51:18

刚才有人问问题哇。。。

云(1835356663) 16:15:19 
以下程序输入x返回nil.请帮助，谢谢！
(defun c:mdnum()
  (setvar"cmdecho" 0)
  (setq num1(getreal"  enterfirst number:"))
  (setq num2(getreal"  enter second number:"))
  (prompt"Do you want to multiply or divide.Enter M or D:")
  (setq ans( strcase (getstring)))
  (if (= ans  "m")
  (setq x(* num1  num2))
    )

  
  (if (= ans "d")
  (setq x(/ num1 num2))
  )
  (if(and(/= ans "d") (/= ans "m"))
  (prompt"sorry! wrong entery,try again")
  )
  (setvar  "cmdecho" 1)
  (princ)                      
  )