致陈老师:问题讨论书中(165页)提到的几何抽点

龙龙仔

;;<VISUAL LISP 程序设计>书中(165页)提到的几何抽点
;;其实并不完全是AUTOLISP中的问题,
;;交互操作写成的程序如下,而不是老师书中所述

(defun C:TEST ()
  (setq C1 '(0 0))
  (setq C2 '(0 80))
  (command "circle" C1 20)
  (command "circle" C2 35)
  (command "zoom" "e")
  (command "line"
           "TAN"
           (polar C1 0 20)
           "TAN"
           (polar C2 pi 35)
           ""
  )
  (princ)
)

;;书中所述,我第二条线就会成功
(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")
           ""
  )
  (princ)
)

曙光一号

fawn_lgc

陈老师不停的给他的书做广告,可人家心动了却不知道上那卖．全国发行，新华书店却没卖[br]陈老师不停的给他的书做广告，可人家心动了却不知道上那卖．全国发行，新华书店却没卖；网站邮购却没说是哪家．不知道是书太好买了，我抢购不到；还是书发行太少，我们这边远小镇进不到货；还是售价太高，没有商家敢经销……就不得而知了．
随便说说，不要介意．

陈伯雄

到“搜狐”中，键入“陈伯雄”检索，就可以找到许多...

陈伯雄

陈伯雄

您没理解我这样写的目的。
不是找到一种可行的方法，而是制造一种看来合理，实际上有问题的结果，说明(OSnap)函数的漏洞...

曙光一号

但如果在（test1）中第一条直线不删除的话，第二条切线的位置就不正确了，为什么呢？
在程序中用捕捉切点的方法绘制切线可靠么？是否会受到其它实体的影响？
我自己也编程根据选择点来计算切点，绘制切线就是麻烦了一些，
看来陈老师<VISUAL LISP 程序设计>中有不少编程技巧了，请问在那可以买到这本书呢？

陈伯雄

曙光一号

我这也是猜的，不敢确定，说实在的现在我还是不太明白。书，在那个网站可以邮购，咱们明经通道可以么？[br]

mccad