- 博客(5)
- 收藏
- 关注
RSS订阅原创 Auto\Visual LISP代码片断-创建对象
Auto\Visual LISP代码片断-创建对象创建直线对象创建多义线对象创建直线对象;用法：(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名)(defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2) (setq p1 (list xa ya) p2 (list xb yb)) (entmakeX (l...
2019-06-02 10:02:41
1393
原创 测量计算方位角万能通用公式及VB、VBA源代码
使用该公式不用判断象限，直接得出方位角值设有两点A、B，坐标分别为A（Xa，Ya）、B（Xb、Yb），则 ΔX=Xb−XaΔX=Xb−Xa\Delta X=X_b-X_a ΔY=Yb−YaΔY=Yb−Ya\Delta Y=Y_b-Y_a ΔY=ΔY+e−10ΔY=ΔY+e−10\Delta Y=\Delta Y+e^{-10} ...
2018-05-21 09:38:36
3454
原创 东方财富自定义换手率副图指标(QDHSL)
换手率:100*VOL/CAPITAL,VOLSTICK;量比:(VOL/2400)/((REF(VOL,1)+REF(VOL,2)+REF(VOL,3)+REF(VOL,4)+REF(VOL,5))/(5*2400)),NODRAW;MH5:MA(HSL,5)*2,dotline,COLORWHITE;MH10:MA(HSL,10)*2,COLORYELLOW;MH20:MA(HSL,2...
2018-05-21 09:06:06
5947
原创 Visual Lisp代码片断：生成直线对象
;用法：(EntMakeLine 起点X 起点Y 终点X 终点Y 颜色 层名)(defun EntMakeLine (xa ya xb yb lineColor layerName / p1 p2) (setq p1 (list xa ya) p2 (list xb yb)) (entmakeX (list '(0 . "LINE") (cons 10 p1) (cons 11 ...
2018-05-21 09:04:50
624
原创 Visual Lisp代码片断：生成文本对象
;用法：(EntMakeText 点X 点Y 文本内容 文本高度 颜色 层名)(defun EntMakeText (px py str tHeight styleName layerName / pt) (setq pt (list px py)) (entmakeX (list '(0 . "TEXT") (cons 1 str) (cons 10 p...
2018-05-21 09:03:27
765
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人