[求助]：polyline抽稀

xyy2005

请问polyline抽稀思路是什么？
有个lisp看不懂，谁能转一下ARX？非常感谢

;;====================================================================
;; ! =================================================================
;; ! CXX 抽稀 *Polyline 线
;; ! =================================================================
;; ! Function : 对选定的 *POLYLINE 线按抽稀因子指定的参数进行抽稀，
;; ! 并将抽稀后的线替代原始线。(俗语：减肥)。
;; ! 注 意 : 此函数在计算过程中，将不考虑3D线中的Z坐标值，因此具有
;; ! 3D转2D的作用。
;; ! Arguments: NONE
;; ! 内部调用 : GetVerP 取 *Polyline 线上的节点。
;; ! dxfset 重置 DXF 组码值。
;; ! dxf 取 DXF 组码值。
;; ! 内部函数 : XL 计算两点联线的斜率
;; ! Updated : 2006-01-04
;; ! 作 者 : 雾海孤帆(WHGF)
;; ! e-mail : L27182818@Tom.com
;; ! Web :
;; ! =================================================================
;============= 计算斜率函数 ============
(defun XL (P1 P2 / d1 d2)
(setq d1 (Abs (- (car P1) (car P2))) d2 (Abs (- (cadr P1) (cadr P2))))
(If(> d1 d2) (/ d2 d1) (/ d1 d2) )
)
;=======================================
(defun c:CXX (/ ent ss ss0 ss1 I K Fan
K1 K2 pt1 pt2)
(setvar "CMDECHO" 0) ; 使执行过程没有回应
(prompt "\n == 抽稀 *POLYLINE 线== 11:23 2006-01-04\n" )
(setq Fan (GetDist "\n 给定抽稀因子(0< Fan <1.0) <0.08> ") )
(If(= Fan Nil) (setq Fan 0.08))
(prompt "\n == 选择要抽稀的 *POLYLINE 线" )
(setq i (ssget))
(if (and i (setq ss0 (ssget "P" '((0 . "*POLYLINE"))))) ; 从选择集中选择所有的LWPOLYPLINE线
(Progn
(setq K2 (sslength ss0) i 0 ) ; 选择对象条数
(prompt (strcat "\n 实际图元数 " (itoa K2) "\n"))
(repeat K2
(setq
K (ssname ss0 i) i (+ i 1)
ent (entget K)
)
(prompt (strcat "\r第 " (itoa i ) " 个图元 ")) ; 相当于进度条
;============= 初始线参数 ==============
(setq SS (GetVerP K)
SS1 '(
(70 . 0)
(90 . 9)
(100 . "AcDbPolyline")
(8 . "WHGF") ; Layer
(100 . "AcDbEntity")
(0 . "LWPOLYLINE") ; Object type
)
K2 (Dxf 8 ent)
Pt1 (Dxf 62 ent)
)
(If (= (Dxf 70 ent) 9) ; 封闭线
(setq SS1 (cons (Cons 70 1) SS1))
)
(If (= PT1 nil)
(setq PT1 0) ; 颜色值
(setq SS1 (cons (Cons '62 PT1) SS1))
)
(setq SS1 (Dxfset 8 K2 SS1)) ; 层图名
;============= 建立初始环境 ============
(setq
Pt1 (nth 0 SS)
Pt2 (nth 1 SS)
K2 (XL Pt1 Pt2)
SS1 (cons (Cons 10 Pt1) SS1) ; 首节点
K 2 ; 抽稀后的节点数
Ks 0
)
;============ 遍历所有的节点 ===========
(foreach Pt1 SS
(Progn
(setq
K1 (XL Pt2 Pt1)
Ks (+ (Abs(- K1 K2)) Ks)
)
;;========= 这里进行抽稀 ===============
(If (> Ks fan) ;; <------- Fan 是抽稀因子 值大不光滑
(setq
SS1 (Cons (Cons 10 Pt2) SS1) ; 保留该节点
K (+ K 1) Ks 0
)
)
(setq Pt2 Pt1 K2 K1)
)
)
;============ 保留端点 ========
(setq SS1 (cons (Cons 10 Pt2) SS1))
; (setq K (+ K 1) )
;=======================================
;============ 线上点数 ========
(setq ss1 (dxfset 90 K ss1))
(setq SS1 (reverse SS1))
(entmake SS1)
)
)
)
(Command "Erase" SS0 "") ;; <--------- 这里删除原始线
(setvar "CMDECHO" 1)
) ; CXX
;;====================================================================

Gxiaofeng

http://wenku.baidu.com/view/1849aa1ca76e58fafab003b6?fr=prin

树櫴希德

抽稀因子是什么意思？

树櫴希德

错误: no function definition: GETVERP

hua1121

我在cad2010版中试了，运行后，没有变化，还是那么多顶点

hua1121

我在cad2010版中试了，运行后，没有变化，还是那么多顶点，怎么回事？