社区 › AutoLISP/Visual LISP 编程技术 › 带记忆关联移动，用于结构专业改梁宽

世界一角的你 发表于 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

支持一下....

查看完整版本: 带记忆关联移动，用于结构专业改梁宽