（已完成）[编程申请]：求可解决任意曲线打折问题的程序

mf7000

XDSOFT,江南你们好：
求可解决打折问题的程序
command: ans
选择一个2D-PLINNE:
输入角度<15.0>:
END

                               
登录/注册后可看大图

冷天梦枫

谁来解决呀？

XDSoft

最初由 mf7000 发布
[B]XDSOFT,江南你们好：
求可解决打折问题的程序
command: ans
选择一个2D-PLINNE:
输入角度<15.0>:
END

                               
登录/注册后可看大图

  [/B]

你的意思是想要把PLINE弧线的部分等分成几段用折线来模拟？

什么地方能用到？

梦断江南

各位有兴趣的先谈谈自己的编程思路吧 :)

mf7000

是你说的意思
提前打折可以解决以下问题

另：江南的收件箱已满不能发悄悄话

mf7000

重新贴的图

XDSoft

用XDRX_API可以很方便的完成的，我给大家贴贴XDRX_API里面关于POLYLINE处理方面的函数，大家讨论下看看用哪些组合可以完成。

我想，程序可以更通用些，可以处理ARC,POLYLINE,SPLINE,ELLIPSE等曲线打折，打折数用等分曲线来确定，不用角度。

1. 
   
2. [FONT=courier new]
   
3. 268. xdrx_polyline_numVerts
   
4. 
   
5. 功能：获得LWPOLYLINE的顶点数
   
6. 
   
7. 调用格式： (xdrx_polyline_numVerts <LWPOLYLINE对象名>)
   
8.            (xdrx_polyline_numVerts)
   
9.            
   
10. 返回值：成功返回整数，否 NIL
    
11. 
    
12. 说明：不给参数，使用当前系统对象栈顶的对象。
    
13. 
    
14. 269. xdrx_polyline_segtype
    
15. 
    
16. 功能：返回POLYLINE上的顶点下面曲线段的类型
    
17. 
    
18. 调用格式：(xdrx_polyline_segtype <LWPOLYLINE对象名> <顶点位置>)
    
19.           (xdrx_polyline_segtype <顶点位置>)
    
20. 
    
21. 返回值：字符串
    
22. 
    
23. 说明：顶点类型－ "kLine" ，"kPoint"，"Kempty"，"kArc"
    
24. 
    
25. 270. xdrx_polyline_getArcSegAt
    
26. 
    
27. 功能：获得一个弧段顶点的弧数据
    
28. 
    
29. 调用格式：(xdrx_polyline_getArcSegAt <LWPOLYLINE对象名> <顶点位置>)
    
30.           (xdrx_polyline_getArcSegAt <顶点位置>)
    
31.          
    
32. 返回值：  (圆心 半径 起始角 终止角)
    
33. 
    
34. 例子：Command: (xdrx_polyline_getarcsegat 2) ;;计算对象堆栈顶的LWPOLYLINE对象
    
35.                ((42260.6 17638.3 0.0) 5260.35 6.09389 1.66863)        
    
36. 
    
37. 
    
38. 271. xdrx_polyline_getLineSegAt
    
39. 
    
40. 功能：获得一个直线段顶点的直线段数据
    
41. 
    
42. 调用格式：(xdrx_polyline_getLineSegAt <LWPOLYLINE对象名> <顶点位置>)
    
43.           (xdrx_polyline_getLineSegAt <顶点位置>)
    
44.          
    
45. 返回值：  (起点 终点)
    
46. 
    
47. 例子 Command: (xdrx_polyline_getlinesegat (car (entsel)) 1)
    
48.      Select object: ((45221.1 5134.88 0.0) (47427.0 16648.4 0.0))
    
49.      
    
50. 272. xdrx_polyline_getPointgAt
    
51. 
    
52. 功能：获得指定顶点位置的点
    
53. 
    
54. 调用格式：(xdrx_polyline_getPointgAt <LWPOLYLINE实体名> <顶点索引位置>)
    
55.           (xdrx_polyline_getPointgAt <顶点索引位置>)   
    
56.          
    
57. 返回值：点
    
58. 
    
59. 273. xdrx_polyline_getWidthsAt
    
60. 
    
61. 功能：获得顶点索引位置后曲线段的起始宽度，终止宽度。
    
62. 
    
63. 调用格式：(xdrx_polyline_getWidthsAt <LWPOLYLINE实体名> <顶点索引位置>
    
64.           (xdrx_polyline_getWidthsAt <顶点索引位置>   
    
65.          
    
66. 返回值：(起始宽度 终止宽度)
    
67. 
    
68. 274. xdrx_polyline_getBulgeAt
    
69. 
    
70. 功能：获得指定索引位置弧段的凸度值。
    
71. 
    
72. 调用格式：(xdrx_polyline_getBulgeAt <LWPOLYLINE实体名> <顶点索引位置>)
    
73.           (xdrx_polyline_getBulgeAt <顶点索引位置>)
    
74.          
    
75. 返回值：实数
    
76. 
    
77. 275. xdrx_polyline_onSegAt
    
78. 
    
79. 功能：判断一个点是否在以指定的顶点索引开始的曲线段上，若是，返回该点的参数值。
    
80. 
    
81. 调用格式：(xdrx_polyline_onSegAt <LWPOLYLINE实体名> <顶点索引值> <测试点>)
    
82.           (xdrx_polyline_onSegAt <顶点索引值> <测试点>)
    
83.          
    
84. 返回值：若在，实数(该点处的曲线参数值),否NIL
    
85. 
    
86. 276. xdrx_polyline_elevation
    
87. 
    
88. 功能：获得POLYLINE的ELEV
    
89. 
    
90. 调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
    
91.           (xdrx_polyline_elevation)  ;;对象栈顶
    
92.          
    
93. 返回值：实数
    
94. 
    
95. 277. xdrx_polyline_getConstantWidth
    
96. 
    
97. 功能：获得LWPOLYLINE的等宽度
    
98. 
    
99. 调用格式：(xdrx_polyline_elevation <LWPOLYLINE实体名>)
    
100.           (xdrx_polyline_elevation)  ;;对象栈顶
     
101.          
     
102. 返回值：实数
     
103. 
     
104. 278. xdrx_polyline_hasPlinegen
     
105. 
     
106. 功能：测试LWPOLYLINE实体是否是PLINEGEN      
     
107. 
     
108. 调用格斯：(xdrx_polyline_hasPlinegen <LWPOLYLINE实体名>)
     
109.           (xdrx_polyline_hasPlinegen)  ;;对象栈顶
     
110.          
     
111. 返回值：布尔值T或者NIL
     
112. 
     
113. 说明：如果LWPOLYLINE有PLINEGEN返回T,否NIL
     
114.       PLINEGEN是一个属性，引起线型生成是穿过整条POLYLINE，还是在每个单独的段起点终点闭合。
     
115.       
     
116. 279. xdrx_polyline_hasWidth
     
117. 
     
118. 功能：测试POLYLINE是否有宽度。
     
119. 
     
120. 调用格式：(xdrx_polyline_hasWidth <LWPOLYLINE实体名>)
     
121.           (xdrx_polyline_hasWidth)  ;;对象栈顶
     
122.          
     
123. 返回值：布尔值，有宽度T 否NIL
     
124. 
     
125. 280. xdrx_polyline_hasBulges
     
126. 
     
127. 功能：测试POLYLINE是否包含弧段
     
128. 
     
129. 调用格式：(xdrx_polyline_hasBulges <LWPOLYLINE实体名>)
     
130.           (xdrx_polyline_hasBulges)  ;;对象栈顶
     
131.          
     
132. 返回值：布尔值，有弧段T 否NIL
     
133. 
     
134. 281. xdrx_polyline_isOnlyLines
     
135. 
     
136. 功能：测试POLYLINE是否仅仅由直线段组成
     
137. 
     
138. 调用格式：(xdrx_polyline_isOnlyLines <LWPOLYLINE实体名>)
     
139.           (xdrx_polyline_isOnlyLines)  ;;对象栈顶
     
140.          
     
141. 返回值：布尔值，是T 否NIL
     
142. 
     
143. 282. xdrx_polyline_thickness
     
144. 
     
145. 功能：获得POLYLINE的thickness
     
146. 
     
147. 调用格式：(xdrx_polyline_thickness <LWPOLYLINE实体名>)
     
148.           (xdrx_polyline_thickness)  ;;对象栈顶
     
149.          
     
150. 返回值：实数
     
151. 
     
152. 283. xdrx_polyline_addVertexAt
     
153. 
     
154. 功能：在指定索引位置处增加一个顶点
     
155. 
     
156. 调用格式：(xdrx_polyline_addVertexat <LWPOLYLINE实体名> <index索引值> <点> [bulge值] [起始宽度][结束宽度])
     
157.           (xdrx_polyline_addVertexat <index索引值> <点> [bulge值] [起始宽度][结束宽度])
     
158.          
     
159. 返回值：成功T, 否 NIL
     
160. 
     
161. 说明：参数 [bulge值] [起始宽度][结束宽度]都为可选项，默认值都为0 ，后面的可选项若要设置必须前面的可选项也设置，但
     
162.       该可选项后面的若要默认值，可以省略。
     
163.       [bulge值]--实数，若加弧段给BULGE值。0退化为直线
     
164.       [起始宽度]，[结束宽度]--实数值或者整数值。
     
165.       
     
166. 284. xdrx_polyline_removeVertexAt
     
167. 
     
168. 功能：移去一个顶点
     
169. 
     
170. 调用格式：(xdrx_polyline_removeVertexAt <LWPOLYLINE实体名> <index索引值>)     
     
171.           (xdrx_polyline_removeVertexAt  <index索引值>)   
     
172.          
     
173. 返回值：成功T 失败NIL
     
174. 
     
175. 说明：移去一个定点，意味着该顶点后的曲线段也移去。
     
176. 
     
177. 285. xdrx_polyline_setBulgeAt
     
178. 
     
179. 功能：在指定的索引位置，设置BULGE值，即若该索引后的段是直线，则变成弧。
     
180.       若是弧，则改变到新的BULGE         
     
181.       
     
182. 调用格式：(xdrx_polyline_setBulgeAt <lwpolyline实体名> <index索引> <bulge值>)
     
183.           (xdrx_polyline_setBulgeAt <index索引> <bulge值>)
     
184. 
     
185. 返回值：成功T,失败NIL
     
186. 
     
187. 说明：参数bulge值为实数。
     
188. 
     
189. 286. xdrx_polyline_setConstantWidth
     
190. 
     
191. 功能：设置POLYLINE的等宽值
     
192. 
     
193. 调用格式：(xdrx_polyline_setConstantWidth <lwpolyline实体名> <宽度值>)
     
194.           (xdrx_polyline_setConstantWidth  <宽度值>)
     
195. 
     
196. 返回值：成功T ,失败NIL
     
197. 
     
198. 说明：参数<宽度值>为实数或者整数
     
199. 
     
200. 287. xdrx_polyline_setElevation
     
201. 
     
202. 功能：设置POLYLINE的ELEV
     
203. 
     
204. 调用格式：(xdrx_polyline_setElevation <lwpolyline实体名> <ELEV值>)
     
205.           (xdrx_polyline_setElevation <ELEV值>)
     
206.          
     
207. 返回值：成功T ,否NIL
     
208. 
     
209. 288. xdrx_polyline_setNormal
     
210. 
     
211. 功能：设置POLYLINE的拉伸矢量
     
212. 
     
213. 调用格式：(xdrx_polyline_setNormal <lwpolyline实体名> <向量>)
     
214.           (xdrx_polyline_setNormal <向量>)
     
215. 
     
216. 返回值：成功T 否NIL
     
217. 
     
218. 说明：<向量>以点的形式输入，如：(0 0 1)
     
219. 
     
220. 289. xdrx_polyline_setPlinegen
     
221. 
     
222. 功能：设置POLYLINE线型的PLINEGEN属性
     
223. 
     
224. 调用格式：(xdrx_polyline_setPlinegen <lwpolyline实体名> [plinegen flag])
     
225.           (xdrx_polyline_setPlinegen  [plinegen flag])
     
226. 
     
227. 返回值：成功T,否NIL
     
228. 
     
229. 说明：[plinegen flag]=T，线性穿过整条曲线，不给参数，线性在每个顶点起始，结束闭合线型。
     
230. 
     
231. 290. xdrx_polyline_setPointAt
     
232. 
     
233. 功能：修改指定索引处的顶点到新的顶点（不增加新顶点）
     
234. 
     
235. 调用格式：(xdrx_polyline_setPointAt <lwpolyline实体名> <indexs索引> <新顶点>)
     
236.           (xdrx_polyline_setPointAt <indexs索引> <新顶点>)
     
237. 
     
238. 返回值：成功T 失败返回NIL
     
239. 
     
240. 291. xdrx_polyline_setThickness
     
241. 
     
242. 功能：设置POLYLINE的THICKNESS
     
243. 
     
244. 调用格式：(xdrx_polyline_setThickness  <lwpolyline实体名> <thickness值>)   
     
245.           (xdrx_polyline_setThickness  <thickness值>)
     
246.          
     
247. 返回值：成功T 失败NIL
     
248. 
     
249. 292. xdrx_polyline_setWidthsAt
     
250. 
     
251. 功能：修改指定索引值处下面段的起始、结束宽度
     
252. 
     
253. 调用格式：(xdrx_polyline_setWidthsAt <lwpolyline实体名> <index索引> <起始宽度><结束宽度>)
     
254.           (xdrx_polyline_setWidthsAt <index索引> <起始宽度><结束宽度>)
     
255.          
     
256. 返回值：成功T 失败NIL
     
257. 
     
258. 说明：<起始宽度><结束宽度>：实数或者整数
     
259. 
     
260. 293. xdrx_polyline_ConvertFrom
     
261. 
     
262. 功能：从2DPOLYLINE(R13老多义线)转换得到LWPOLYLINE
     
263. 
     
264. 调用格式：(xdrx_polyline_ConvertFrom <2dpolyline实体>)
     
265. 
     
266. 返回值：成功T 失败返回NIL
     
267. 
     
268. 说明：转换后，删除原来老POLY,用新LWPOLY代替
     
269. [/FONT]

复制代码

XDSoft

对于一般曲线，ARC,ELLIPSE,SPLINE等有函数得到等分点和指定距离间隔的点

1. 
   
2. [FONT=courier new]
   
3. 128. xdrx_getpointatdist
   
4. 
   
5. 功能：返回AcDbCurve曲线上(line,polyline,lwpolyline,arc,circle,ellipse,spline)
   
6.      距离参考点指定距离的点。或者直接返回指定距离间隔的所有点(从开始点到终止点)
   
7.      
   
8. 调用格式：(xdrx_getpointatdist <AcDbCurve实体名> [参考点] <距离间隔或者等分数>)
   
9. 
   
10. 返回值：若[参考点]存在，则返回在曲线上到参考点指定距离的点，距离可正负。
    
11.        若不给[参考点],则返回指定间隔距离的所有点表。
    
12.       
    
13. 说明：若参数<距离间隔或者等分数>，输入实数或者大于50的整数或者小于0的整数，均作为距离处理。
    
14.      对于0和50之间的整数，作为等分段处理(内部数据库默认等分数最大为50)
    
15. 
    
16. 129. xdrx_getperp[/FONT]

复制代码

mf7000

我见你做的一个等分辅助线程序应该差不多吧
有通用性更好但PL的直段是不用打折的

XDSoft

最初由 mf7000 发布
[B]我见你做的一个等分辅助线程序应该差不多吧
有通用性更好但PL的直段是不用打折的 [/B]

MAX我不用，CAD的模型，导入MAX里面，如果是弧线的，有个系统变量能控制打折的精度，你用这个不可以解决MAX的问题吗？

mf7000

是有个系统变量能控制打折的精度，
但是满足大半径的时候，小半径的就特别密，信息量巨大 不可取
    满足小半径的时候，大半径的就不圆滑了，也不可取
最好的办法就是建模时，视半径大小提前打折
像上图的例子用系统变量控制也解决不了，只能看似光滑不能治本

mf7000

XDSOFT,江南及各位斑竹，你们有空时能帮我解决这个问题吗？

四季豆

看了贴图，我认为是你分片不对。
纵向分片就没事了。

横向分片的话，角度设到3度以下，精度可以给受。

XDSoft

程序已经修改，适合老的POLYLINE，请重新下载。

程序写好了，请试用，结果贴到论坛。

                               
登录/注册后可看大图

;|
   命令：curve2jx
   
   功能：解决CAD建模到MAX下，弧墙线可能遇到打折上下不均匀问题，在CAD里面可以把
        任意曲线（ARC,*POLYLINE,SPLINE,CIRCLE,ELLIPSE)用POLYLINE根据等分数
        模拟，对于POLYLINE实体只处理弧线段部分。
        程序考虑的UCS。

        程序配合XDRX_API build 20630＋版本使用，朋友们可以把这个LISP拷贝到“晓东工具箱”的安装的
          LISP目录，自己加入到菜单里面就可以非常方便的使用了。
          关于程序的建议请到“晓东CAD空间-编程申请”论坛
          http://www.xdcad.net/forum留言         

|;

2. 
   
3. [FONT=courier new]
   
4. (defun c:curve2jx (/ $curve2jx_poly $curve2jx_curve intv ptl ptl1 pcir
   
5.                      pstart1 pend1 bulges edata pstart pend vtype radius ss
   
6.                      e na len lyr
   
7.                   )
   
8.   (defun $curve2jx_poly (e intv / vnums i vtype ptl1)
   
9.     (setq vnums (xdrx_polyline_numverts e)
   
10.           i -1
    
11.     )
    
12.     (repeat vnums
    
13.       (setq vtype (xdrx_polyline_segtype e (setq i (1+ i))))
    
14.       (cond
    
15.         ((or
    
16.            (= vtype "kLine")
    
17.            (= vtype "kPoint")
    
18.          )
    
19.           (setq ptl (cons (xdrx_polyline_getPointAt e i) ptl))
    
20.         )
    
21.         ((= vtype "kArc")
    
22.           (setq pstart1 (xdrx_polyline_getPointAt e i)
    
23.                 pend1 (xdrx_polyline_getPointAt e (1+ i))
    
24.                 bulges (xdrx_polyline_getBulgeAt e i)
    
25.                 edata (xdrx_polytoarc pstart1 bulges pend1)
    
26.                 edata (cdr edata)
    
27.                 pcir (car edata)
    
28.                 radius (nth 1 edata)
    
29.                 pstart (polar pcir (nth 2 edata) radius)
    
30.                 pend (polar pcir (nth 3 edata) radius)
    
31.           )
    
32.           (command "arc" "c" pcir pstart pend)
    
33.           (setq ptl1 (xdrx_getsamplept (entlast) (1+ intv)))
    
34.           (if (not (equal pstart1 (car ptl1) 1e-5))
    
35.             (setq ptl1 (reverse ptl1))
    
36.           )
    
37.           (setq ptl1 (reverse (cdr (reverse ptl1))))
    
38. 
    
39.           (entdel (entlast))
    
40.           (setq ptl (append
    
41.                       (reverse ptl1)
    
42.                       ptl
    
43.                     )
    
44.           )
    
45.         )
    
46.       )
    
47.     )
    
48.   )
    
49.   (defun $curve2jx_curve (e intv)
    
50.     (setq ptl (xdrx_getpointatdist e intv))
    
51.   )
    
52.   (xdrx_begin)
    
53.   (xdrx_ucson)
    
54.   (if (null $curve2jx_intv)
    
55.     (setq $curve2jx_intv 5)
    
56.   )
    
57.   (initget 2)
    
58.   (setq intv (getint (strcat "\n请输入分弧等分数<" (itoa $curve2jx_intv)
    
59.                              ">:"
    
60.                      )
    
61.              )
    
62.   )
    
63.   (if (not intv)
    
64.     (setq intv $curve2jx_intv)
    
65.   )
    
66.   (setq $curve2jx_intv intv)
    
67.   (prompt "\n请选取要进行分弧精度处理的曲线(ARC,POLYLINE,SPLINE,ELLIPSE,CIRCLE)<退出>:")
    
68.   (if (setq ss (ssget '((0 . "arc,*polyline,spline,ellipse,circle"))))
    
69.     (progn
    
70.       (setq len (sslength ss))
    
71.       (xdrx_setsstodb ss 0)
    
72.       (while (setq e (xdrx_getentdata 0))
    
73.         (setq na (xdrx_object_classname e))
    
74.         (setq ptl nil)
    
75.         (cond
    
76.           ((wcmatch (car na) "*POLYLINE")
    
77.             (setq lxd na)
    
78.             (if (= (car na) "POLYLINE")
    
79.               (xdrx_polyline_convertfrom e)
    
80.             )
    
81.             (setq e (entlast))
    
82.             (if (xdrx_polyline_hasbulges e)
    
83.               ($curve2jx_poly e intv)
    
84.             )
    
85.           )
    
86.           (t
    
87.             ($curve2jx_curve e intv)
    
88.           )
    
89.         )
    
90.         (setq lyr (xdrx_getentdxf 8))
    
91.         (entdel e)
    
92.         (apply
    
93.           'command
    
94.           (cons "pline" (reverse ptl))
    
95.         )
    
96.         (command "")
    
97.         (xdrx_setenttodb (entlast))
    
98.         (xdrx_modent 8 lyr)
    
99.       )
    
100.       (prompt (strcat "\n已经处理了 " (itoa len) " 个曲线！"))
     
101.     )
     
102.   )
     
103.   (xdrx_ucsoff)
     
104.   (xdrx_end)
     
105.   (princ)
     
106. )
     
107. [/FONT]

<br /> [FONT=courier new]<br /> (defun c:curve2jx (/ $curve2jx_poly $curve2jx_curve intv ptl ptl1 pcir<br />                      pstart1 pend1 bulges edata pstart pend vtype radius ss<br />                      e na len lyr<br />                   )<br />   (defun $curve2jx_poly (e intv / vnums i vtype ptl1)<br />     (setq vnums (xdrx_polyline_numverts e)<br />           i -1<br />     )<br />     (repeat vnums<br />       (setq vtype (xdrx_polyline_segtype e (setq i (1+ i))))<br />       (cond<br />         ((or<br />            (= vtype "kLine")<br />            (= vtype "kPoint")<br />          )<br />           (setq ptl (cons (xdrx_polyline_getPointAt e i) ptl))<br />         )<br />         ((= vtype "kArc")<br />           (setq pstart1 (xdrx_polyline_getPointAt e i)<br />                 pend1 (xdrx_polyline_getPointAt e (1+ i))<br />                 bulges (xdrx_polyline_getBulgeAt e i)<br />                 edata (xdrx_polytoarc pstart1 bulges pend1)<br />                 edata (cdr edata)<br />                 pcir (car edata)<br />                 radius (nth 1 edata)<br />                 pstart (polar pcir (nth 2 edata) radius)<br />                 pend (polar pcir (nth 3 edata) radius)<br />           )<br />           (command "arc" "c" pcir pstart pend)<br />           (setq ptl1 (xdrx_getsamplept (entlast) (1+ intv)))<br />           (if (not (equal pstart1 (car ptl1) 1e-5))<br />             (setq ptl1 (reverse ptl1))<br />           )<br />           (setq ptl1 (reverse (cdr (reverse ptl1))))<br /> <br />           (entdel (entlast))<br />           (setq ptl (append<br />                       (reverse ptl1)<br />                       ptl<br />                     )<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (defun $curve2jx_curve (e intv)<br />     (setq ptl (xdrx_getpointatdist e intv))<br />   )<br />   (xdrx_begin)<br />   (xdrx_ucson)<br />   (if (null $curve2jx_intv)<br />     (setq $curve2jx_intv 5)<br />   )<br />   (initget 2)<br />   (setq intv (getint (strcat "\n请输入分弧等分数<" (itoa $curve2jx_intv)<br />                              ">:"<br />                      )<br />              )<br />   )<br />   (if (not intv)<br />     (setq intv $curve2jx_intv)<br />   )<br />   (setq $curve2jx_intv intv)<br />   (prompt "\n请选取要进行分弧精度处理的曲线(ARC,POLYLINE,SPLINE,ELLIPSE,CIRCLE)<退出>:")<br />   (if (setq ss (ssget '((0 . "arc,*polyline,spline,ellipse,circle"))))<br />     (progn<br />       (setq len (sslength ss))<br />       (xdrx_setsstodb ss 0)<br />       (while (setq e (xdrx_getentdata 0))<br />         (setq na (xdrx_object_classname e))<br />         (setq ptl nil)<br />         (cond<br />           ((wcmatch (car na) "*POLYLINE")<br />             (setq lxd na)<br />             (if (= (car na) "POLYLINE")<br />               (xdrx_polyline_convertfrom e)<br />             )<br />             (setq e (entlast))<br />             (if (xdrx_polyline_hasbulges e)<br />               ($curve2jx_poly e intv)<br />             )<br />           )<br />           (t<br />             ($curve2jx_curve e intv)<br />           )<br />         )<br />         (setq lyr (xdrx_getentdxf 8))<br />         (entdel e)<br />         (apply<br />           'command<br />           (cons "pline" (reverse ptl))<br />         )<br />         (command "")<br />         (xdrx_setenttodb (entlast))<br />         (xdrx_modent 8 lyr)<br />       )<br />       (prompt (strcat "\n已经处理了 " (itoa len) " 个曲线！"))<br />     )<br />   )<br />   (xdrx_ucsoff)<br />   (xdrx_end)<br />   (princ)<br /> )<br /> [/FONT]

mf7000

R14 不好使吗？ 只适用R2K?