2013-10-04 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

lqynise · 发表于 2013-10-4 07:34:39

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

神秘将军(414713061)于2013-10-04 07-34-39：
签到

CCarch · 发表于 2013-10-4 07:51:11

四叶草(252418567)于2013-10-04 07-51-11：
签到

CCarch · 发表于 2013-10-4 07:59:13

风轻云淡(570295552)于2013-10-04 07-59-13：
签到

CCarch · 发表于 2013-10-4 08:04:59

狂奔的蜗牛(717053365)于2013-10-04 08-04-59：
签到

CCarch · 发表于 2013-10-4 09:03:03

ArGan(273030759)于2013-10-04 09-03-03：
签到

malinwang · 发表于 2013-10-4 09:04:21

卍???????卍 (1471938488)于2013-10-04 09-04-21：
[face12.gif]

luozh7682 · 发表于 2013-10-4 09:07:03

筑路人(310178970)于2013-10-04 09-07-03：
签到

ucuc2003 · 发表于 2013-10-4 09:15:52

易水(1175577149)于2013-10-04 09-15-52：
签到

CCarch · 发表于 2013-10-4 09:39:08

___________(610680625)于2013-10-04 09-39-08：
签到

CCarch · 发表于 2013-10-4 10:07:25

ZZXXQQ(1468225785)于2013-10-04 10-07-25：
签到

zhuquanmao · 发表于 2013-10-4 10:54:24

关中往事(13425218)于2013-10-04 10-54-24：
谁有excellink2006 帮传一个哈家里电脑没有谢谢哈！

炫翔 · 发表于 2013-10-4 11:17:12

炫翔(2363673534)于2013-10-04 11-17-12：
[qqimg]{B0B38BED-0207-2C2C-379F-043AD15C89B6}.gif[/qqimg]

CCarch · 发表于 2013-10-4 11:40:25

伴你走 Yi世(401802630)于2013-10-04 11-40-25：
(defun fsxm-newenlist (en / lst n ss)
  (if en
(while (setq en (entnext en))
   (setq lst (cons en lst))
)
(setq lst (fsxm-ss->enlist (ssget "X")))
  )
  lst
)
(defun fsxm-silenceexit       (/ *error*)
  (t (setq *error* strcat))
)
(defun c:mii (/ el pt ss ss2)
  (or (setq ss (ssget)) (fsxm-silenceexit))
  (setq pt (getpoint "\n选择中心点："))
  (if (null pt) (setq pt '(0 0)))
  (setq el (entlast))
  (command ".MIRROR"
ss
""
"non"
pt
"non"
(mapcar '+ pt '(0 1))
"N"
  )
  (setq ss2 (ssadd))
  (foreach e (fsxm-newenlist el) (ssadd e ss2))
  (command ".MIRROR"
ss
ss2
""
"non"
pt
"non"
(mapcar '+ pt '(1 0))
"N"
  )
(princ)
)

CCarch · 发表于 2013-10-4 11:41:47

伴你走 Yi世(401802630)于2013-10-04 11-41-47：
上面的程序有没有那位兄弟知道怎么修改一下在选点时可以选一下矩形后自到找到那个矩形的中心点？

炫翔 · 发表于 2013-10-4 13:28:53

炫翔(2363673534)于2013-10-04 13-28-53：
对象9点坐标

账号		自动登录	找回密码
密码			立即注册