求助 lisp

sqqr

请问各位大侠，如果图中有许多个直径为X的圆，能否用一个lisp完成下面的动作：



自动搜索所有直径为X的圆，并在相应各圆心处作直径为y的圆？？


[U]要求 直径x值,y值在命令行输入[/U]

meflying

(defun c:test( / x y ss i pt)
(setq X 10)
(setq Y 5)
(setq ss (ssget "x" (list '(0 . "circle") (cons 40 (/ X 2)))))
(setq i 0)
(repeat (sslength ss)
(setq pt (cdr (assoc 10 (entget (ssname ss i)))))
(command "_.circle" pt (/ Y 2))
(setq i (1+ i))
)
(princ)
)

sqqr

meflying 运行出错啊 命令: test
; 错误: 参数类型错误: lselsetp nil

meflying

你的图里面没有符合条件的圆，当然出错了。。。


上面那个X和Y改成你需要的

sqqr

<U>有点麻烦！！</U>


<U>要求 直径x值,y值在命令行输入呢？？</U>


<U>窗选对象范围，不要所有的都更改</U>

sqqr

(command "_.circle" pt (/ Y 2))改为： (command "_.circle" pt (/ Y 2.0))

meflying

(defun c:test( / x y ss i pt)
(setq X (getreal "输入X:"))
(setq Y (getreal "输入Y:"))
(setq ss (ssget (list '(0 . "circle") (cons 40 (/ X 2)))))
(setq i 0)
(repeat (sslength ss)
(setq pt (cdr (assoc 10 (entget (ssname ss i)))))
(command "_.circle" pt (/ Y 2))
(setq i (1+ i))
)
(princ)
)

sqqr

非常感谢meflying的热心帮助!!敬献鲜花一朵致敬。 还有一个问题：不用改为(command "_.circle" pt (/ Y 2.0))？？然而我用你的第一个程序时，y＝15时，作出的圆却为φ14，百思不得其解

meflying

用后面的程序就不用改了。。。


因为如果你原来的Y是15，那是整数，2也是整数(/ 15 2)就是整数除法，结果也为整数，得到7，所以出错。。。


后面的程序，使用getreal函数获得的就是实数了，表达式中只要有一个实数，就属于实数运算，结果就是实数了。

sqqr

但是你是如何实现窗选对象呢？ 下面这段程序无法窗选对象，看不出差别！ (defun c:test( / x y ss i pt)
(setq x (GETREAL "输入直径x: "))
(setq y (GETREAL "输入直径y: "))
(setq ss (ssget "x" (list '(0 . "circle") (cons 40 (/ X 2)))))
(setq i 0)
(repeat (sslength ss)
(setq pt (cdr (assoc 10 (entget (ssname ss i)))))
(command "_.circle" pt (/ Y 2))
(setq i (1+ i))
)
(princ)
)