[求助]：求物体沿线均布程序

真龙天子

我在论坛上曾见过一个程序符合我的要求，但不记得程序名称和是哪位网友发表的了．
我的问题是已画好一条曲线（或多段线）和一个物体（图中最左边的红色小园），要求这个物体按给定的间距（物体与物体的间距和物体与曲线的间距）沿曲线的趋势均布并垂直于曲线．
哪位网友知道这个程序的请告知或帮忙编一个，将不胜感谢！

xyp1964

2. [FONT=courier new];;; 物体沿线均布
   
3. (defun c:test ()
   
4.   (CMDLA0)
   
5.   (setvar "osmode" 0)
   
6.   (setq        s1  (car (entsel "\n选择曲线: "))
   
7.         s2  (car (entsel "\n选择实体: "))
   
8.         no1 (UREAL 7 "" "\n实体与实体间距" no1)
   
9.         no2 (UREAL 7 "" "\n实体与曲线间距" no2)
   
10.         ptn (xyp-get-CurveDivPtlst s1 no1)
    
11.         pt5 (xyp-get-MinMaxPoint s2 5)        ;实体中心
    
12.   )
    
13.   (foreach pt ptn
    
14.     (setq pt0 (xyp-get-FaxianAtPoint s1 pt no2)
    
15.           ang (- (xyp-rad2ang (angle pt pt0)) 90.0)
    
16.     )
    
17.     (command "copy" s2 "" pt5 pt0)
    
18.     (command "rotate" (entlast) "" pt0 ang)
    
19.   )
    
20.   (CMDLA1)
    
21. )[/FONT]

[FONT=courier new];;; 物体沿线均布<br /> (defun c:test ()<br />   (CMDLA0)<br />   (setvar "osmode" 0)<br />   (setq        s1  (car (entsel "\n选择曲线: "))<br />         s2  (car (entsel "\n选择实体: "))<br />         no1 (UREAL 7 "" "\n实体与实体间距" no1)<br />         no2 (UREAL 7 "" "\n实体与曲线间距" no2)<br />         ptn (xyp-get-CurveDivPtlst s1 no1)<br />         pt5 (xyp-get-MinMaxPoint s2 5)        ;实体中心<br />   )<br />   (foreach pt ptn<br />     (setq pt0 (xyp-get-FaxianAtPoint s1 pt no2)<br />           ang (- (xyp-rad2ang (angle pt pt0)) 90.0)<br />     )<br />     (command "copy" s2 "" pt5 pt0)<br />     (command "rotate" (entlast) "" pt0 ang)<br />   )<br />   (CMDLA1)<br /> )[/FONT]

snoopychen

这个用measure和块结合应该也可以完成吧

dwg001

xyp大侠：测试程序在cad2002上加载怎么没有任何动作？

xyp1964

最初由 dwg001 发布
[B]xyp大侠：测试程序在cad2002上加载怎么没有任何动作？ [/B]

需要下载和加载签名栏下的通用函数xyp_lib.vlx。

真龙天子

感谢XYP大侠提供的程序,经试用,实体不能沿曲线均布,且无任何错误提示,,经查,ang为nil.可能是因为ang为nil而使程序运行不下去吧,请大侠修改补充一下程序.
另,三楼的说用measure和块结合应该也可以完成,我已测试,measure只对点(园)状实体适用,对线状有方向的实体就不能达到预期的效果了,沿曲线均布的实体都不能垂直(平行)于曲线.
大侠的通用函数下载后不能解压,提示"502376_xyp_lib.rar:不可预料的压缩文件未端"

xyp1964

最初由 真龙天子 发布
[B]感谢XYP大侠提供的程序,经试用,实体不能沿曲线均布,且无任何错误提示,,经查,ang为nil.可能是因为ang为nil而使程序运行不下去吧,请大侠修改补充一下程序.
另,三楼的说用measure和块结合应该也可以完成,我已测试,meas... [/B]

已修复，请重新下载通用函数！