轴切角帮助！

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

copy


(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)
)