[LISP程序]：关于FILLET的一段程序,奈何运行不对

dhxf · 发表于 2009-2-11 08:51:32

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:qx()
  (setq pt0 (getpoint "\n\t起点:"))
  (setq pt1 (getpoint pt0 "\n下一点<退出> : "))
  (vl-cmdf "line" pt0 pt1 "")

  ;(vl-cmdf "")
  (setq e1 (entlast))
  (setq l1 (list e1 pt0))
  (setq pt2 pt1)


;(setq pt2 (getpoint "\n\t起点:"))
(vl-cmdf "line" pt2)
(while (setq pt3 (getpoint pt2 "\n下一点<退出> : "))
(vl-cmdf pt3)
(setq e2 (entlast))
(setq l2 (list e2 pt2))

(command "_fillet" "r" "150" "fillet" l1 l2)
;(redraw )
(setq pt2 pt3)
;(vl-cmdf "fillet" l1 l2 )
(setq l1 l2)

   )
   (vl-cmdf "")
(princ)
  )

zml84 · 发表于 2009-2-11 12:41:29

请写明需求

dhxf · 发表于 2009-2-11 14:31:37

画line线，第二段和第一段FILLET,第三段和第二段FILLET......类推

fl202 · 发表于 2009-2-13 15:13:59

我没有看懂。

dhxf · 发表于 2009-2-20 08:54:57

就是相连的2段line进行fillet

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：关于FILLET的一段程序,奈何运行不对

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子