加强4分之1镜像

flyfox1047

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

xzklk

不错  谢谢分享

yuxin6618

不错  谢谢分享

yblbj2006

不错  谢谢分享

chenming10

不错，不错，前排支持。

风雨依然

下载 收藏了  

1993063

2. (defun c:tt (/ ee ent i maxp minp pt ss x)
   
3.   (setvar 'cmdecho 0)
   
4.   (if (setq i  -1 ss (ssget))
   
5.     (progn
   
6.       (setq ent (car (entsel "\n选择镜像框")))
   
7.       (setq ent (vlax-ename->vla-object ent))
   
8.       (vla-getboundingbox ent 'minp 'maxp)
   
9.       (setq maxp (vlax-safearray->list maxp)
   
10.             minp (vlax-safearray->list minp)
    
11.       )
    
12.       (setq pt (Mapcar '(Lambda (x) (* x 0.5)) (Mapcar '+ minp maxp)))
    
13.     )
    
14.   )
    
15.   (repeat (sslength ss)
    
16.     (setq ee (ssname ss (setq i (1+ i))))
    
17.     (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")
    
18.     (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")
    
19.   )
    
20.   (princ)
    
21. )

(defun c:tt (/ ee ent i maxp minp pt ss x)<br />   (setvar 'cmdecho 0)<br />   (if (setq i  -1 ss (ssget))<br />     (progn<br />       (setq ent (car (entsel "\n选择镜像框")))<br />       (setq ent (vlax-ename->vla-object ent))<br />       (vla-getboundingbox ent 'minp 'maxp)<br />       (setq maxp (vlax-safearray->list maxp)<br />             minp (vlax-safearray->list minp)<br />       )<br />       (setq pt (Mapcar '(Lambda (x) (* x 0.5)) (Mapcar '+ minp maxp)))<br />     )<br />   )<br />   (repeat (sslength ss)<br />     (setq ee (ssname ss (setq i (1+ i))))<br />     (command "Mirror" ee "" pt (polar pt (/ pi 2) 10) "N")<br />     (command "Mirror" ee (entlast) "" pt (polar pt pi 10) "N")<br />   )<br />   (princ)<br /> )

1993063

有啥好炫耀的?比我利害的多了去,要向顾版,学院派等等作为目标

flyfox1047

1993063 发表于 2013-12-16 10:28
有啥好炫耀的?比我利害的多了去,要向顾版,学院派等等作为目标

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

1993063

我天天跑,你准备气死吧

Gu_xl

楼上的二位请注意，请遵守论坛秩序，不要在论坛发表与技术无关的内容！

flyfox1047

Gu_xl 发表于 2013-12-16 12:38
楼上的二位请注意，请遵守论坛秩序，不要在论坛发表与技术无关的内容！

回G版主，论坛确实需要您这样德高望众的人出来主持大局，每次我发主题，他都出来挑衅（可以参照他之前的跟贴）

Gu_xl

flyfox1047 发表于 2013-12-16 12:52
回G版主，论坛确实需要您这样德高望众的人出来主持大局，每次我发主题，他都出来挑衅（可以参照他之前的跟 ...

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