[分享]几个简单的程序

3527188

1. ;*******************************刪除尺寸標注*******************************

复制代码

2. (defun C:dm(/ pickset)
3.     (Save-Set);;;保存初始设置
4.   (while(setq pickset(ssget '((0 . "DIMENSION"))))
5.     (if(/= nil pickset)
6.       (command "ERASE" pickset "")
7.       )
8.   )
9.   (princ "\n***未选取对象***")
10.   (Restore-Set);;;还原初始设置
11. )

(defun C:dm(/ pickset)     (Save-Set);;;保存初始设置   (while(setq pickset(ssget '((0 . "DIMENSION"))))     (if(/= nil pickset)       (command "ERASE" pickset "")       )   )   (princ "\n***未选取对象***")   (Restore-Set);;;还原初始设置 )

1. ;*******************************刪除文字*******************************

复制代码

2. (defun C:et(/ pickset)
3.   (while(setq pickset(ssget '((0 . "MTEXT,TEXT"))))
4.     (if(/= nil pickset)
5.       (command "ERASE" pickset "")
6.       )
7.   )
8.   (princ "\n***未选取对象***")
9. )

(defun C:et(/ pickset)   (while(setq pickset(ssget '((0 . "MTEXT,TEXT"))))     (if(/= nil pickset)       (command "ERASE" pickset "")       )   )   (princ "\n***未选取对象***") )

1. ;*******************************刪除剖面線*******************************

复制代码

2. (defun C:eh(/ pickset)
3.   (while(setq pickset(ssget '((0 . "HATCH"))))
4.     (if(/= nil pickset)
5.       (command "ERASE" pickset "")
6.       )
7.   )
8.   (princ "\n***未选取对象***")
9. )

(defun C:eh(/ pickset)   (while(setq pickset(ssget '((0 . "HATCH"))))     (if(/= nil pickset)       (command "ERASE" pickset "")       )   )   (princ "\n***未选取对象***") )