求助：只能给成固定值，我想做成有提示，可选择尺寸的，唉！

减肥中的胖星星

(defun c:fy()                                                 ;定义命令名字为fy
(setvar "osmode" 0)                                           ;关闭目标捕捉状态
(command "layer""m""细实线""c"7"细实线""lw"0.2"细实线""")     ;创建细实线层，黑色，线宽0.2
(command "_-view" "_left")                                    ;转换左视
(command "_-view" "_swiso")                                   ;转换西南等轴测
(setq r(getreal "输入圆断面的半径<1500>:"))                   ;输入圆断面的半径
(if (= r nil)(setq r 1500))                                   ;半径默认为1500
(command "circle""0,0,0" r)                                   ;圆命令绘制圆断面
(command "zoom""e")                                           ;全部显示
(setq p1(getpoint "输入矩形的一个角点<0,0,0>:" ))
(if (= p1 nil)(setq p1 '(0 0 0)))
(setq p3(getcorner p1 "输入矩形的另一个角点<3000,4000,0>:"))
(if (= p3 nil)(setq p3 '(3000 4000 0)))
(setq p2(list(car p3)(cadr p1)))
(setq p4(list(car p1)(cadr p3)))
(Command "rectang" p1 p3)                                     ;“矩形”命令绘制方断面，默认值为3000,4000
(command "zoom""e")
(setq p5(getreal "输入圆的左侧象限点<-1500,0,0>:"))   
(if (= p5 nil)(setq p5 '(-1500 0 0)))
(command "move" p5 "" '(0 -1500 0) '(1500 0 0))               ;将方、圆断面以底边中点为基准移动

(command "move" '(0 0 0) ""  '(0 0 0) '(0 0 6000))            ;将方、圆断面以6000为间距移开（希望6000为默认值，怎么赋值呢？）
(command "loft" "all" "" "c" "")                              ;以横截面为基准，放样
(command "_vscurrent" "c")                                    ;概念视觉样式
(command "zoom""e")
)

cable2004

(defun c:fy( / l p1 p2 p3 p4 p5 r)                                                 ;定义命令名字为fy
(setvar "osmode" 0)                                           ;关闭目标捕捉状态
(command "layer""m""细实线""c"7"细实线""lw"0.2"细实线""")     ;创建细实线层，黑色，线宽0.2
(command "_-view" "_left")                                    ;转换左视
(command "_-view" "_swiso")                                   ;转换西南等轴测
(setq r(getreal "输入圆断面的半径<1500>:"))                   ;输入圆断面的半径
(if (= r nil)(setq r 1500))                                   ;半径默认为1500
(command "circle""0,0,0" r)                                   ;圆命令绘制圆断面
(command "zoom""e")                                           ;全部显示
(setq p1(getpoint "输入矩形的一个角点<0,0,0>:" ))
(if (= p1 nil)(setq p1 '(0 0 0)))
(setq p3(getcorner p1 "输入矩形的另一个角点<3000,4000,0>:"))
(if (= p3 nil)(setq p3 '(3000 4000 0)))
(setq l(getdist "输入间距<6000>:"))
(if (= l nil)(setq l 6000))
(setq p2(list(car p3)(cadr p1)))
(setq p4(list(car p1)(cadr p3)))
(Command "rectang" p1 p3)                                     ;“矩形”命令绘制方断面，默认值为3000,4000
(command "zoom""e")
(setq p5(getreal "输入圆的左侧象限点<-1500,0,0>:"))   
(if (= p5 nil)(setq p5 '(-1500 0 0)))
(command "move" p5 "" '(0 -1500 0) '(1500 0 0))               ;将方、圆断面以底边中点为基准移动
(command "move" '(0 0 0) ""  '(0 0 0) (list 0 0 l))             ;将方、圆断面以6000为间距移开（希望6000为默认值，怎么赋值呢？）
(command "loft" "all" "" "c" "")                              ;以横截面为基准，放样
(command "_vscurrent" "c")                                    ;概念视觉样式
(command "zoom""e")
)

最好说清楚使用功能，这样操作感觉好别扭。

减肥中的胖星星

cable2004 发表于 2014-2-5 08:54
(defun c:fy( / l p1 p2 p3 p4 p5 r)                                                 ;定义命令名字为fy ...

绘制方圆渐变段三维。
渐变段长度6000，圆断面半径1500，方断面尺寸为3000*4000，底部同高。
实际应用中，渐变段长度、圆的半径、方的尺寸都是变化的，所以希望根据题目要求可以变化
谢谢！

ysq101

哈哈。。。一屏都是COMMAND啊。。。。。。。跟我一样新手啊

zxq0220

可惜不是真正的天圆地方。

减肥中的胖星星

ysq101 发表于 2014-2-9 19:04
哈哈。。。一屏都是COMMAND啊。。。。。。。跟我一样新手啊

怎么老手都不用command吗?

减肥中的胖星星

zxq0220 发表于 2014-2-9 20:07
可惜不是真正的天圆地方。

这是水工建筑物中常见的方圆渐变段，呵呵。
不知道你说的天圆地方是什么。

ysq101

减肥中的胖星星 发表于 2014-2-10 10:17
怎么老手都不用command吗?

老手都极少用COMMAND哦。。。。。
我现在都尽量不用COMMAND了

st788796

千里之行始于command

zxq0220

减肥中的胖星星 发表于 2014-2-10 10:18
这是水工建筑物中常见的方圆渐变段，呵呵。
不知道你说的天圆地方是什么。

下面是真正的天圆地方

减肥中的胖星星

zxq0220 发表于 2014-2-10 20:08
下面是真正的天圆地方

方法一样的，不用转换左视了，直接在俯视图上做就可以了，貌似更简单

减肥中的胖星星

ysq101 发表于 2014-2-10 12:46
老手都极少用COMMAND哦。。。。。
我现在都尽量不用COMMAND了

哈，那应该用什么？指导一下下呗，我刚开始学，不太懂呢。

ysq101

减肥中的胖星星 发表于 2014-2-11 11:06
哈，那应该用什么？指导一下下呗，我刚开始学，不太懂呢。

entmake    好像是这个吧。。。

zxq0220

减肥中的胖星星 发表于 2014-2-11 11:05
方法一样的，不用转换左视了，直接在俯视图上做就可以了，貌似更简单

看仔细了，和你的图不一样。

减肥中的胖星星

zxq0220 发表于 2014-2-11 19:23
看仔细了，和你的图不一样。

你的方是正方形，我的是矩形。我在放样的时候没有给导向线和路径。
方圆渐变段的外表面是由四个三角形和四个斜椭圆锥组成的。
给出两个断面，放样就可以了，想圆滑一些就给出8条从矩形顶点到圆象限点的导向线就可以了。