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

spring 发表于 2003-7-6 16:32:00

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

前生发表于 2003-7-7 09:55:00

关于圆的中心线.

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

mccad 发表于 2003-7-7 12:37:00

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

spring 发表于 2003-7-7 22:59:00

謝謝!!!

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

前生发表于 2003-7-8 08:52:00

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

前生发表于 2003-7-8 09:21:00

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

BDYCAD 发表于 2003-9-5 12:12:00

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

雅明发表于 2003-10-23 21:15:00

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

cathyyu 发表于 2009-6-1 17:06:00

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

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

lwz2001 发表于 2010-4-12 23:51:00

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

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

页: [1] 2

明经CAD社区's Archiver