提取多段线坐标提取多段线坐标
ÈçºÎÌáÈ??ö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,我们尽快处理。
本作品所展示的图片、画像、字体、音乐的版权可能需版权方额外授权,请谨慎使用。
网站提供的党政主题相关内容(国旗、国徽、党徽..)目的在于配合国家政策宣传,仅限个人学习分享使用,禁止用于任何广告和商用目的。