2013-09-03 QQ群：ALISP＆VLISP(143438137) 聊天记录：签到

CCarch · 发表于 2013-9-3 02:57:19

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

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

×

潇湘飞雨(393636542)于2013-09-03 02-57-19：
签到

CCarch · 发表于 2013-9-3 07:58:26

〇。(871008605)于2013-09-03 07-58-26：
签到

zyhandw · 发表于 2013-9-3 08:20:41

周(281369222)于2013-09-03 08-20-41：
签到

CCarch · 发表于 2013-9-3 09:22:57

艺术拼出色彩诚信雕出人生(24842773)于2013-09-03 09-22-57：
[qqimg]{937A0B90-DD35-E2F1-6958-985712BE29FC}.jpg[/qqimg]谁能帮我把这程序改成支持圆弧啊，谢谢

CCarch · 发表于 2013-9-3 09:30:41

艺术拼出色彩诚信雕出人生(24842773)于2013-09-03 09-30-41：
求各位高手帮忙改下，下面的程序改成支持圆弧的
(defun c:xlx()
  (setq r (getreal "\n半径："))
  (setvar "filletrad" r)
  (setq ss (ssget '((0 . "line"))))
  (setq pt_list nil)
  (setq i 0)
  (repeat (sslength ss)
(sub_test1 (ssname ss i))
(setq i (1+ i))
)
  (foreach pt pt_list
(progn
   (setq ss2 (ssget "c" pt pt))
      (setq en1 (ssname ss2 0))
(setq en2 (ssname ss2 1))
      (command "fillet" en1 en2)
   )
)
  (prompt "相连线批量倒角")
  )
  (defun sub_test1 (#en)
(setq endata (entget #en))
(setq pt10 (cdr (assoc 10 endata)))
(setq pt11 (cdr (assoc 11 endata)))
(setq ssint (ssget "f" (list pt10 pt11)))
(setq ssint (ssdel #en ssint))
(if (> (sslength ssint) 0)
   (progn
(setq j 0)
(repeat (sslength ssint)
   (setq ena (ssname ssint j))
   (if (ssmemb ena ss)
      (progn
      (setq pta (cdr(assoc 10 (entget ena))))
      (setq ptb (cdr(assoc 11 (entget ena))))
      (setq intpt (inters pt10 pt11 pta ptb))
      (setq intpt1 (osnap intpt "int"))
      (if (not (member intpt1 pt_list))(setq pt_list (cons intpt1 pt_list)))
      )
      )
   (setq j (1+ j))
   )
)
   )
)

含泪的射手 · 发表于 2013-9-3 09:33:22

含泪的射手(54374454)于2013-09-03 09-33-22：
签到

CCarch · 发表于 2013-9-3 10:54:31

钢结构详图深化(270870633)于2013-09-03 10-54-31：
[qqimg]{B2D5014E-8AFD-90D6-D144-525CDC8E9D9D}.jpg[/qqimg]

CCarch · 发表于 2013-9-3 10:54:36

钢结构详图深化(270870633)于2013-09-03 10-54-36：
哪位高手能画出来？

CCarch · 发表于 2013-9-3 10:55:07

钢结构详图深化(270870633)于2013-09-03 10-55-07：
三维实体梁，扭的

CCarch · 发表于 2013-9-3 11:01:26

华☆设计(252232271)于2013-09-03 11-01-26：
[face76.gif]

CCarch · 发表于 2013-9-3 11:23:06

HORSE_XU(544842989)于2013-09-03 11-23-06：
这有何难

CCarch · 发表于 2013-9-3 11:26:29

HORSE_XU(544842989)于2013-09-03 11-26-29：
[qqimg]{F15F013D-D631-816A-364B-797D7FF96A5A}.jpg[/qqimg]

CCarch · 发表于 2013-9-3 11:27:18

飘(157355446)于2013-09-03 11-27-18：
这是个好课题

CCarch · 发表于 2013-9-3 11:29:06

HORSE_XU(544842989)于2013-09-03 11-29-06：
写个批量下降点程序，然后SPL连接

CCarch · 发表于 2013-9-3 11:29:27

HORSE_XU(544842989)于2013-09-03 11-29-27：
再做面域

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