为什么圆角功能在此代码中不起作用？答案

【问题标题】：why fillet function is not work in this code?为什么圆角功能在此代码中不起作用？
【发布时间】：2022-01-27 06:33:44
【问题描述】：

我尝试在此代码中制作圆角，但在一段时间内无法正常工作。

(defun c:fil ()

  (setq osm  "osmode" )

  (setvar "osmode" 0)

  (setq f1 nil)

  (setq f2 nil)

  (setq p1 (getpoint "\npic first point:"))
  

  (setq e 10)

  

  (while e

  

    
    (setq p2 (getpoint p1 "\npick second point: "))

   

    (setq a (angle p1 p2))


    (setq p3 (polar p1 (+ a (dtr 90.0)) 0.2))

    (setq p4 (polar p2 (+ a (dtr 90.0)) 0.2))

    
    

     

    (command "line" p1 p2 "" "")
    (command "line" p3 p4 "" "")

   

    (setq f1 (polar p1 a 0.2))

    (setq f2 (polar p2 a 0.2))

    (command "fillet"  f1 f2)

   (setq p1 p2)
    

    )

  )
  


(defun dtr (x)

  (* pi (/ x 180.0))
  )`

【问题讨论】：

标签： autolisp

【解决方案1】：

我不确定这个命令应该做什么，但我在循环时修复了错误。
您需要使用 (command-s... 和 (vl-cmdf... 而不是 (command...

当您使用 (command 并注意到 Lisp 中的错误时，有两种方法可供尝试：

1.) 试试 (command-s

http://docs.autodesk.com/ACD/2013/ENU/index.html?url=files/GUID-5C9DC003-3DD2-4770-95E7-7E19A4EE19A1.htm,topicNumber=d30e608833

2.) try (vl-cmdf 在运行命令之前验证参数。
http://docs.autodesk.com/ACD/2013/ENU/index.html?url=files/GUID-6F1AAB6B-D5B1-426A-A463-0CBE93E4D956.htm,topicNumber=d30e650884

当 (command 抛出错误时，两者都适用于不同的场景。

(defun c:fil ( / A E F1 F2 OSM P1 P2 P3 P4)
  (setq osm "osmode")
  (setvar "osmode" 0)
  (setq f1 nil)
  (setq f2 nil)
  (setq p1 (getpoint "\npick first point:"))
  (setq e 10)
  (while e
    (setq p2 (getpoint p1 "\npick second point: "))
    (setq a (angle p1 p2))
    (setq p3 (polar p1 (+ a (dtr 90.0)) 0.2))
    (setq p4 (polar p2 (+ a (dtr 90.0)) 0.2))
    (command-s "line" p1 p2 "" "")
    (command-s "line" p3 p4 "" "")
    (setq f1 (polar p1 a 0.2))
    (setq f2 (polar p2 a 0.2))
    (vl-cmdf "fillet" f1 f2)
    (setq p1 p2)
  )
)

(defun dtr (x)
  (* pi (/ x 180.0))
)

【讨论】：