测量vlax曲线getPointA

transcad · 发表于 2022-7-6 08:15:00

早上好
我想把一个“渐变”的曲线（样条线，样条线），见附图。我不知道该怎么做，也不知道是否有可能做到。“渐变”始终垂直于曲线。L1、L2、D-给定值。知道吗？测量Vlax曲线getPointAtDist？
测量图纸

MSasu · 发表于 2022-7-6 08:22:44

关于编程方法，当然可以做到。沿着您已经提出的函数，您还需要寻找插入点上的二阶导数，以获得局部切线，从而获得曲线上的垂线。

当做
米尔恰

transcad · 发表于 2022-7-6 08:26:47

对于二阶导数，使用哪个函数？

MSasu · 发表于 2022-7-6 08:28:42

要在给定位置列出曲线上的二阶导数，应使用vlax curve getSecondDeriv。

我建议您查看帮助vlax curve-*函数系列。

当做
米尔恰

Stefan BMR · 发表于 2022-7-6 08:33:48

对不起，Mircea，我认为不需要第二个。这可能会有所帮助：
（setq tg（vlax curve getFirstDeriv entity param））将为您提供在param处与曲线相切的方向。因此，垂直方向为（atan（cadr-tg）（car-tg））+或-pi/2。

MSasu · 发表于 2022-7-6 08:38:34

斯特凡，你完全正确；我被纠正了。很抱歉给您带来不便。

当做
米尔恰

Tharwat · 发表于 2022-7-6 08:44:04

这可能会让你开始，尽管我没有得到你特别想要的。

将此作为一个示例。

copy


(defun c:TesT (/ ss p2 l d n)
 ;;; Tharwat 21. Feb. 2012 ;;;
 (if (and
       (setq ss (entsel "\n Select a Poly :"))
       (member (cdr (assoc 0 (entget (car ss))))
               '("LINE" "SPLINE" "LWPOLYLINE" "POLYLINE")
       )
       (setq p2 (1+ (fix (vlax-curve-getendparam (car ss)))))
       (setq l (vlax-curve-getdistatparam (car ss) (- p2 1)))
       (setq d (getdist "\n Specify the distance between points :"))
       (setq n d)
     )
   (progn
     (entmake
       (list '(0 . "POINT")
             (cons 10 (vlax-curve-getpointatparam (car ss) 0))
       )
     )
     (repeat
       (fix (/ l d))
        (setq pt (vlax-curve-getpointatdist (car ss) d))
        (entmake (list '(0 . "POINT") (cons 10 pt)))
        (setq d (+ n d))
     )
   )
   (princ)
 )
 (princ)
)

transcad · 发表于 2022-7-6 08:46:45

我想比较两个字符串，使用什么函数？
（=（cdr（assoc 0（entget（car（entsel）ЮЮ））“line”），我选择了一条线，但它不工作。。。我应该使用equal或eq。。。？

Tharwat · 发表于 2022-7-6 08:51:29

你应该这样使用它。。

在这种情况下，and=和eq函数是相同的。
或者这个。。。

copy


(= (cdr (assoc 0 (entget (car(entsel))))) [color=blue][b]"LINE"[/b][/color])

但所有这些都不是一种好的编程方式。

因为如果你什么都不选，就会出错。

transcad · 发表于 2022-7-6 08:57:03

如何确定样条曲线的起点和终点？

[编程交流] 测量vlax曲线getPointA

发表回复

精选推荐