我想請大俠們幫我寫一個畫中心線程序

spring

我想請大俠們幫我寫一個畫中心線程序,可以讓用戶框選物件(多重選取)

前生

以前写的关于圆的中心线,
未判断圆心是否重合.
记得在r12中好象带的有

2. (DEFUN C:CC1 (/ ml l en ed r p p1 p2)
   
3. ;;;与2001-10-5
   
4. ;;;____________________________________
   
5.   (defun ml (p1 p2 / eli)
   
6.     (setq Eli (list (cons 0 "line")
   
7.                     (cons 8 "CEN")
   
8.                     (cons 10 P1)
   
9.                     (cons 11 P2)
   
10.               )
    
11.     )
    
12.     (entmake Eli)
    
13.   )
    
14.   (setq ss1 nil)
    
15. ;;;____________________________________
    
16.   (IF (SETQ SS1 (SSGET (LIST (CONS 0 "CIRCLE"))))
    
17.     (PROGN
    
18.       (setq l (getdist "\n 请输入超出圆的长度<缺省=0.2 X 圆的半径>:"))
    
19.       (SETQ COUNT 0)
    
20.       (setq emax (SSLENGTH Ss1))
    
21.       (WHILE (< COUNT EMAX)
    
22.         (setq EN (ssname ss1 COUNT)
    
23.               ED (ENTGET EN)
    
24.               R         (CDR (ASSOC 40 ED))
    
25.               P         (CDR (ASSOC 10 ED))
    
26.         )                                ;setq
    
27.         (if (null l)
    
28.           (setq l (* 0.2 r))
    
29.         )
    
30.         (SETQ COUNT (1+ COUNT))
    
31.         (setq p1 (polar p pi (+ r l)))
    
32.         (setq p2 (polar p1 0 (* 2 (+ r l))))
    
33.         (ml p1 p2)
    
34.         (setq p1 (polar p (* 0.5 pi) (+ r l)))
    
35.         (setq p2 (polar p1 (* 1.5 pi) (* 2 (+ r l))))
    
36.         (ml p1 p2)
    
37.         (PRINC)
    
38.       )                                        ;WHILE
    
39.     )                                        ;PROGN
    
40.     (PROMPT "\n No Section:...")
    
41.   )
    
42.   (prompt "\n 前生制作....园系列之中心线")
    
43.   (princ)
    
44. )

(DEFUN C:CC1 (/ ml l en ed r p p1 p2)<br /> ;;;与2001-10-5<br /> ;;;____________________________________<br />   (defun ml (p1 p2 / eli)<br />     (setq Eli (list (cons 0 "line")<br />                     (cons 8 "CEN")<br />                     (cons 10 P1)<br />                     (cons 11 P2)<br />               )<br />     )<br />     (entmake Eli)<br />   )<br />   (setq ss1 nil)<br /> ;;;____________________________________<br />   (IF (SETQ SS1 (SSGET (LIST (CONS 0 "CIRCLE"))))<br />     (PROGN<br />       (setq l (getdist "\n 请输入超出圆的长度<缺省=0.2 X 圆的半径>:"))<br />       (SETQ COUNT 0)<br />       (setq emax (SSLENGTH Ss1))<br />       (WHILE (< COUNT EMAX)<br />         (setq EN (ssname ss1 COUNT)<br />               ED (ENTGET EN)<br />               R         (CDR (ASSOC 40 ED))<br />               P         (CDR (ASSOC 10 ED))<br />         )                                ;setq<br />         (if (null l)<br />           (setq l (* 0.2 r))<br />         )<br />         (SETQ COUNT (1+ COUNT))<br />         (setq p1 (polar p pi (+ r l)))<br />         (setq p2 (polar p1 0 (* 2 (+ r l))))<br />         (ml p1 p2)<br />         (setq p1 (polar p (* 0.5 pi) (+ r l)))<br />         (setq p2 (polar p1 (* 1.5 pi) (* 2 (+ r l))))<br />         (ml p1 p2)<br />         (PRINC)<br />       )                                        ;WHILE<br />     )                                        ;PROGN<br />     (PROMPT "\n No Section:...")<br />   )<br />   (prompt "\n 前生制作....园系列之中心线")<br />   (princ)<br /> )

mccad

在下载中心也有下载：
[WEB]http://www.mjtd.com/mcdown/list.asp?id=20[/WEB]

spring

謝謝!可是我現在要的是可以畫異形的中心線!!!

前生

也简单啊,你的异形是PLine线吧

前生

为一个压缩的文件
在AutoCAD2000,2002以及2004中加载附件中的cen.vlx文件
command:cen
多重选择*pline线.

BDYCAD

請問樓上的師傅有沒有可以對付spline的?

雅明

前生的绘制异形中心线的程序是不是利用类似填充里面的一点作为中心点啊？

cathyyu

前生发表于2003-7-7 9:55:00以前写的关于圆的中心线,未判断圆心是否重合.记得在r12中好象带的有(DEFUN C:CC1 (/ ml l en ed r p p1 p2);;;与2001-10-5;;;____________________________________  (defun ml (p1

前生师傅发帖的这种格式怎么来的？很好看！能教教我吗？

lwz2001

mccad发表于2003-7-7 12:37:00在下载中心也有下载：http://www.mjtd.com/mcdown/list.asp?id=20

这个程序是否可以增加批量选择呢？根据程序的提示输入多段平行线或者圆等的最小最小距离求中心线呢？还有长度的起点和终点也可以由用户定义选择呢？