SSGET函数

13648893846

;;[功能]组码及对应值表的两点选择集
;;[用法](LC:2pt-SSGET(getpoint) (getpoint) lstzm lst t)
;;[作者]BY 老仓测绘上班记
;;;(setq lstzm (list 0 8)
;;;      lst (list "line" "0" ))
;;;(LC:2pt-SSGET-int 点 点 组码表 组码对应值表 相交为T不相交为NIL)
(defun LC:2pt-SSGET( pt1 pt3 lstzm lst tnil / ss)
  (setq ss (ssget (if (= tnil t) "c" "w") pt1 pt3 (mapcar'cons lstzm lst)))
)
;;[功能]组码及对应值表的全图选择集
;;[用法](LC:ALL-SSGET lstzm lststr)
;;[作者]BY 老仓测绘上班记
;;;(setq lstzm (list 0 8)
;;;      lststr (list "line" "dmx" ))
;;;(LC:SSGET 组码表 组码对应值表)
(defun LC:ALL-SSGET(lstzm lst / ss)
  (setq ss (ssget "X"(mapcar'cons lstzm lststr)))
)
;;[功能]组码及对应值表的点表选择集
;;[用法](LC:pts-SSGET pts lstzm lst nil)
;;[作者]BY 老仓测绘上班记
;;;(LC:WH-vxs (car (entsel)))
;;;(setq lstzm (list 0 8)
;;;      lst (list "line" "0" )
;;;      pts (LC:WH-vxs (car (entsel))))
;;;(LC:pts-SSGET-int 点表 组码表 组码对应值表 相交为T不相交为NIL)
(defun LC:pts-SSGET(PTS LSTZM LST TNIL / PTS1 SS)
  (setq pts1(LC:GetExtents pts))
  (LC:zoom_window (list (list (- (caar pts1) 100)
         (- (cadr(car pts1)) 100))
   (list (+ (car(cadr pts1)) 100)
         (+ (cadr(cadr pts1)) 100))));确保在屏幕范围内
  (setq ss (ssget (if (= tnil t)"cp""wp") pts (mapcar'cons lstzm lst)))
;;;  (command "erase" ss "");测试
)

13648893846

顺便求大神优化一下窗口外点表选择集函数

杜阳

楼主   顺便把  ssget与entsel的区别  也给讲讲吧   

oldnewlearn

总有厉害的人。俺就看看吧，可能有用不着