为了正常的体验网站,请在浏览器设置里面开启Javascript功能!
首页 > 提取多段线坐标

提取多段线坐标

2017-11-11 3页 doc 14KB 34阅读

用户头像

is_597436

暂无简介

举报
提取多段线坐标提取多段线坐标 ÈçºÎÌáÈ??öplineÏßµÄ×ø?ê ?øÄãÐ??ö?òµ?µÄ?ÌÐò??ÑÝÊ??? ÆÁÄ?ÉÏ?òÓ??öÃ??ö??µãµÄ×ø?ê???ÌÐòÇëÔÚÏþ?????ßÏäÏÂÔËÐÐ???ÌÐò?ÔPOLYLINEºÍLWPOLYLINE??Æð×?ÓÃ?? ?úÂë: (defun c:getPlVerts (/ e cls p1 num pl) (if (setq e (car (xdrx_entsel "\nÇëÑ?ÔñÒ?Ìõ?àÒåÏß:" '((0 . "*poly...
提取多段线坐标
提取多段线坐标 ÈçºÎÌáÈ??öplineÏßµÄ×ø?ê ?øÄãÐ??ö?òµ?µÄ?ÌÐò??ÑÝÊ??? ÆÁÄ?ÉÏ?òÓ??öÃ??ö??µãµÄ×ø?ê???ÌÐòÇëÔÚÏþ?????ßÏäÏÂÔËÐÐ???ÌÐò?ÔPOLYLINEºÍLWPOLYLINE??Æð×?ÓÃ?? ?úÂë: (defun c:getPlVerts (/ e cls p1 num pl) (if (setq e (car (xdrx_entsel "\nÇëÑ?ÔñÒ?Ìõ?àÒåÏß:" '((0 . "*polyline"))))) (progn (setq cls (xdrx_object_classname e)) (if (= "POLYLINE" (car cls)) (progn (xdrx_polyline_ConvertFrom e) (setq e (entlast)) ) ) (setq num (xdrx_polyline_NumVerts e) i -1 ) (repeat num (setq p1 (xdrx_polyline_getPointAt e (setq i (1+ i))) pl (cons p1 pl) ) ) (princ (reverse pl)) ) )) Ê?Àý?º ?úÂë: ÃüÁî: GETPLVERTSÇëÑ?ÔñÒ?Ìõ?àÒåÏß:((38383.4 15577.2 0.0) (45376.7 15577.2 0.0) (45376.7 8328.85 0.0) (42197.9 8328.85 0.0))((38383.4 15577.2 0.0) (45376.7 15577.2 0.0) (45376.7 8328.85 0.0) (42197.9 8328.85 0.0)) ÈçºÎÌáÈ??öplineÏßµÄ×ø?ê VBA ?úÂë: Sub getPLPoints() Dim reObj As AcadObject Dim reobj1 As AcadPolyline Dim basePoint As Variant Dim curPoint As Variant ' Dim totalPoints As Long ThisDrawing.Utility.GetEntity reObj, basePoint, "please select a polyline: " If reObj.ObjectName = "AcDbPolyline" Then curPoint = reObj.Coordinates A = UBound(curPoint) For I = 0 To A - 1 Step 2 Debug.Print "POINT" + Str((I + 2) / 2) + ": X=" + Str(curPoint(I)) + " , Y=" + Str(curPoint(I + 1)) N ext End If End Sub ;È??àÒåÏß?˵ã×ø?ê (defun c:plid () (setq name (getstring "\n File name:")) (setq ent_b (entget (ssname (ssget) 0))) (setq ffile (open name "w")) (setq ent_pb (assoc 10 ent_b)) (while (/= ent_pb nil) (progn (setq px (nth 1 ent_pb)) (setq py (nth 2 ent_pb)) (setq pxx (rtos px 2 6)) (setq pyy (rtos py 2 6)) (setq dataxy (strcat pxx " " pyy)) (write-line dataxy ffile) (setq newlt (list px py)) (setq ent_b (subst (cons 1 newlt) (assoc 10 ent_b) ent_b)) (setq ent_pb (assoc 10 ent_b)) ) ) (close ffile) (princ) ) (prompt "...loaded. --- ?ðöÎÍÁÄ? ---- 2004.2.22 ------ ")
/
本文档为【提取多段线坐标】,请使用软件OFFICE或WPS软件打开。作品中的文字与图均可以修改和编辑, 图片更改请在作品中右键图片并更换,文字修改请直接点击文字进行修改,也可以新增和删除文档中的内容。
[版权声明] 本站所有资料为用户分享产生,若发现您的权利被侵害,请联系客服邮件isharekefu@iask.cn,我们尽快处理。 本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。 网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。

历史搜索

    清空历史搜索