带记忆关联移动，用于结构专业改梁宽

世界一角的你 · 发表于 2014-4-19 18:45:07

学习哈。。。

hushui1973 · 发表于 2014-4-22 14:40:41

刚好要用，先谢谢

jesouris · 发表于 2014-4-28 10:03:49

(defun c:tt()
  (setq en1 (entget (car (entsel "\n请选择第一条直线:"))))
  (setq en2 (entget (car (entsel "\n请选择第二条直线:"))))
  (setq a (cdr (assoc 10 en1)) b (cdr (assoc 11 en1)) c (cdr (assoc 10 en2)) d (cdr (assoc 11 en2)))
  (setq zb (inters a b c d nil))
  (setq zbb (append (list 10) zb))
  (entmake (list (cons 0  "CIRCLE") zbb (cons 40 20)))
)

wwh9503 · 发表于 2014-4-28 18:39:31

下来看看

ou67169488 · 发表于 2014-4-30 22:05:34

这个东西很不错！就是不知道对整体速度有没有影响！

小混混2010 · 发表于 2014-5-4 00:35:39

好程序，回复表示支持

张之回 · 发表于 2014-5-8 22:33:20

学习学习楼主楼主

honker1981 · 发表于 2014-5-18 10:10:05

对于结构是很有用的，目前探索者做到了这一点，不知道你的程序会不会更好

程咬金 · 发表于 2014-5-23 15:13:55

这个能省不少功夫

linda.kao · 发表于 2014-5-24 10:15:54

支持一下....

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