随心随意测距

wanhongron

@gzcsun侠，你的程序非常完美，辛苦了

landsat99

Python win32com

1. import pythoncom
   
2. import win32com.client
   
3. 
   
4. Cad = win32com.client.Dispatch("AutoCAD.Application")
   
5. Uti = Cad.ActiveDocument.Utility
   
6. 
   
7. def pt(x, y, z=0):
   
8.     return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, (x, y, z))
   
9. 
   
10. def dist(pt1, pt2):
    
11.     x1 = pt1[0]; y1 = pt1[1]; x2 = pt2[0]; y2 = pt2[1]
    
12.     return ((x2 - x1)**2 + (y2 - y1)**2)**0.5
    
13. 
    
14. dd = 0
    
15. pt1 = Uti.GetPoint(pt(0,0),"First point: ")
    
16. while True:
    
17.     pt2 = Uti.GetPoint(pt(pt1[0], pt1[1]), "Next point >>> ")
    
18.     dd += dist(pt1, pt2)
    
19.     Uti.Prompt("Total Dist= " + str(dd) + "\n\r")
    
20.     pt1 = pt2
    

import pythoncom<br /> import win32com.client<br /> <br /> Cad = win32com.client.Dispatch("AutoCAD.Application")<br /> Uti = Cad.ActiveDocument.Utility<br /> <br /> def pt(x, y, z=0):<br />     return win32com.client.VARIANT(pythoncom.VT_ARRAY | pythoncom.VT_R8, (x, y, z))<br /> <br /> def dist(pt1, pt2):<br />     x1 = pt1[0]; y1 = pt1[1]; x2 = pt2[0]; y2 = pt2[1]<br />     return ((x2 - x1)**2 + (y2 - y1)**2)**0.5<br /> <br /> dd = 0<br /> pt1 = Uti.GetPoint(pt(0,0),"First point: ")<br /> while True:<br />     pt2 = Uti.GetPoint(pt(pt1[0], pt1[1]), "Next point >>> ")<br />     dd += dist(pt1, pt2)<br />     Uti.Prompt("Total Dist= " + str(dd) + "\n\r")<br />     pt1 = pt2<br />

cj52000

gzcsun 发表于 2022-5-18 15:33
(defun c:tt1(/ N n1 P1 p22 P2)
  (setq n 0)
        (setq n1 0)

大师，很好用，能否把小数位数改为3位小数，谢谢 ！

lxl217114

liufii 发表于 2022-5-18 11:30
多谢分享！

试了下出现错误，只能测量一段，错误如下：

出现了相同的问题

mercio

厉害，收藏一下

wanhongron

能否把测的结果随鼠标位置显示

wanhongron

或在屏幕中间显示，免得老是低头看命令栏

xyp1964

;; 不具有通用性

gzcsun

wanhongron 发表于 2022-5-21 10:24
或在屏幕中间显示，免得老是低头看命令栏

打开动态输入就可以

gzcsun

cj52000 发表于 2022-5-18 21:11
大师，很好用，能否把小数位数改为3位小数，谢谢 ！

(rtos n 2 2)
改为
(rtos n 2 3)