明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 747|回复: 4

[讨论] 生成的矢量图锯齿太多,能消除吗??

[复制链接]
发表于 2015-7-31 23:50:36 | 显示全部楼层 |阅读模式
各位大侠,平时用到的矢量图锯齿太多,刻绘的时候抖动太厉害,请问能尽量消除吗,消除一部分也行!

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2015-8-1 09:53:12 | 显示全部楼层
本帖最后由 cable2004 于 2015-8-2 00:53 编辑
  1. (defun c:tt()
  2.    (setq ss (ssget '((0 . "LWPOLYLINE"))))
  3.    (if ss
  4.    (foreach e1 (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
  5.    (setq pts(mapcar 'cdr (vl-remove-if '(lambda (a) (/= (car a) 10)) (entget e1))))
  6.    (setq p1 (car pts) p2 (last pts) lst (cdr(reverse (cdr(reverse pts)))))
  7.    (setq lst (mapcar '(lambda (a b) (mapcar '(lambda ( a b ) (/ (+ a b) 2.0)) a b)) lst (cdr lst)))
  8.    (setq OLDOS(getvar"OSMODE"))(setvar"OSMODE" 0)(command "spline" p1)
  9.    (mapcar '(lambda (a) (command a))  lst)
  10.    (command  p2)(command "" "" "")(setvar"OSMODE"OLDOS)
  11.     ))
  12.    (princ)
  13. )

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2015-8-1 13:29:05 | 显示全部楼层
非常感谢cable2004大侠,希望帮忙继续完善
 楼主| 发表于 2015-8-1 23:56:44 | 显示全部楼层
大侠,能改成批量执行吗?
 楼主| 发表于 2015-8-2 12:29:01 | 显示全部楼层
太好用了,正式我想要的!谢谢cable2004大侠,大侠真是热心人呀!!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2025-2-23 00:37 , Processed in 0.177777 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表