明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 4081|回复: 21

[源码] 加强4分之1镜像

  [复制链接]
发表于 2013-12-16 09:03 | 显示全部楼层 |阅读模式



本不想要币的,但看见1993063这斯发个GIF贴图在这炫耀,哪怕编译的或者收币都不给,宁愿藏着发霉!
发出来收个币只是做个限制,可直接发信息索取,免币

本帖子中包含更多资源

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

x
发表于 2013-12-16 09:25 | 显示全部楼层
不错,不错,前排支持。
发表于 2013-12-16 09:28 | 显示全部楼层
下载 收藏了  
发表于 2013-12-16 10:25 | 显示全部楼层
[code="lisp] (defun c:tt (/ ee ent i maxp minp pt ss x)
  (setvar 'cmdecho 0)
  (if (setq i  -1 ss (ssget))
    (progn
      (setq ent (car (entsel "\n选择镜像框")))
      (setq ent (vlax-ename->vla-object ent))
      (vla-getboundingbox ent 'minp 'maxp)
      (setq maxp (vlax-safearray->list maxp)
            minp (vlax-safearray->list minp)
      )
      (setq pt (Mapcar '(Lambda (x) (* x 0.5)) (Mapcar '+ minp maxp)))
    )
  )
  (repeat (sslength ss)
    (setq ee (ssname ss (setq i (1+ i))))
    (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")
    (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")
  )
  (princ)
)[/code]
发表于 2013-12-16 10:28 | 显示全部楼层
有啥好炫耀的?比我利害的多了去,要向顾版,学院派等等作为目标
 楼主| 发表于 2013-12-16 12:01 | 显示全部楼层
1993063 发表于 2013-12-16 10:28
有啥好炫耀的?比我利害的多了去,要向顾版,学院派等等作为目标

谁炫耀啦 ,看看你之前的贴子!没脸的又跑出来了

点评

请遵守论坛秩序,不要在论坛发表与技术无关的内容!  发表于 2013-12-16 12:39
发表于 2013-12-16 12:28 | 显示全部楼层
我天天跑,你准备气死吧

点评

请遵守论坛秩序,不要在论坛发表与技术无关的内容!  发表于 2013-12-16 12:39
发表于 2013-12-16 12:38 | 显示全部楼层
楼上的二位请注意,请遵守论坛秩序,不要在论坛发表与技术无关的内容!
 楼主| 发表于 2013-12-16 12:52 | 显示全部楼层
Gu_xl 发表于 2013-12-16 12:38
楼上的二位请注意,请遵守论坛秩序,不要在论坛发表与技术无关的内容!

回G版主,论坛确实需要您这样德高望众的人出来主持大局,每次我发主题,他都出来挑衅(可以参照他之前的跟贴)
发表于 2013-12-16 13:21 | 显示全部楼层
flyfox1047 发表于 2013-12-16 12:52
回G版主,论坛确实需要您这样德高望众的人出来主持大局,每次我发主题,他都出来挑衅(可以参照他之前的跟 ...

对于技术问题,大家可以展开“激烈”讨论,但不允许有过激言论和人身攻击的语言!论坛不是打架斗殴的场所!
请大家注意文明用语!对发现不符合版规的不当行为,欢迎积极向版主举报,对于积极举报论坛不当行为的,版主会给与适当奖励!希望大家共同来维护论坛良好秩序!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-2-21 13:12 , Processed in 0.218899 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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