删除复合线重点程序

陈亚娣

删除复合线重点程序(以前做测量时收集的程序，现借花敬佛分享给大家)

wmz

你的(xy_lt)和(sh_ch)呢？

陈亚娣

wmz 发表于 2013-4-18 20:28
你的(xy_lt)和(sh_ch)呢？

下午给你补上。

陈亚娣

陈亚娣 发表于 2013-4-19 11:08
下午给你补上。

(defun xy_lt()
(setq po_all nil)
(setq nst2 (entget xylt))
(setq mmm (cdr (assoc '0 nst2)))
(if (or (= mmm "POLYLINE") (= mmm "LWPOLYLINE")) (progn
(setq ped (cdr (ASSOC '70 nst2)))
(if (< ped 6) (progn
(command "pedit" xylt "l" "on" "")
(setq nst2 (entget xylt))
(setq ped (cdr (ASSOC '70 nst2)))
);progn
);if
(cond ((= mmm "LWPOLYLINE")
(while (> (length nst2) 0)
(setq pp (nth 0 nst2))
(if (and (= (type (cdr pp)) (type (list 10.0 10.0))) (= (nth 0 pp) 10)) (progn
(setq pp (cdr pp))
(setq po_all (reverse po_all))
(setq po_all (cons pp po_all))
(setq po_all (reverse po_all))
)progn
);if
(setq nst2 (cdr nst2))
);while
)
((= mmm "POLYLINE")
(setq nst1 xylt)
(while (and (setq nst1 (entnext nst1)) (/= (cdr (assoc '0 (setq nst2 (ENTGET NST1)))) "SEQEND"))
(if (= (cdr (assoc '70 nst2)) (cdr (assoc '70 (entget (entnext xylt))))) (progn
(setq pp (cdr (assoc '10 nst2)))
(setq pp (reverse pp))
(setq pp (cdr pp))
(setq pp (reverse pp))
(setq po_all (reverse po_all))
(setq po_all (cons pp po_all))
(setq po_all (reverse po_all))
);progn
);if
);while
)
);cond
);progn
);if
);defun
;;复合线视窗函数
(defun sh_ch()
(setq p 0)
(while (< p (length po_all))
(setq x (car (nth p po_all)) y (cadr (nth p po_all)))
(if (= p 0) (setq xx x yx y xm x ym y)
(progn
(if (< x xx) (setq xx x))
(if (> x xm) (setq xm x))
(if (< y yx) (setq yx y))
(if (> y ym) (setq ym y))
);progn
);if
(setq p (+ p 1))
);while
(command "zoom" "w" (list (- xx 1) (- yx 1)) (list (+ xm 1) (+ ym 1)))
);defun

yjjyjj

请问，命令是什么？

陈亚娣

yjjyjj 发表于 2013-7-3 22:45
请问，命令是什么？

命令是：dexpo

yjjyjj

程序不好用，删不掉重复点

asdasd_49257

感謝分享感謝分享感謝分享感謝分享