[教学]：XDRX_API函数应用示例一。

eachy

2. ;|xdrx_getpointatdist和xdrx_curve_getpointatdist示例
   
3. 绘制漏空围墙
   
4. 说明：按国标围墙为间隔1cm的圆点
   
5. |;
   
6. (defun c:wq (/ e ptl)
   
7.   (xdrx_begin)
   
8.   (xdrx_ucson)
   
9.   ;;选择现有线，LINE，LWPOLYLINE,SPLINE,ARC,对拟合后的多义线将出错
   
10.   (setq e (car (xdrx_entsel "\n选择线：" '(0 . "*line,arc"))))
    
11.   ;;获得曲线上间隔为1cm的点表，bl为常数即出图比例
    
12.   (setq ptl (xdrx_getpointatdist e (* 10 bl)))
    
13.   ;;设置标志，以获得程序运行后生成的圆点
    
14.   (c:xdrx_setmark)
    
15.   (command ".donut" "0" bl)
    
16.   (apply 'command ptl)
    
17.   (command "")
    
18.   ;;将圆点和线生成匿名组
    
19.   (xdrx_group_make "*" (c:xdrx_getss) e)
    
20.   (xdrx_ucsoff)
    
21.   (xdrx_end)
    
22.   (princ)
    
23. )
    
24. ;|xdrx_getpointatdist
    
25. 
    
26. 功    能：返回AcDbCurve曲线上(line,polyline,lwpolyline,arc,circle,ellipse,spline)
    
27.           距离参考点指定距离的点。或者直接返回指定距离间隔的所有点(从开始点到终止点)
    
28. 
    
29. 调用格式：(xdrx_getpointatdist <AcDbCurve实体名> [参考点] <距离间隔或者等分数>)
    
30. 
    
31. 返 回 值：若[参考点]存在，则返回在曲线上到参考点指定距离的点，距离可正负。
    
32.           若不给[参考点],则返回指定间隔距离的所有点表。
    
33. 
    
34. 说    明：若参数<距离间隔或者等分数>，输入实数或者大于50的整数或者小于0的整数，均作为距离处理。
    
35.           对于0和50之间的整数，作为等分段处理(内部数据库默认等分数最大为50)
    
36. )
    
37. 
    
38. |;
    

;|xdrx_getpointatdist和xdrx_curve_getpointatdist示例<br /> 绘制漏空围墙<br /> 说明：按国标围墙为间隔1cm的圆点<br /> |;<br /> (defun c:wq (/ e ptl)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   ;;选择现有线，LINE，LWPOLYLINE,SPLINE,ARC,对拟合后的多义线将出错<br />   (setq e (car (xdrx_entsel "\n选择线：" '(0 . "*line,arc"))))<br />   ;;获得曲线上间隔为1cm的点表，bl为常数即出图比例<br />   (setq ptl (xdrx_getpointatdist e (* 10 bl)))<br />   ;;设置标志，以获得程序运行后生成的圆点<br />   (c:xdrx_setmark)<br />   (command ".donut" "0" bl)<br />   (apply 'command ptl)<br />   (command "")<br />   ;;将圆点和线生成匿名组<br />   (xdrx_group_make "*" (c:xdrx_getss) e)<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> ;|xdrx_getpointatdist<br /> <br /> 功    能：返回AcDbCurve曲线上(line,polyline,lwpolyline,arc,circle,ellipse,spline)<br />           距离参考点指定距离的点。或者直接返回指定距离间隔的所有点(从开始点到终止点)<br /> <br /> 调用格式：(xdrx_getpointatdist <AcDbCurve实体名> [参考点] <距离间隔或者等分数>)<br /> <br /> 返 回 值：若[参考点]存在，则返回在曲线上到参考点指定距离的点，距离可正负。<br />           若不给[参考点],则返回指定间隔距离的所有点表。<br /> <br /> 说    明：若参数<距离间隔或者等分数>，输入实数或者大于50的整数或者小于0的整数，均作为距离处理。<br />           对于0和50之间的整数，作为等分段处理(内部数据库默认等分数最大为50)<br /> )<br /> <br /> |;<br />

eachy

运行结果

eachy

用xdrx_curve_getpointatdist·函数可以适用curve类曲线。

2. (defun c:wq (/ tf e ptlist ptl n)
   
3.   (xdrx_begin)
   
4.   (xdrx_ucson)
   
5.   (setq tf T)
   
6.   ;;tf控制循环选取
   
7.   (while tf
   
8.     ;;选择现有线，LWPOLYLINE,SPLINE,ARC,包括拟合后的多义线
   
9.     (if        (setq e (car (xdrx_entsel "\n选择线：" '(0 . "*line,arc"))))
   
10.       (progn
    
11.         (setq ptlist '()
    
12.               n        1
    
13.         )
    
14.         ;;获得曲线上间隔为1cm的点表，bl为常数即出图比例
    
15.         (while
    
16.           (xdrx_ison (setq ptl (xdrx_curve_getpointatdist e (* 10 n bl)))
    
17.                      e
    
18.           )
    
19.            (setq ptlist (cons ptl ptlist))
    
20.            (setq n (1+ n))
    
21.         )
    
22.         ;;设置标志，以获得程序运行后生成的圆点
    
23.         (c:xdrx_setmark)
    
24.         (command ".donut" "0" bl)
    
25.         (apply 'command ptlist)
    
26.         (command "")
    
27.         ;;将圆点和线生成匿名组，还可以用xdrx_block_make作成匿名块
    
28.         (xdrx_group_make "*" (c:xdrx_getss) e)
    
29.       )
    
30.       (setq tf nil)
    
31.     )
    
32.   )
    
33.   (xdrx_ucsoff)
    
34.   (xdrx_end)
    
35.   (princ)
    
36. )
    

(defun c:wq (/ tf e ptlist ptl n)<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (setq tf T)<br />   ;;tf控制循环选取<br />   (while tf<br />     ;;选择现有线，LWPOLYLINE,SPLINE,ARC,包括拟合后的多义线<br />     (if        (setq e (car (xdrx_entsel "\n选择线：" '(0 . "*line,arc"))))<br />       (progn<br />         (setq ptlist '()<br />               n        1<br />         )<br />         ;;获得曲线上间隔为1cm的点表，bl为常数即出图比例<br />         (while<br />           (xdrx_ison (setq ptl (xdrx_curve_getpointatdist e (* 10 n bl)))<br />                      e<br />           )<br />            (setq ptlist (cons ptl ptlist))<br />            (setq n (1+ n))<br />         )<br />         ;;设置标志，以获得程序运行后生成的圆点<br />         (c:xdrx_setmark)<br />         (command ".donut" "0" bl)<br />         (apply 'command ptlist)<br />         (command "")<br />         ;;将圆点和线生成匿名组，还可以用xdrx_block_make作成匿名块<br />         (xdrx_group_make "*" (c:xdrx_getss) e)<br />       )<br />       (setq tf nil)<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br />

来也匆匆

如果只是打点，用divide就可以，你应该举个更复杂的例子，如坡度线，沿线阵列物体。