 -
- (setq pa (getpoint "指定第一点"))
- (if pa
- (setq pb (getpoint pa "指定第二点")))
- (if (and pa pb)
- (progn
- (setq sss (ssget "f" (list pa pb) '((0 . "spline")))
- )
- (if (and sss (= (type sss) 'PICKSET))
- (princ (strcat "已选择" (rtos (sslength sss)) "条样条曲线"))
- (princ "!!!未选择到对象!!!")
- )
- )
- )
|