如图怎么自动标出p1 p2的距离尺寸，求提示帮助(更新说明等待高手。。。)

start4444 · 发表于 2013-4-27 16:14

本帖最后由 start4444 于 2013-8-13 11:29 编辑

更新下说明，期待高手出手，如下图，已知黄色直线n条，用鼠标点选p1、p2、p3，自动标出选点到最近直线的垂直距离，求帮助，谢谢。

yoyoho · 发表于 2020-9-16 15:57

zml84 发表于 2013-4-29 07:46

no function definition: ZL-SF-EFF

自贡黄明儒 · 发表于 2013-4-27 16:52

1 作一点竖线
2 沿这条竖线选择到与p2相交的那条线
3 求得交点p2

start4444 · 发表于 2013-4-27 17:01

自贡黄明儒发表于 2013-4-27 16:52
1 作一点竖线
2 沿这条竖线选择到与p2相交的那条线
3 求得交点p2

谢谢，但是过程没有选中已知的直线的，不知道怎么求得那个p2点

shenhung · 发表于 2013-4-27 20:52

那就選中那條直線.!! 選屏幕對角內的圖元物件.來取得直線.!!

start4444 · 发表于 2013-4-28 12:48

shenhung 发表于 2013-4-27 20:52
那就選中那條直線.!! 選屏幕對角內的圖元物件.來取得直線.!!

能不能直接用最近直线的指令，就像延伸命令两次空格那种，望高手出手

start4444 · 发表于 2013-4-28 21:30

没人帮忙啊 ··· 继续求助

h199101 · 发表于 2013-4-29 00:37

我的思路由p1和线段起终点求面积以线段的正投影为高即可求p1p2长再作图

zml84 · 发表于 2013-4-29 07:46

(vl-load-com)
;;;=================================================================*
;;;功能：计算曲线对象上指定x值的坐标 *
;;;参数：EN -----线条对象图元名称。 *
;;; X -----预查找点位的x值。 *
;;;返回：如果成功，返回坐标值；否则返回nil *
;;;思路：使用二分法 *
;;;注意：线对象如果有多点符合条件，函数只返回一个。 *
(defun zl-en-getpoint-atx (en x / fun01 DIST_TMP LEN OBJ X)
;;定义函数（变量为曲线上距起点的长度）
(defun fun01 (dist_tmp)
(- x
(car (vlax-curve-getPointAtDist obj dist_tmp))
)
)
;;转换对象类型
(setq obj (vlax-ename->vla-object en))
;;总长度
(setq len (vlax-curve-getDistAtParam
obj
(vlax-curve-getEndParam obj)
)
)
;;如果找到，则返回坐标
(if (setq dist_tmp (zl-sf-eff 'fun01 0.0 len 1e-4))
(vlax-curve-getPointAtDist obj dist_tmp)
)
)
;;;=================================================================*
;|;;
;;;测试
(defun c:tt ()
(if (and (setq ss (entsel "\n点取多段线: "))
(setq pt (getpoint "\n点取查询的x位置: "))
(setq pt1 (zl-en-getpoint-atx (car ss) (car pt)))
)
(progn
(command "_.line" "non" pt "non" pt1 "")
)
)
)
;;|;
;;;=================================================================*
;|;;
(DEFUN XTP1 (S1 S2 X / ZH1 Y Z)
(SETQ ZH1 (VLA-ADDLINE
(VLA-GET-MODELSPACE
(VLA-GET-ACTIVEDOCUMENT
(VLAX-GET-ACAD-OBJECT)
)
)
(VLAX-3D-POINT (TRANS (LIST X 0 0) 1 0))
(VLAX-3D-POINT (TRANS (LIST X 1 0) 1 0))
)
)
(SETQ Y (XTZ S1 ZH1)
Z (XTZ S2 ZH1)
)
(VLA-DELETE ZH1)
(- Y Z)
)
(DEFUN XTZ (S1 S2 / SD1 SDZ)
(SETQ SD1 (VLAX-VARIANT-VALUE
(VLA-INTERSECTWITH
S1
S2
ACEXTENDOTHERENTITY
)
)
)
(IF (>= (VLAX-SAFEARRAY-GET-U-BOUND SD1 1) 2)
(PROGN
(SETQ SDZ (LIST (VLAX-SAFEARRAY-GET-ELEMENT SD1 0)
(VLAX-SAFEARRAY-GET-ELEMENT SD1 1)
(VLAX-SAFEARRAY-GET-ELEMENT SD1 2)
)
)
(CADR (TRANS SDZ 0 1))
)
)
)
;;|;

(vl-load-com) 
;;;=================================================================* 
;;;功能：计算曲线对象上指定x值的坐标                                * 
;;;参数：EN -----线条对象图元名称。                                 * 
;;;       X -----预查找点位的x值。                                  * 
;;;返回：如果成功，返回坐标值；否则返回nil                          * 
;;;思路：使用二分法                                                 * 
;;;注意：线对象如果有多点符合条件，函数只返回一个。                 * 
(defun zl-en-getpoint-atx (en x / fun01 DIST_TMP LEN OBJ X) 
    ;;定义函数（变量为曲线上距起点的长度） 
    (defun fun01 (dist_tmp) 
        (- x 
           (car (vlax-curve-getPointAtDist obj dist_tmp)) 
        ) 
    ) 
    ;;转换对象类型 
    (setq obj (vlax-ename->vla-object en)) 
    ;;总长度 
    (setq len (vlax-curve-getDistAtParam 
                  obj 
                  (vlax-curve-getEndParam obj) 
              ) 
    ) 
    ;;如果找到，则返回坐标 
    (if        (setq dist_tmp (zl-sf-eff 'fun01 0.0 len 1e-4)) 
        (vlax-curve-getPointAtDist obj dist_tmp) 
    ) 
) 
;;;=================================================================* 
;|;; 
;;;测试 
(defun c:tt () 
    (if        (and (setq ss (entsel "\n点取多段线: ")) 
             (setq pt (getpoint "\n点取查询的x位置: ")) 
             (setq pt1 (zl-en-getpoint-atx (car ss) (car pt))) 
        ) 
        (progn 
            (command "_.line" "non" pt "non" pt1 "") 
        ) 
    ) 
) 
;;|; 
;;;=================================================================* 
;|;; 
(DEFUN XTP1 (S1 S2 X / ZH1 Y Z) 
    (SETQ ZH1 (VLA-ADDLINE 
                  (VLA-GET-MODELSPACE 
                      (VLA-GET-ACTIVEDOCUMENT 
                          (VLAX-GET-ACAD-OBJECT) 
                      ) 
                  ) 
                  (VLAX-3D-POINT (TRANS (LIST X 0 0) 1 0)) 
                  (VLAX-3D-POINT (TRANS (LIST X 1 0) 1 0)) 
              ) 
    ) 
    (SETQ Y (XTZ S1 ZH1) 
          Z (XTZ S2 ZH1) 
    ) 
    (VLA-DELETE ZH1) 
    (- Y Z) 
) 
(DEFUN XTZ (S1 S2 / SD1 SDZ) 
    (SETQ SD1 (VLAX-VARIANT-VALUE 
                  (VLA-INTERSECTWITH 
                      S1 
                      S2 
                      ACEXTENDOTHERENTITY 
                  ) 
              ) 
    ) 
    (IF        (>= (VLAX-SAFEARRAY-GET-U-BOUND SD1 1) 2) 
        (PROGN 
            (SETQ SDZ (LIST (VLAX-SAFEARRAY-GET-ELEMENT SD1 0) 
                            (VLAX-SAFEARRAY-GET-ELEMENT SD1 1) 
                            (VLAX-SAFEARRAY-GET-ELEMENT SD1 2) 
                      ) 
            ) 
            (CADR (TRANS SDZ 0 1)) 
        ) 
    ) 
) 
;;|;

云中孤鹰 · 发表于 2013-4-29 08:28

这个也用不着编个程，画条直线上去就好了

fl202 · 发表于 2013-7-23 17:20

你们搞得好复杂。。。

取得直线的端点px和止点py，得到直线的角度ang1, (setq ang1 (angle px py))， (setq p3 (polar p1 (+ ang1 (* 0.5 pi ) ) 100 )
inters 求px、py 与 p1、 p3 的交点就是p2了。 (setq p2 (inters px py p1 p3 nil)))

求出p2的坐标后。。。

用铅笔和尺在电脑显示器上绘制1条直线，然后用铅笔绘制个标注，然后再cad中输入标注命令，然后用橡皮把铅笔绘制的线擦掉。然后对着电脑高喊一声：保存！

ok。

账号		自动登录	找回密码
密码			注册

[源码] 如图怎么自动标出p1 p2的距离尺寸，求提示帮助(更新说明等待高手。。。)

本帖子中包含更多资源