autocad2007中： 1.怎样使样条曲线与两端连接的样条曲线相切？ 2.怎样使圆弧与两端连接的样条曲线相切？

Answer 1

样条曲线绘制切线，有个方法，就是【偏移对象】，然后找到对应点。绘制对应点的垂直线。根据这个原理编程来绘制切线。



autolisp编程代码如下：

(defun c:tes ( / &ang1 &dis1 &k1 &n1 &p1 &p2 ent1)
 (if (null vlax-dump-object) (vl-load-com) )
 (if (and (setq &k1 (entsel "\n请选择样条曲线或圆弧"))
          (setq &k1 (car &k1))
          (member (cdr (assoc 0 (entget &k1))) '("ARC" "SPLINE"))
          (setq &k1 (vlax-ename->vla-object &k1))
          (setq &p1 (getpoint "\n请选择切线点"))
          (> (setq &dis1 (* 0.1 (vlax-curve-getDistAtParam &k1 (vlax-curve-getEndParam &k1)))) 0)
          (setq &p1 (vlax-curve-getclosestpointto &k1 &p1))
          (setq &n1 (vlax-curve-getParamAtPoint &k1 &p1))
          (null (vl-catch-all-error-p (vl-catch-all-apply 'vla-offset (list &k1 0.01))))
          (setq ent1 (entlast))
          (setq &p2 (vlax-curve-getPointAtParam ent1 &n1))
     )
  (progn
   (entdel ent1)
   (setq &ang1 (+ (angle &p1 &p2) (* pi 0.5)))
   (setq &p2 (polar &p1 &ang1 &dis1) &p1 (polar &p1 &ang1 (* &dis1 -1.0)))
   (entmake (list '(0 . "LINE") (cons 10 &p2) (cons 11 &p1)))
  )
 )
 (princ)
)

追问

编程看不懂，这也太高难度了，期待更简单的方法

追答

复制程序到记事本，以【.lsp】为后缀命名，打开cad，命令【appload】加载程序，命令【TES】就可以绘制切线。

手动绘制切线，偏移对象，对应的点连接，就是垂直线。



根据垂直线或切线，命令【RO】旋转对象。

