liuhaixin88 发表于 2022-7-5 23:10:35

轴切角帮助！

嘿伙计们，
该lisp有以下缺陷：

 
它只支持“Line”，但我想要支持“Pline”。
 
谢谢你们的建议和帮助。
hsc。dcl
hsc。LSP

liuhaixin88 发表于 2022-7-5 23:23:15

我觉得选两行不行，可能需要选三行。

ymg3 发表于 2022-7-5 23:24:36

也许，只选择第3行，然后将其用作围栏来选择其他两行。

liuhaixin88 发表于 2022-7-5 23:32:29

 
谢谢你的回复！ymg3，你能帮我修改一下吗？

ymg3 发表于 2022-7-5 23:41:40

没有时间，但很简单，所以你应该没事

ymg3 发表于 2022-7-5 23:45:43


(defun c:test ()
(setq line1 (car (entsel))
      data1 (entget line1)
      
)
(setvar 'chamfera 5)
(setvar 'chamferb 5)
(if (= (cdr (assoc 0 data1)) "LINE")
   (progn
         (setq end10 (cdr (assoc 10 data1))
               end11 (cdr (assoc 11 data1))
               ss    (ssget "_F" (list end10 end11))
         )      
         (command "_pedit" line1 "_Y" "_J"ss "" "")
         (vl-cmdf "_chamfer" "_P" (entlast))
      )
   )
   (princ)
)

liuhaixin88 发表于 2022-7-5 23:56:49

 
 
非常感谢。ymg3，很好，普林呢？孔倒角呢。

ymg3 发表于 2022-7-5 23:58:51

刘海欣，
 
我不打算为你写这个程序。
 
只向你展示可能对你有帮助的技巧。
 
对于多段线，研究vlax曲线函数。从你的角度来看
您可以确定哪个段是
然后计算出剩下的几何体。
 
ymg公司

liuhaixin88 发表于 2022-7-6 00:09:20

 
好的，ymg，还是谢谢你！

liuhaixin88 发表于 2022-7-6 00:13:37

我认为这对机械行业来说是一个有趣的话题。但它沉入深海。
页: [1]
查看完整版本: 轴切角帮助！