[求助]：怎样把提取出的xyz重新定义为一个坐标点

XDSoft

最初由 Underway 发布
[B]Sorry!  Copy后未即修改
又奈何不让更正 ..... [/B]

限制取消了，你试试编辑贴子。

SGP007

谢谢青铜长老鼎力相助，不好意思，我还有一个问题，如果我计算的长度是相对于上一个拾取的点，该怎么写呢？就是LC不是相对于我的起点来计算了，而是每两个拾取点之间。
还有一个疑问： (command "non" (list (car d) (cadr d) dz))当中的“non”是什么呢？是取消捕捉还是重复上一条命令，或者是其他的作用？我删除后，对程序没有影响，麻烦高手解答下，谢谢

zml84

[php]
;;;功能：路线两侧“种”东西

(defun C:TT (/            SS           ENT          SS1         NAME        DIST1  DIST2  OBJ
             LEN    LST           ANG          DIST_TMP        PT0    PT1    PT2
             PT
            )
    (if        (and
            ;;选择中心线
            (setq SS (entsel "\n点取多段线表示的道路中心线: "))
            (setq ENT (entget (car SS)))
            (= (cdr (assoc 0 ENT)) "LWPOLYLINE")
            ;;选择块
            (setq SS1 (entsel "\n点取要\"种植\"的图块: "))
            (setq ENT (entget (car SS1)))
            (= (cdr (assoc 0 ENT)) "INSERT")
            (setq NAME (cdr (assoc 2 ENT)))
            ;;桩号间距
            (setq DIST1 (getdist "\n桩号间距: "))
            ;;距
            (setq DIST2 (getdist "\n种植点距道路中心线距离: "))
        )
        (progn

            ;;将图元名转换为 VLA对象
            (setq OBJ (vlax-ename->vla-object (car SS)))
            ;;曲线长度
            (setq LEN
                     (vlax-curve-getdistatparam obj (vlax-curve-getendparam OBJ))
            )

            (setq DIST_TMP 0.0)
            (repeat (fix (/ LEN DIST1))
                ;;曲线上起点为指定距离的点pt2
                (setq
                    PT0        (vlax-curve-getpointatdist OBJ DIST_TMP)
                )
                ;;pt2点的切线方向矢量
                (setq LST (vlax-curve-getfirstderiv
                              OBJ
                              (vlax-curve-getparamatpoint
                                  OBJ
                                  PT0
                              )
                          )
                )
                (setq ANG (atan (/ (cadr LST) (car LST)))) ;_计算切线方位角
                (setq PT1 (polar PT0 (+ ANG (* 0.5 pi)) DIST2)) ;_计算左侧的一点
                (setq PT2 (polar PT0 (+ ANG (* 1.5 pi)) DIST2)) ;_计算右侧的一点

                ;;种东东
                (foreach PT (list PT1 PT2)
                    (entmake (list
                                 '(0 . "INSERT")
                                 '(410 . "Model")
                                 '(8 . "0")
                                 '(100 . "AcDbBlockReference")
                                 (cons 2 NAME)
                                 (cons 10 PT)
                                 '(41 . 1.0)
                                 '(42 . 1.0)
                                 '(43 . 1.0)
                                 (cons 50 ANG)
                             )
                    )
                )

                ;;
                (setq DIST_TMP (+ DIST_TMP DIST1))
            )
        )
    )
    (princ)
)
[/php]

SGP007

我现在的长度是相对于起点计算的，如果相对于上一个拾取点，该怎么做呢

sjy2005

都是些什么呀