未完全测试所有意外情况: - (defun c:TT (/ p1 p2 ss)
- (if
- (and
- (setq p1 (getpoint "\n→指定第一个角点: "))
- (progn
- (initget 32) ;使用虚线框
- (setq p2 (getcorner p1 "\n→指定第二角点: "))
- )
- )
- (progn
- (command "._rectang" p1 p2)
- (entdel (entlast)) ;删除矩形
- (setq ss (ssget "_C" P1 P2)) ;创建选择集
- (command "overkill" ss "" "")
- (setq ss1 (ssget "_C" P1 P2)) ;创建选择集
- (command "pedit" "m" ss1 "" "j" 0.1 "")
- )
- )
- )
|