批量将弯钩变为直钩，直钩变弯钩

fkyourmather · 发表于 2013-5-1 01:45:23

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

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

×

批量将弯钩变为直钩，直钩变弯钩
求思路
最好贴个东东

eachy · 发表于 2013-5-1 08:58:05

供参考
(defun c:tt (/ ss ssl el)
  (if (setq ss (ssget '((90 . 4))))
(progn
   (setq ssl (sslength ss))
   (while (> ssl 0)
(setq el (entget (ssname ss (setq ssl (1- ssl))))
      el (vl-remove (assoc 10 el) el)
      el (vl-remove (assoc 10 (reverse el)) el)
      el (subst '(90 . 2) '(90 . 4) el)
)
(entmod el)
   )
)
  )
  (princ)
)来自: Android客户端

fkyourmather · 发表于 2013-5-1 09:52:05

eachy 发表于 2013-5-1 08:58

登录/注册后可看大图

供参考
(defun c:tt (/ ss ssl el)
(if (setq ss (ssget '((90 . 4))))

这个是直钩变弯钩还是弯钩变直钩，求说明

eachy · 发表于 2013-5-1 10:53:55

最好贴个图来自: Android客户端

fkyourmather · 发表于 2013-5-1 22:55:34

如果直勾变弯勾呢？？

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

[求助] 批量将弯钩变为直钩，直钩变弯钩

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

相关帖子