cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区

;;;=============================================================

;;; 一般平面曲线参数方程的曲率离心公式

;;; 功能: 获取曲线上一点处的离心半径和离心圆圆心

;;; 参数: 曲线实体和曲线上的一点

;;; 返回: 此处离心圆圆心、离心半径

;;;=============================================================

(defun CUR:GetCurvature (en pt / ob px v1 v2 v3 x1 y1 x2 y2 cen rad d1 d2)

(setq ob (vlax-ename->vla-object en))

(setq pt (vlax-curve-getclosestpointto en pt)) ;保证此点在曲线上

(setq px (vlax-curve-getParamAtPoint en pt)) ;此点的曲线参数

(setq v1 (vlax-curve-getFirstDeriv en px)) ;此点的一阶矢量

(setq v2 (vlax-curve-getSecondDeriv en px)) ;此点的二阶矢量

(setq v3 (list (- (cadr v1)) (car v1) (caddr v1))) ;此点的切线矢量

(setq x1 (car v1)) ;一阶导数的 X值

(setq y1 (cadr v1)) ;一阶导数的 Y值

(setq x2 (car v2)) ;二阶导数的 X值

(setq y2 (cadr v2)) ;二阶导数的 Y值

(setq d1 (expt (+ (* y1 y1) (* x1 x1)) 1.5))

(setq d2 (- (* x1 y2) (* x2 y1))) ;转弯内外的判定

(if (/= d2 0) ;如果不为直线段

(progn

(setq rad (/ d1 d2))

(if (vlax-method-applicable-p ob 'GetBulge) ;如果为多段线(含圆弧)

(if (< (vla-GetBulge ob (fix px)) 0) ;如果此段凸度小于0

(setq rad (- rad))

)

(list (polar pt (angle '(0 0 0) v3) rad) (abs rad)) ;圆心及半径

)

cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

cad坐标归零lisp_Z轴归零源码说明 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
2 支持35种图元的Z轴归零序号目标图元 CAD数据库图元名 (ObjectName) 函数名 1 2D多段线 AcDb2dP ...
方孔分段的lisp_常用函数.lsp - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由自贡黄明儒于 2013-11-11 12:57 编辑 ;;各位,把你们收藏都拿出秀一秀呀,放在箱底会生霉的 ;;我的收集是在caoyin发布的通用函数基础上扩展的----自贡黄明儒 20 ...
偏移变色lisp_渐进式多重偏移，见图片效果 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - 偏移 - Powered by Discuz!...
本帖最后由荒野孤行于 2015-6-23 19:28 编辑渐进式多重偏移,图片效果如下: 附上源码: ;;; *****多重偏移程序开始***** (defun c:dcpy () (setv ...
块内拉升lisp_多重插入块的炸开问题？ - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
很多个cad文件,被别人加了密,每个cad文件都生成了很多个多重插入块,在论坛找了个xxi的程序,可以炸开多重插入块,但是,文件太多,块也太多,不能一个一个炸,而且,每个多重插入块执行一下xxi命令之 ...
cad四边形展开lisp_批量绘制四边形 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;试用以下程序 (defun c:test() (setq bcsjb '(("A1" 9549.31 6977.53 7180.75 7155.97 11015.11) (&qu ...
cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...
cad偏移后自动变色lisp_高手帮忙修改，批量偏移 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
;;用LISP实现将PL环向内或向外偏移 ;;http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=654 (defun C:TEE ( / cu ...
偏移变色lisp_直线偏移联动 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
本帖最后由 masterlong 于 2018-11-4 15:08 编辑 ;| 类似于edata发布的程序"直线偏移连动~偏移后修改与其相接触的直线" 和他不同的是 edata的 ...
cad引出线段lisp_给定起终点，如何提取线段连线关系表 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
(defun c:tt (/ l i s p e r a d o ) (setq r 2.0 ) : 设定字体比列参数 1:2 (if (and (setq e (car (entsel " ...

cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...

cad抛物线曲线lisp_曲线的转弯半径和曲率 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...相关推荐

最新文章

热门文章