2013-05-07 明经 AutoLISP 编程(102918348) 群聊记录：很多不同方向的直线，怎么指定每根线起点？可以以圆为中心，让近圆心的线端点做起

明经快报

[alexanderlili][alexanderlili]友缘 16:02:36

感觉写代码有好的习惯很重要

[不死猫][nonsmall]不死猫 16:08:05

搞定

[阿然][阿然] 16:08:29

老猫又出了什么新品？

[不死猫][nonsmall]不死猫 16:09:46

最近还没有 打算搞开发工具集

偏爱云~小吴 16:12:09

不死猫,你是发布lisp学习 视频的不死猫

[阿然][阿然] 16:12:33

想学lisp，看老猫的视频就不会错了

偏爱云~小吴 16:13:12

大神啊,请允许我膜拜

偏爱云~小吴 16:14:14

另外,大神,哪里有完整的视频,网上只找到了4级

[sqbao] 16:17:01

那就得问不死猫了

偏爱云~小吴 16:17:42

恩,不死猫太忙

[夏生生][x_s_s_1]生无可恋 16:17:59

去网上买啊

偏爱云~小吴 16:18:52

学习果然需要代价的,哪有卖的

[夏生生][x_s_s_1]生无可恋 16:19:13

找猫王买就是的了

偏爱云~小吴 16:19:34

这样啊,了解

[alexanderlili][alexanderlili]友缘 16:19:44

[qqimg]oldimg/{8F87B1C2-225C-E616-087E-B0BC107F722B}.jpg[/qqimg]这个是不死猫本人吗

[sqbao] 16:21:17

自己qq聊不就完事了。

刚才不死猫不是在么

偏爱云~小吴 16:21:40

呵呵

[ ](car (entsel)) 16:30:15

如何用lisp保存所有的打开的dwg文件?

上木下鱼 16:33:55

http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid584869 有大侠能简单改成 垂直与水平的也能改成倾斜的

[不死猫][nonsmall]不死猫 16:39:13

恩 那是我英文名

全球独一份

[夏生生][x_s_s_1]生无可恋 16:40:28

no！弄死猫了

[不死猫][nonsmall]不死猫 16:45:29

[qqimg]oldimg/{773D40C0-78A4-0E82-5201-D3C9F90B454C}.gif[/qqimg]

[328302216]小莫 16:47:10

猫哥在玩虾米

[夏生生][x_s_s_1]生无可恋 16:47:49

[qqimg]oldimg/{93914A47-28C0-ED62-21CC-114C57A13FFA}.gif[/qqimg]

[夏生生][x_s_s_1]生无可恋 16:48:37

[qqimg]oldimg/{62C3F035-2C47-265B-F85B-7222A910C00D}.gif[/qqimg]

明经快报

[pzweng]路人 17:22:02

[qqimg]oldimg/{3D5E5795-4A0C-D38F-4647-3986E73CDB30}.gif[/qqimg]

[alexanderlili][alexanderlili]友缘 17:22:34

[qqimg]oldimg/{615393FB-C6E2-AAFE-0A90-8DE5D047DEAF}.gif[/qqimg]

[328302216]小莫 17:23:16

[qqimg]oldimg/{0C4B5E7B-67C8-09F7-B4DA-3738AA51FC65}.gif[/qqimg]

[tiyi8888]永远痛 17:23:25

好恶心

[pzweng]路人 17:26:02

[qqimg]oldimg/{C173D197-6B33-F2E6-D8C0-4A7E90836F99}.gif[/qqimg]

明经快报

[蔡__洛]不快乐 18:26:10

http://bbs.mjtd.com/thread-101303-1-1.html 求帮忙 大神些

明经快报

[清风明月名字] 18:52:19

请问，我写的这个插件运行通得过，但倒角却没有效果，是为什么？
(DEFUN C:TT ( / ent i ss ss1 新图层名)
 (COMMAND "CHAMFER" "D" "0" "");设定倒角距离为双0
(SETQ 新图层名 "00理正平面图每条剖面线对应一条多义线")
  (SETQ 新图层名2 "00理正辅助线")
  (if (= (tblsearch "Layer" 新图层名) nil)
         (command "Layer" "new" 新图层名 "color" "1" 新图层名 "")
      )

  (if (= (tblsearch "Layer" 新图层名2) nil)
         (command "Layer" "new" 新图层名2 "color" "1" 新图层名2 "")
      )
  
  (setq ss (ssget "X" '((0 . "CDBDMX")(8 . "MT_LAYER")))) 

(setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i))
    (command "EXPLODE" ent )
(setq ss1 (ssget ""))
    (command ".chprop" ss1 "" "layer" 新图层名2 "")
    (setq ss2 (ssget "X" '  ( (0 . "LWPOLYLINE")  (8 . "00理正辅助线") ) ))
; (command ".chprop" ss1 "" "layer" 新图层名 "")

(setq i1 1);为“1”的原因，“1”代表第二条线，只有第二条线才能和前面一条线倒角
(repeat (- (sslength ss2) 1)
    (setq ent1 (ssname ss2 i1))
    (setq 前一条线 (ssname ss2 (- i1 1)))
    (command "chamfer" ent1 前一条线 )
    
    (setq i1 (+ 1  i1))
)
    ;(command ".chprop" ss2 "" "layer" 新图层名1 "")
    
    (setq i (+ 1  i))
  
)
)