[分享]：一个用来画吊筋的工具

cquliugao · 发表于 2005-11-16 21:30:58

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

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

×

画梁吊筋的时候相当管用！！！！！
与大家分享！！
源代码如下：

(defun c:dj()
(setvar "cmdecho" 0)
(setq oldlayer (getvar "clayer"))
(setq oldcolor (getvar "cecolor"))
(setq p1 (getpoint "\n输入主次梁节点:"))
(setq p2 (getpoint p1 "\n输入编号圆位置:"))
(setq ang (angle p1 p2))
(setq dist (distance p1 p2))
(setq len (- dist 250))
(command "layer" "m" "吊筋" "c" "151" "" "")
(command "color" "byl")
(command "circle" p2 "250")
(command "line" "non" p1 "non" (polar p1 ang len) "")
(command "style" "_TCH_AXIS" "COMPLEX,GBCBIG" "300" "1" "0" "n" "n" "n")
(command "text" "j" "m" p2 "0" "a")
(command "ddedit" "l" "")
(setvar "clayer" oldlayer)
(setvar "cecolor" oldcolor)
(princ)
)

guohui.zhai · 发表于 2005-11-16 21:38:55

支持楼主!希望看到更多的朋友分享原码

muweiq2008 · 发表于 2005-12-2 07:46:48

支持楼主!希望看到更多的朋友分享原码
不过我不知道怎么编程序！

计无施 · 发表于 2005-12-4 14:18:35

呵呵

zhituo · 发表于 2005-12-5 14:27:06

太好了，谢谢！！

zhituo · 发表于 2005-12-5 14:27:06

太好了，谢谢！！

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

[分享]：一个用来画吊筋的工具

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

相关帖子