请大家帮忙看下代码
这是我在论坛首页看到的土方量程序，不是很懂，希望朋友们能给解释下，感谢，;;;获取多义线顶点;;;Code:
(vl-load-com)
(defun c:nihe ()
;;;提取拟合范围
(setvar "cmdecho" 0)
(setq osmode-save (getvar "OSMODE"))
(setvar "OSMODE" 0)
;;; (setvar "bilpmode" 1)
(setq f1 (getfiled "abc" "d:/" "txt" 1))
(setq f1 (open f1 "w"))
(setq ent (car (entsel "\n选取范围界线:")))
(setq jd-lst nil) ;;建立格网与边界交点表2d
(setq ptlst (get-ploy-vers ent))
;;;取ptlst中xy极值的方法
(setq xmax (apply 'max (mapcar 'car ptlst))
xmin (apply 'min (mapcar 'car ptlst))
ymax (apply 'max (mapcar 'cadr ptlst))
ymin (apply 'min (mapcar 'cadr ptlst))
)
(setq dx (getreal "\n方格网边长:")
half-dx (/ dx 2.0)
)
(setq dy dx)
(command "offset"
dx
ent
(list (+ xmax 2) (+ ymax 3))
""
)
(setq ent2 (entlast))
(setq ptlst2 (get-ploy-vers ent2))
(entdel ent2)
(setq lname (getstring "\n输入图层名:"))
(setq ss0 (ssget "CP" ptlst2 (list (cons 8 lname))))
(if ss0
(progn (setq slen (sslength ss0))
(setq ss-lst nil)
)
(exit)
) (setq f1 (getfiled "abc" "d:/" "txt" 1))
(setq lname (getstring "\n输入图层名:"))希望能给解释下这2段的意思，谢谢了。
页:
[1]