如何获得用户选择矩形的哪一条线上

啵浪鼓 · 发表于 2011-3-25 02:11:44

已知一个封闭矩形，下面是一个简单的像素表，太多10的项，不知哪个才是用户所选择的那条线！

选择对象: ((-1 . <图元名: 7eaad038>) (0 . "LWPOLYLINE") (5 . "20F3F") (102 .
"{ACAD_REACTORS") (330 . <图元名: 7e8293b8>) (330 . <图元名: 7e8294c8>) (330 .
<图元名: 7e829598>) (102 . "}") (330 . <图元名: 7ef63cf8>) (100 . "AcDbEntity")
(67 . 0) (410 . "Model") (8 . "1") (100 . "AcDbPolyline") (90 . 4) (70 . 1) (43
. 0.0) (38 . 0.0) (39 . 0.0) (10 11265.0 1085.38) (40 . 0.0) (41 . 0.0) (42 .
0.0) (10 11396.9 1085.38) (40 . 0.0) (41 . 0.0) (42 . 0.0) (10 11396.9 1011.88)
(40 . 0.0) (41 . 0.0) (42 . 0.0) (10 11265.0 1011.88) (40 . 0.0) (41 . 0.0) (42
. 0.0) (210 0.0 0.0 1.0))

entsel能得到用户所点的位置，就是不知道怎么写这段程序，来得到该线段的长度与该线段的 2个坐标点？
(<图元名: 7eaad038> (11355.1 1086.15 0.0))

请高手帮忙写一下这段程序，菜鸟先在这里谢过了！

Andyhon · 发表于 2011-3-25 08:25:23

一个就是节点求法
一个就是捕捉点求法

(setq ee (entsel)
   pt (cadr ee)
   ee (car ee)
   pm (osnap pt "Mid")
   pa (osnap pt "End")
)

那么 pb 就是另一个端点了

Gu_xl · 发表于 2011-3-25 09:07:54

本帖最后由 Gu_xl 于 2011-3-25 09:14 编辑

回复啵浪鼓的帖子

(list (vlax-curve-getPointAtParam (car (setq en (entsel))) (setq param (fix (vlax-curve-getParamAtPoint (car en) (vlax-curve-getclosestpointto (car en) (cadr en))))))
(vlax-curve-getPointAtParam (car en) (1+ param))
)

啵浪鼓 · 发表于 2011-3-25 21:15:30

非常感谢2位大大的指教，程序都挺好，谢谢！

zlg258369 · 发表于 2011-3-25 23:09:14

学习一下

啵浪鼓 · 发表于 2011-3-25 23:12:11

楼上的程序只能得到坐标点，该线的线长得不到，矩形上如果有圆弧相连，该圆弧的数值是多少呢？
想做一个这样的程序，就是一个矩形，想单线偏移，如果点中线，就将这条线单向偏移，点圆弧上就偏移此圆弧
offset命令是将整个矩形一起偏移，而想要的结果是只是偏移点中的单一对象偏移

Gu_xl · 发表于 2011-3-25 23:29:27

回复啵浪鼓的帖子

好好学习研究一下vlax-curve-族函数吧,这几个函数搞明白了，计算距离是很简单的呦！

啵浪鼓 · 发表于 2011-3-27 20:35:33

目前只是略懂点lisp,Vlisp没怎么接触，麻烦！

Andyhon · 发表于 2011-3-28 09:05:25

只是偏移点中的单一对像偏移
http://forums.autodesk.com/t5/Vi ... ich-side/m-p/328274

894560869 · 发表于 2019-4-10 23:47:59

请问：一次选中的对象中，
如果是
直线
矩形（就炸开再选中炸开矩形后的直线）
最后选择中的是直线

这段码怎么写呀，。这个困了我好久

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

[讨论] 如何获得用户选择矩形的哪一条线上

浏览过的版块