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

炫翔

炫翔(2363673534)于2013-05-07 18-02-22：
直接问

CCarch

落墨花-骉！找(226361689)于2013-05-07 18-06-52：
[face76.gif]

CCarch

清风明月(897902105)于2013-05-07 18-52-24：
)
    (command "EXPLODE" ent )
(setq ss1 (ssget "P"))
        (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))
  
)
)
请问，我写的这个插件运行通得过，但倒角却没有效果，是为什么？
(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 . "PMT_LAYER"))))

(setq i 0)
  (repeat (sslength ss)
    (setq ent (ssname ss i)

CCarch

爱%的*魅@力&(1067368270)于2013-05-07 18-53-13：
[face13.gif]

CCarch

清风明月(897902105)于2013-05-07 19-15-28：
有人能帮忙解答一下吗？

CCarch

№ 离不开 丶(546365498)于2013-05-07 19-20-27：
跪求金箔纸的参数

CCarch

牵ぶ伱の佑手(379002274)于2013-05-07 19-51-35：
为什么做了个断点到了，star_image就过不了

CCarch

牵ぶ伱の佑手(379002274)于2013-05-07 19-51-58：
到了star_dialog

CCarch

牵ぶ伱の佑手(379002274)于2013-05-07 19-52-18：
[qqimg]{62374E90-5A37-7BF9-D65B-E5A3B6319D75}.jpg[/qqimg]

炫翔

炫翔(2363673534)于2013-05-07 19-52-24：
设置的位置太对了

CCarch

牵ぶ伱の佑手(379002274)于2013-05-07 19-52-43：
能说明白点吗

CCarch

爱%的*魅@力&(1067368270)于2013-05-07 19-52-49：
[face88.gif]

炫翔

炫翔(2363673534)于2013-05-07 19-53-15：
看不懂

CCarch

牵ぶ伱の佑手(379002274)于2013-05-07 19-53-15：
一到了star_dialog就一定死在那里了

炫翔

炫翔(2363673534)于2013-05-07 19-53-29：
正常