tang77 发表于 2003-8-11 18:20:00

求助，帮忙编一段将样条曲线(spline）转换成多段线（pline)的程序

本人新接触autolisp,希望大虾帮忙。
万分感激

chenxin_98 发表于 2003-8-24 12:36:00

用pedit命令编写
选中线段后 “j”合并

spring 发表于 2003-8-24 14:56:00

chenxin_98发表于2003-8-24 12:36:00static/image/common/back.gif用pedit命令编写
选中线段后 “j”合并



你自己試試看???

meflying 发表于 2003-8-25 08:29:00

仔细找找，龙龙仔已经写过了，

shicai 发表于 2003-8-26 16:48:00

转贴一个
(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 ))   
)

(defun C:test0 ()
(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
)

LIULISHENG 发表于 2021-7-8 14:48:00

学习了学习了

菜冬瓜 发表于 2023-5-20 20:39:36

解决了我的大问题
页: [1]
查看完整版本: 求助，帮忙编一段将样条曲线(spline）转换成多段线（pline)的程序