有问题向陈老师请教？

macheng

陈老师：
最近我买了您和冯伟先生编著的《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")  ""
           )
  
  )

龙龙仔

块C在TOOLS.DWG裡