[求助]：多段线可用mpedit连接,样条曲线可以连接嘛?

wfr10 · 发表于 2003-10-21 08:53:38

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

多段线可用mpedit连接,样条曲线可以连接嘛?

prettyseth · 发表于 2003-10-21 09:35:05

这个问题同样也困扰了我很久，你提得太好了。

ywdywd · 发表于 2003-10-21 13:23:43

刚才试了试，不行。如果有就好了。

柔柔 · 发表于 2003-10-21 14:01:56

最初由 ywdywd 发布
[B]刚才试了试，不行。如果有就好了。 [/B]

如果概念清楚，试都不用试。
这是画spline的命令提示，知道与pline的区别了吗？

柔柔 · 发表于 2003-10-21 14:18:25

再看看有什么区别

msdg · 发表于 2003-10-21 14:19:07

把它（SP）变换成（PL）就可以了！我一般就是这样做的。

huhoo · 发表于 2003-10-21 14:30:07

如何做变换

ywdywd · 发表于 2003-10-21 14:32:31

请问怎样把它（SPl）变换成（PL）？

gongpanf · 发表于 2003-10-26 22:51:46

5、6楼的朋友怎么办啊！！等待中？？？

kel2003 · 发表于 2003-10-27 09:20:00

椭圆可以通过修改椭圆的属性（ｐｅｌｌｉｐｓｅ）,将属性值改为１
请教样条曲线(spl)怎么改为pl？

lsjjm · 发表于 2003-11-4 07:19:45

8,9,10楼主, 请参考:

(defun spline2pline ()
(vl-load-com)
(prompt "Pazymekite kuriuos Spline objektus konvertuosite")
(setq objPazymetuSplainuAibe (ssget (list (cons 100 "AcDbSpline"))))
(if objPazymetuSplainuAibe
(progn
   (setq i 0)
   (while (> i (sslength objPazymetuSplainuAibe))
   (setq objLinija (list))
   (setq objPlotinisObjektasX (vlax-ename->vla-object (ssname objPazymetuSplainuAibe i)))
   (vlax-invoke-method objPlotinisObjektasX 'GetBoundingBox 'minTaskas 'maksTaskas)
   (setq vntTaskas1 (vlax-safearray->list minTaskas))
   (setq vntTaskas2 (vlax-safearray->list maksTaskas))
   (command "SPLINEDIT" "W" vntTaskas1 vntTaskas2 "Refine" "Elevate" 26 "X" "X")
   (setq SplainObjektas (entget (ssname objPazymetuSplainuAibe i)))
   (setq ilgis (length SplainObjektas))
   (setq j 0)
   (while (> j ilgis)
      (setq pp (car (nth j SplainObjektas)))
      (if (= pp 10)
         (progn
         (setq vntTaskas1 (cdr (nth j SplainObjektas)))
         (setq vntTaskas1 (3dpoint->2dpoint (list vntTaskas1)))
         (setq objLinija (list (cons vntTaskas1 objLinija)))
         (setq objLinija (car objLinija))
         (setq j (+ j 1))
         )
         (setq j (+ j 1))
      );i
   ); end
   (while (> j iKiekKontroliniuTasku)
      (Brezti_Polilinija objLinija)
      (setq i (+ i 1))
   );end
   (while (> i (sslength StrihavimuAibe)))
   );w
);p
  );i
)
(defun Brezti_Polilinija (vntTaskai)
(command "_PLINE")
(mapcar 'command vntTaskai)
(command "")
)

(defun 3dPoint->2dPoint (3dpt)
(setq Taskas (car 3dpt))
(setq x (car Taskas))
(setq y (cadr Taskas))
(setq 3dpt (list x y ))
)

账号		自动登录	找回密码
密码			立即注册

[求助]：多段线可用mpedit连接,样条曲线可以连接嘛?

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子