框内删除问题

CQ467959301 · 发表于 2019-4-12 11:46:36

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

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

×

这个是从q工具箱源码中取出来的一部分。来个大神改成自动延伸到焦点

登录/注册后可看大图

(defun c:knsc (/ OS P1 P2 CP SS ENREC N *error*)
(defun *error* (s)
   (setvar "osmode" os)
   (princ s)
   )
(setq os (getvar "osmode"))
(setvar "osmode" 0)
(setq p1 (getpoint "\n指定基点："))
(setq p2 (getcorner p1 "\n指定对角点："))
(setq cp (mapcar '* '(0.5 0.5 0.5) (mapcar '+ p1 p2)))
(setq ss (ssget "w" p1 p2))
(if ss (command "erase" ss ""))
(command "rectang" p1 p2)
(setq enRec (entlast))
;;重复5次，以保证剪切干净
  (repeat 5
(setq ss (ssget "c" p1 p2))
   (ssdel enRec ss)
(command ".trim" enRec "")
(repeat (setq n (sslength ss))
   (command (list (ssname ss (setq n (1- n))) cp))
   )
(command "")
   )
;;删除绘制的方框
  (entdel enRec)
(setvar "osmode" os)
(princ)
)

sicky111 · 发表于 2019-4-13 00:04:06

楼主可以把这个工具箱的源码发上来吗

CQ467959301 · 发表于 2019-4-13 01:35:14

sicky111 发表于 2019-4-13 00:04
楼主可以把这个工具箱的源码发上来吗

这个就是源码啊？

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

[求助] 框内删除问题

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