怎樣只選取一條多義線上的某一段線段?

twinpen

怎样在选取一条多义线后而只夹取线上的某一段线段?

0451doctor

前题是你必需安装expresstools这个工具才好使！ (defun c:test ()
(setq ent (entsel))
(setq p (cadr ent)
ent (car ent)
)
(setq pp (vlax-curve-getclosestpointto ent (trans p 1 0))
n (fix (vlax-curve-getparamatpoint ent pp))
)
(setq ll (acet-pline-segment-list ent))
(list n
(nth n (car ll))
(nth (1+ n) (car ll))
(nth n (cadr ll))
(nth n (caddr ll))
(nth n (last ll))
)
)

革天明

0451doctor 发表于 2004-12-26 10:06
前题是你必需安装expresstools这个工具才好使！

没有装expresstools的情况下怎么做呢？有些程序不只是自己用，别人有时没有或者不会装expresstools（默认状态下CAD不装这个），没有纯LISP的吗？

Andyhon

Ref:
http://www.mjtd.com/Functions/ShowClass.asp?ClassID=18
==>
  coordsofsegbypick 返回多义线所点击子段的端点坐标
  coodsofsegbynum 返回多段线第n子段的端点坐标
  oodsofnumpoint 返回多段线第n点的坐标

lish

Ref:
http://www.mjtd.com/Functions/ShowClass.asp?ClassID=18
==>
  coordsofsegbypick 返回多义线所点击子段的端点坐标
  coodsofsegbynum 返回多段线第n子段的端点坐标
  oodsofnumpoint 返回多段线第n点的坐标
这个site打不开啊

Andyhon

搜到两帖
http://bbs.mjtd.com/thread-35662-1-1.html
http://bbs.mjtd.com/thread-85951-1-1.html