- (defun c:ddd(/ ss i newss enname endata p1 p2 s_dis BasicPoint os x ptl)
- (setq os (getvar "osmode"))
- (setq ss (ssget) i 0 BasicPoint (getpoint "\n输入基点:"))
- (command "stretch")
- (repeat (sslength ss)
- (setq enname (ssname ss i) )
- (setq endata (entget enname))
- (setq ptl '())
- (foreach x endata (if (= (car x) 10) (setq ptl (cons (cdr x) ptl))))
- (setq newss (ssget "CP" ptl (list (cons 0 "LINE"))))
- (command newss)
- (setq i (1+ i))
- ) ;end repeat
- (command "" BasicPoint)
- (if (= nil RemMove_dis_all)
- (progn
- (setq RemMove_dis_all (getreal "\n输入移动距离:"))
- (setvar "osmode" 0)
- (command RemMove_dis_all)
- ) ;end pro
- (progn
- (setq s_dis
- (getreal (strcat "\n输入移动距离<" (rtos RemMove_dis_all 2 4) ">:"))
- ) ;end set
- (if (= nil s_dis)
- (setq s_dis RemMove_dis_all)
- ) ;end if
- (setvar "osmode" 0)
- (command s_dis)
- (setq RemMove_dis_all s_dis)
- ) ;end pro
- ) ;end if
- (setvar "osmode" os)
- (princ)
- )
|