[求助]：请求帮忙修改剪切的程序

chen10jing · 发表于 2009-7-30 13:00:19

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

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

×

偶得到一段程序，很好用，但需要改进，请高手帮忙修改一下，实现如下功能：
1、实现能够连续框选；
2、实现在程序运行过程中按ESC键能够正常退出。
谢谢各位高手。
(defun C:xt (/ PT1 S0 S1 S2)
(setvar "CMDECHO" 0)
(if (setq PT1 (getpoint "\n指定点位: "))
(progn
      ;;
      (command "_.xline" "h" "non" PT1 "")
      (setq S0 (entlast))
      (command "_.xline" "v" "non" PT1 "")
      (setq S1 (entlast))
      ;;
      (command "_.TRIM" S0 S1 "")
      (while (setq S2 (entsel "\n点取对象: "))
(command S2)
      )
      (command "")
      (command "_erase" S0 S1 "")
)
)
(setvar "CMDECHO" 1)
(princ)
) ;_结束 defun

zml84 · 发表于 2009-7-30 20:53:57

请使用高版本ACAD。

rageforg · 发表于 2009-8-7 17:45:56

我要下载...

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

[求助] [求助]：请求帮忙修改剪切的程序

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

相关帖子