[求助]：如何让程序能选择块中的对象剪裁？

andyhua5240 · 发表于 2009-4-9 15:42:13

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

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

×

[FONT=courier new]
(defun c:t (/ cm ps ss)
(princ "\n* 修剪对象→|边=延伸、组选=关闭| *")
(setq cm (getvar "cmdecho"))
(setq ps (getvar "pickstyle"))
(setq *error* ee_err)
(setvar "cmdecho" 1)
(setvar "pickstyle" 0)
(setvar "edgemode" 1)
(princ "\n选择对象或 <全部选择>:")
(if (setq ss (ssget))
(command ".trim" ss "")
(command ".trim" "" "e" "n")
)
(while (/= 0 (getvar "cmdactive")) (command pause))
(setvar "cmdecho" cm)
(setvar "pickstyle" ps)
(princ)
(defun ee_err (s)
(setvar "cmdecho" cm)
(setvar "pickstyle" ps)
(command "_.undo" "_e")
)
[/FONT]

程序的设想：当用户选择对象来进行剪裁时，往往将边的延伸打开。当用户直接回车，不选择对象来作为边界剪裁时，往往将边的延伸关闭。上面的程序就是按这样的思路来的，但是程序不能选择块中的对象来作为边界，如块中的直线。
但是CAD中的TRIM却是可以的，如何更改程序让其可以选择块中的对象来作为边界剪裁对象？谢谢！
哪个大侠能帮忙改改程序呀！
谢谢！

zhongyang730 · 发表于 2009-4-10 10:14:58

能不能把图块的颜色直接改为所选定图形的颜色

andyhua5240 · 发表于 2009-4-12 09:20:36

怎么没有人回答呢？顶上去！

carrot1983 · 发表于 2009-4-12 09:47:53

没人回答，那是因为这个问题其实是非常难的~~~
不是一两句话可以回答的清楚的~
如果只是单选用nentsel是可以实现
如果用多选ssget的话，需要用到变换矩阵，坐标系切换等等~~

而论坛现在的气氛不太好，高手们都收山了。
怕是你得不到解答了。

提供一个程序仅供参考：
(楼主能不能成功，还要看造化~~嘿嘿)

andyhua5240 · 发表于 2009-4-12 12:06:21

谢谢楼上的，不过我对lisp，完全不懂，看不明白呢？555555555555555555

zhongyang730 · 发表于 2009-4-12 13:48:47

期待大家群策群力，一起来解决这一个问题

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

[求助] [求助]：如何让程序能选择块中的对象剪裁？

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

相关帖子