[分享]：大家是这么画点钢筋吗？

hnfsf · 发表于 2003-1-11 01:52:58

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

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

×

大家是这么画点钢筋吗？
(defun c:dj (/ dddon1 d h h2 end s dp sb1 sb2 xa ya xb yb pt1 pt2 bb ang d1
         cen no pnend
      )
  (command "layer" "m" "GJ" "c" "RED" "GJ" nil)
  (if (= dddon nil)
(setq dddon 80.0)
  )
  (princ "\n实心圆直径 (")
  (princ dddon)
  (princ " 图形单位) :")
  (setq dddon1 (getreal))
  (if (/= dddon1 nil)
(setq dddon dddon1)
  )
  (setq d dddon)
  (setq s nil)
  (while (= s nil)
(princ "\n 选一条 LINE 线 : ")
(setq s (entsel))
(SETQ EL (ENTGET (CAR s)))
(SETQ bb (CDR (ASSOC 0 EL)))
(if (/= bb "LINE")
   (setq s nil)
)
  )
  (SETQ PT1 (CDR (ASSOC 10 EL)))
  (SETQ PT2 (CDR (ASSOC 11 EL)))
  (setq d1 (distance pt1 pt2))
  (setq nn nil)
  (while (= nn nil)
(setq nn (getint "点数 : "))
  )
  (if (< nn 1)
(setq nn 1)
  )
  (setq ang (angle pt1 pt2))
  (if (> nn 1)
(progn
   (setq di (/ d1 (- nn 1)))
   (command "donut" 0 d pt1 "")
   (command "donut" 0 d pt2 "")
   (setq kk 0)
   (repeat (- nn 2)
(setq kk (+ kk 1))
(setq p1 (polar pt1 ang (* kk di)))
(command "donut" 0 d p1 "")
   )
)
  )
  (if (= nn 1)
(progn
   (setq p1 (polar pt1 ang (/ d1 2)))
   (command "donut" 0 d p1 "")
)
  )
  (command "erase" s "")
  (princ)
)

syb106 · 发表于 2003-1-11 11:49:33

不就是画个点钢筋吗，用不着这么夸张吧

hnfsf · 发表于 2003-1-11 12:49:29

最初由 syb106 发布
[B]不就是画个点钢筋吗，用不着这么夸张吧 [/B]

在画工业设备基础和抗震墙体均布点钢筋的时候还是很方便的。
画梁柱点钢筋倒是用不着这么夸张。

yy225cn · 发表于 2003-1-11 13:00:14

一般我们画基础和剪力墙的时候钢筋只是示意一下，并不会画满的，如下图，能表示清楚就行了。

hewb · 发表于 2003-2-9 13:40:50

画钢筋点，用DOUNT命令简单点啦。楼主是乎走火入魔了。

emwater888 · 发表于 2003-2-11 14:23:01

软件里都有呀

叶子 · 发表于 2003-2-11 17:32:40

在TSSD里面“画点钢筋”命令可以完成
先任意徒手绘制一根直线钢筋
用该命令，点此钢筋
会提示，在哪侧
确定后就会出现
选取点钢筋的插入点 /R-镜像 /等分数 /根数x间距 <结束>：
也很方便

qyg75 · 发表于 2003-2-11 18:21:48

有这么复杂吗

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

[分享]：大家是这么画点钢筋吗？

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

相关帖子

浏览过的版块