怎么样让自己写的LISP小程序在CAD中运行？？

答案:2 悬赏:10 手机版

解决时间 2021-03-03 22:33

提问者网友：戎马万世
2021-03-03 10:24

最佳答案

五星知识达人网友：野味小生
2021-03-03 12:01

定义的函数名和运行的程序不正确，你可以把程序发过来，我可以帮你看一下，QQ490630007

全部回答

1楼网友：独行浪子会拥风
2021-03-03 12:56

autocad2007的copy自身就是多次拷贝，就是你不用输入m就是多次拷贝，但在二次开发中一定要用m 下面的lisp程序是用于拷贝 (defun c:ccp1 () (prompt "选择要拷贝的目标:") (setq en (ssget)) (prompt "输入基点:") (setq p1 (getpoint)) (command "copy" en "" p1 ) (while (setq p2 (getpoint)) (command p2) ) ) 在上面的程序中应没输入"m"虽然copy在命令下是多次拷贝的在程序中给它了多次拷贝的条件，但只能拷贝一次。 (defun c:ccp () (prompt "选择要拷贝的目标:") (setq en (ssget)) (prompt "输入基点:") (setq p1 (getpoint)) (command "copy" en "" "m" p1 ) (while (setq p2 (getpoint)) (command p2) ) (command "") ) 在程序ccp中在输入p1前加了"m" (command "copy" en "" "m" p1 )它就是多次拷贝下面是一个循环只要p2有值它就要去拷贝,当你在(setq p2 (getpoint))输入回车，这时p2是空值，程序就退出。

我要举报

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息