有问题向陈老师请教？

macheng · 发表于 2003-2-7 10:33:00

陈老师：
最近我买了您和冯伟先生编著的《visual LISP程序设计-技巧与范例》光盘中有个
tools.lsp，在这个文件中有个生成齿条图形的程序，需要插入块C，我想问一下图块C是如何定义的？
另外您说的生成切线的问题，其实只要删除一次就好了
(defun c:test1 ()
  (setq c1 '(0 0) c2 '(0 80))
  (command "circle" c1 20
         "circle" c2 35
         "zoom" e
         "line" (osnap (polar c1 0 20) "tan") (osnap (polar c2 pi 35) "tan")  ""
         "erase" "l" ""
         "line" (osnap (polar c1 0 20) "tan") (osnap (polar c2 pi 35) "tan")  ""
         )

  )

龙龙仔 · 发表于 2003-2-7 12:37:00

块C在TOOLS.DWG裡

有问题向陈老师请教？

发表回复

精选推荐