[求助]：将图块炸至指0层?

xshrimp · 发表于 2005-8-1 21:58:05

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这样为什么不行?大家帮忙看看.
[PHP]
(defun c:xx(/ ssss )
(setq ssss (ssget))
(command ".xplode" ssss "" "layer" "0" "")
(princ)
)[/PHP]

xyp1964 · 发表于 2005-8-2 07:59:28

[php](load "xyp_lib")
;|加载通用函数(可在签名栏直接下载)
如果已经下载xyp_lib并放到搜索路径下可以不再下载!
利用以下任何一种方式即可加载和运行通用函数内的所有子程序：
1.在acad.lsp中增加(load"xyp_lib")
2.在每个程序内增加(load"xyp_lib")
3.在command下，输入(load"xyp_lib")
4.在菜单.mnl中增加(load"xyp_lib")
5.将xyp_lib.vlx文件直接拽到cad屏幕
★通用函数下载地址：[/COLOR]http://www.xdcad.net/forum/attachment.php?s=&postid=1606661|;

;;;图块炸至0层
(defun c:test ()
  (princ "\n选择要炸碎的物体 : ")
  (setq ss1 (ssget "X")
ss2 (ssget '((0 . "INSERT")))
ss  (SSDIFF SS1 SS2)
  )
  (command ".explode" ss2 "")
  (setq ss1 (ssget "X")
ss  (SSDIFF SS1 SS)
  )
  (command "change" ss "" "p" "la" "0""");0层
)[/php]

xshrimp · 发表于 2005-8-3 15:48:39

最初由 xshrimp 发布
[B]这样为什么不行?大家帮忙看看.
[PHP]
(defun c:xx(/ ssss )
(setq ssss (ssget))
(command ".xplode" ssss "" "layer" "0" "")
(princ)
)[/PHP] [/B]

我想请教一下.我的程序到底是什么有问题.为什么,
在command下手动键入命令可以的,用lsp却不行??

BigJue · 发表于 2005-8-3 16:22:42

谢谢

userzhl · 发表于 2005-8-4 15:21:29

命令: test
选择要炸碎的物体 : 找到 1 个
; 错误: no function definition: SSDIFF

xyp1964 · 发表于 2005-8-4 15:26:54

最初由 userzhl 发布
[B]命令: test
选择要炸碎的物体 : 找到 1 个
; 错误: no function definition: SSDIFF [/B]

如果认真看程序，就不会有问题！

userzhluserzhl · 发表于 2005-8-5 20:49:02

楼上,我是菜鸟,看不懂呀,能否给个提示?

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

[求助] [求助]：将图块炸至指0层?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：将图块炸至指0层?