wanhongron 发表于 2015-7-31 23:50:36

生成的矢量图锯齿太多，能消除吗？？

各位大侠，平时用到的矢量图锯齿太多，刻绘的时候抖动太厉害，请问能尽量消除吗，消除一部分也行！

cable2004 发表于 2015-8-1 09:53:12

本帖最后由 cable2004 于 2015-8-2 00:53 编辑

(defun c:tt()
   (setq ss (ssget '((0 . "LWPOLYLINE"))))
   (if ss
   (foreach e1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
   (setq pts(mapcar 'cdr (vl-remove-if '(lambda (a) (/= (car a) 10)) (entget e1))))
   (setq p1 (car pts) p2 (last pts) lst (cdr(reverse (cdr(reverse pts)))))
   (setq lst (mapcar '(lambda (a b) (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) a b)) lst (cdr lst)))
   (setq OLDOS(getvar"OSMODE"))(setvar"OSMODE" 0)(command "spline" p1)
   (mapcar '(lambda (a) (command a))lst)
   (commandp2)(command "" "" "")(setvar"OSMODE"OLDOS)
    ))
   (princ)
)

wanhongron 发表于 2015-8-1 13:29:05

非常感谢cable2004大侠，希望帮忙继续完善

wanhongron 发表于 2015-8-1 23:56:44

大侠，能改成批量执行吗？

wanhongron 发表于 2015-8-2 12:29:01

太好用了，正式我想要的！谢谢cable2004大侠，大侠真是热心人呀！！
页: [1]
查看完整版本: 生成的矢量图锯齿太多，能消除吗？？