twinpen 发表于 2004-12-26 09:59:00

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

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

0451doctor 发表于 2004-12-26 10:06:00

前题是你必需安装expresstools这个工具才好使！


       


(defun c:test ()<BR>               (setq ent (entsel))<BR>               (setq p               (cadr ent)<BR>       ent (car ent)<BR>               )<BR>               (setq pp (vlax-curve-getclosestpointto ent (trans p 1 0))<BR>       n       (fix (vlax-curve-getparamatpoint ent pp))<BR>               )<BR>               (setq ll (acet-pline-segment-list ent))<BR>               (list n<BR>       (nth n (car ll))<BR>       (nth (1+ n) (car ll))<BR>       (nth n (cadr ll))<BR>       (nth n (caddr ll))<BR>       (nth n (last ll))<BR>               )<BR>)

革天明 发表于 2012-1-7 08:15:40

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




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

Andyhon 发表于 2012-1-7 09:29:10

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

lish 发表于 2013-1-5 15:27:30

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

Andyhon 发表于 2013-1-5 16:02:13

搜到两帖
http://bbs.mjtd.com/thread-35662-1-1.html
http://bbs.mjtd.com/thread-85951-1-1.html
页: [1]
查看完整版本: 怎樣只選取一條多義線上的某一段線段?