求多段线上任意间距点至别一条多段线的垂直距离，并将距离输出至记事本或excel中

spring8801

如图所示，以A线为基准线，求B线任意间距点（手动输入间距）至A线的距离，B线上的点在A线右侧为正值，左侧为负值。并将距离按照顺序输出记事本或excel中。

jpg102329

大师您好，我看您还有5个明经币，我忽然有个想法。今天天气真好，要是能捡到5个明经币就好了，或许就能写出一些代码了

spring8801

jpg102329 发表于 2017-8-17 07:55
大师您好，我看您还有5个明经币，我忽然有个想法。今天天气真好，要是能捡到5个明经币就好了，或许就能写出 ...

在哪设置明经币？5个明经币没有问题啊

spring8801

spring8801 发表于 2017-8-17 08:12
在哪设置明经币？5个明经币没有问题啊

重新发布悬赏帖子了，这帖子如何删除？

jpg102329

1. (defun c:tt(/ +- A B CAN DIST ET INT LST PTA PTLST X)
   
2.   (setq a(car(jc-entsel'((0 . "*polyline"))"点选A线")))
   
3.   (setq b(jc-entsel'((0 . "*polyline"))"点选B线"))
   
4.   (setq can(if(>(* 0.5 (jc-len(car b)))(vlax-curve-getDistAtPoint (car b)(apply'vlax-curve-getclosestpointto b)))""))
   
5.   (initget 3)
   
6.   (setq dist(getdist"间距："))
   
7.   (setq ptlst(jc-定距等分坐标表 (car b) dist can))
   
8.   (setq int 0)
   
9.   (setq lst
   
10.   (mapcar'(lambda(x)
    
11.         (setq pta(vlax-curve-getclosestpointto a x))
    
12.         (setq dist(distance pta x))
    
13.         (setq +-(if(>(car pta)(car x))"+""-"))
    
14.       (list
    
15.         (rtos(setq int(1+ int))2 0)
    
16.         (strcat +- (rtos dist))
    
17.         )
    
18.       )ptlst))
    
19.   (jc-line ptlst (mapcar '(lambda(x)(vlax-curve-getclosestpointto a x)) ptlst))
    
20.     (if(not(or(setq et(vlax-get-or-create-object"ket.application"))(setq et(vlax-get-or-create-object"et.application"))(setq et(vlax-get-or-create-object"excel.application"))))
    
21.   (progn(alert"未找到WPS或MSexcel")(exit)))
    
22.   (vla-put-visible et 1)
    
23.   (vlax-invoke(vlax-get-property ET 'WorkBooks)'Add);建工作薄
    
24.   (JC-EXCEL-PASE et "A1"lst)
    
25.   (prompt"***大懒猪荣誉出品***")
    
26.   (princ)
    
27.   )

(defun c:tt(/ +- A B CAN DIST ET INT LST PTA PTLST X)<br />   (setq a(car(jc-entsel'((0 . "*polyline"))"点选A线")))<br />   (setq b(jc-entsel'((0 . "*polyline"))"点选B线"))<br />   (setq can(if(>(* 0.5 (jc-len(car b)))(vlax-curve-getDistAtPoint (car b)(apply'vlax-curve-getclosestpointto b)))""))<br />   (initget 3)<br />   (setq dist(getdist"间距："))<br />   (setq ptlst(jc-定距等分坐标表 (car b) dist can))<br />   (setq int 0)<br />   (setq lst<br />   (mapcar'(lambda(x)<br />         (setq pta(vlax-curve-getclosestpointto a x))<br />         (setq dist(distance pta x))<br />         (setq +-(if(>(car pta)(car x))"+""-"))<br />       (list<br />         (rtos(setq int(1+ int))2 0)<br />         (strcat +- (rtos dist))<br />         )<br />       )ptlst))<br />   (jc-line ptlst (mapcar '(lambda(x)(vlax-curve-getclosestpointto a x)) ptlst))<br />     (if(not(or(setq et(vlax-get-or-create-object"ket.application"))(setq et(vlax-get-or-create-object"et.application"))(setq et(vlax-get-or-create-object"excel.application"))))<br />   (progn(alert"未找到WPS或MSexcel")(exit)))<br />   (vla-put-visible et 1)<br />   (vlax-invoke(vlax-get-property ET 'WorkBooks)'Add);建工作薄<br />   (JC-EXCEL-PASE et "A1"lst)<br />   (prompt"***大懒猪荣誉出品***")<br />   (princ)<br />   )

jpg102329

spring8801 发表于 2017-8-17 08:40
重新发布悬赏帖子了，这帖子如何删除？

我设置了附件收费2个明经币，你可以去下载了

ziqidonglai

wdjy808

函数错误7，是怎么了