矩形边拉伸固定值，请帮修改加强一下(能记忆值更好)

ww5w 发表于 2013-10-3 10:48:08

本帖最后由 ww5w 于 2013-10-3 14:35 编辑

点多边形的边拉抻
(setq ent (entsel"\n请选择要拉伸线段:"))
(setq PNT (apply 'vlax-curve-getClosestPointTo ENT))
(setq ENT (car ENT))
(setq PP(fix (vlax-curve-getParamAtPoint ENT PNT)))
(setq pa (vlax-curve-getPointAtParam ENTPP);;节点1
pb (vlax-curve-getPointAtParam ENT (1+ PP)) ) ;;节点2
(command "_.stretch" "c" "non" pa "non" Pb "" "non" pnt ); 想在指定方向后自动拉伸啦0.5，这里的要怎么弄?
谢谢.

894560869 发表于 2019-6-7 21:21:13