各位大师你们好，能否给看看这个程序。

杜阳

我写了一个简单的程序，只是实现了第一步圆的操作，矩形操作没有实现，请各位老师予以指点，能实现这个圆和矩形相结合的整体  谢谢啦  小弟是初学者   请各位老师 帮助  谢谢
(defun C:tt()
   (setvar "cmdecho" 0)
   (setq z1 (getpoint "\n中心点：")
         r1 (getreal "\n半 径：")
         h1 (getdist "\n高 度1：")
         h2 (getdist "\n高 度2：")
         l (getdist "\n长 度：")
         w (getdist "\n宽 度：")
   )
(command "circle" z1 r1 "")
(setq yx (entlast))
(vl-cmdf "extrude" yx "" h1 "")
(setq p1 ((- (car z1) (/ l 2)) (+ (cadr z1) (/ w 2))   h1)
      p2 ((- (car z1) (/ l 2)) (- (cadr z1) (/ w 2))   h1)
      p3 ((+ (car z1) (/ l 2)) (- (cadr z1) (/ w 2))   h1)
      p4 ((+ (car z1) (/ l 2)) (+ (cadr z1) (/ w 2))   h1)
   )
(command "pline" p1 p2 p3 p4 "c")
(setq jx (entlast))
(vl-cmdf "extrude" jx "" h2 "")
(princ)
)

杜阳

矩形主要是想在圆拉伸高度的地方绘制一个具有标高（Z值）的矩形， 执行提醒：; 错误: 函数错误: 370.488，每次值不一样  我想着是不是我的那个数值类型不对  还是哪里不对  请各位老师帮助  在此感谢了

菡萏

杜阳 发表于 2014-7-18 21:54
矩形主要是想在圆拉伸高度的地方绘制一个具有标高（Z值）的矩形， 执行提醒：; 错误: 函数错误: 370.488，每 ...

这里错了，自己找找看问题在哪！
(setq p1 ((- (car z1) (/ l 2)) (+ (cadr z1) (/ w 2))   h1)
      p2 ((- (car z1) (/ l 2)) (- (cadr z1) (/ w 2))   h1)
      p3 ((+ (car z1) (/ l 2)) (- (cadr z1) (/ w 2))   h1)
      p4 ((+ (car z1) (/ l 2)) (+ (cadr z1) (/ w 2))   h1)
   )

Andyhon

(setq p1 (list (- (car z1) (/ l 2.0)) (+ (cadr z1) (/ w 2.0))   h1)
      p2 (list (- (car z1) (/ l 2.0)) (- (cadr z1) (/ w 2.0))   h1)
      p3 (list (+ (car z1) (/ l 2.0)) (- (cadr z1) (/ w 2.0))   h1)
      p4 (list (+ (car z1) (/ l 2.0)) (+ (cadr z1) (/ w 2.0))   h1)
   )

得先关捕捉
无从校验,且试试呗!

xyp1964

2. (defun c:tt ()
   
3.   (setvar "cmdecho" 0)
   
4.   (setq z1 (getpoint "\n中心点: ")
   
5.         r1 (UREAL 7 "" "半径" r1)
   
6.         h1 (Udist 7 "" "高度1<输入或鼠标直接量取>" h1 nil)
   
7.         h2 (Udist 7 "" "高度2<输入或鼠标直接量取>" h2 nil)
   
8.         l  (Udist 7 "" "长度<输入或鼠标直接量取>" l nil)
   
9.         w  (Udist 7 "" "宽度<输入或鼠标直接量取>" w nil)
   
10.         dl (/ l 2.)
    
11.         dw (/ w 2.)
    
12.   )
    
13.   (command "circle" z1 r1)
    
14.   (setq yx (entlast))
    
15.   (vl-cmdf "extrude" yx "" h1 "")
    
16.   (setq        p1 (list (- (car z1) dl) (+ (cadr z1) dw) h1)
    
17.         p2 (list (- (car z1) dl) (- (cadr z1) dw) h1)
    
18.         p3 (list (+ (car z1) dl) (- (cadr z1) dw) h1)
    
19.         p4 (list (+ (car z1) dl) (+ (cadr z1) dw) h1)
    
20.   )
    
21.   (command "pline" p1 p2 p3 p4 "c")
    
22.   (setq jx (entlast))
    
23.   (vl-cmdf "extrude" jx "" h2 "")
    
24.   (princ)
    
25. )

(defun c:tt ()<br />   (setvar "cmdecho" 0)<br />   (setq z1 (getpoint "\n中心点: ")<br />         r1 (UREAL 7 "" "半径" r1)<br />         h1 (Udist 7 "" "高度1<输入或鼠标直接量取>" h1 nil)<br />         h2 (Udist 7 "" "高度2<输入或鼠标直接量取>" h2 nil)<br />         l  (Udist 7 "" "长度<输入或鼠标直接量取>" l nil)<br />         w  (Udist 7 "" "宽度<输入或鼠标直接量取>" w nil)<br />         dl (/ l 2.)<br />         dw (/ w 2.)<br />   )<br />   (command "circle" z1 r1)<br />   (setq yx (entlast))<br />   (vl-cmdf "extrude" yx "" h1 "")<br />   (setq        p1 (list (- (car z1) dl) (+ (cadr z1) dw) h1)<br />         p2 (list (- (car z1) dl) (- (cadr z1) dw) h1)<br />         p3 (list (+ (car z1) dl) (- (cadr z1) dw) h1)<br />         p4 (list (+ (car z1) dl) (+ (cadr z1) dw) h1)<br />   )<br />   (command "pline" p1 p2 p3 p4 "c")<br />   (setq jx (entlast))<br />   (vl-cmdf "extrude" jx "" h2 "")<br />   (princ)<br /> )

ZZXXQQ

2. (defun c:tt()
   
3. (setvar "cmdecho" 0)
   
4. (setq z1 (getpoint "\n中心点：")
   
5.       r1 (getdist z1 "\n半 径：")
   
6.       h1 (getdist z1 "\n高 度1：")
   
7.       h2 (getdist "\n高 度2：")
   
8.       l (getdist "\n长 度：")
   
9.       w (getdist "\n宽 度：")
   
10.       l2 (/ l 2)
    
11.       w2 (/ w 2)
    
12. )
    
13. (command "circle" z1 r1)
    
14. (vl-cmdf "extrude" "L" "" h1)
    
15. (setq yx (entlast))
    
16. (setq p1 (list(- (car z1) l2) (+ (cadr z1) w2)  h1)
    
17.       p2 (list(- (car z1) l2) (- (cadr z1) w2)  h1)
    
18.       p3 (list(+ (car z1) l2) (- (cadr z1) w2)  h1)
    
19.       p4 (list(+ (car z1) l2) (+ (cadr z1) w2)  h1)
    
20. )
    
21. (command "_.3DPOLY" p1 p2 p3 p4 "c")
    
22. (vl-cmdf "extrude" "L" "" h2 )
    
23. (vl-cmdf "_.UNION" "L" yx "")
    
24. (princ)
    
25. )
    

(defun c:tt()<br /> (setvar "cmdecho" 0)<br /> (setq z1 (getpoint "\n中心点：")<br />       r1 (getdist z1 "\n半 径：")<br />       h1 (getdist z1 "\n高 度1：")<br />       h2 (getdist "\n高 度2：")<br />       l (getdist "\n长 度：")<br />       w (getdist "\n宽 度：")<br />       l2 (/ l 2)<br />       w2 (/ w 2)<br /> )<br /> (command "circle" z1 r1)<br /> (vl-cmdf "extrude" "L" "" h1)<br /> (setq yx (entlast))<br /> (setq p1 (list(- (car z1) l2) (+ (cadr z1) w2)  h1)<br />       p2 (list(- (car z1) l2) (- (cadr z1) w2)  h1)<br />       p3 (list(+ (car z1) l2) (- (cadr z1) w2)  h1)<br />       p4 (list(+ (car z1) l2) (+ (cadr z1) w2)  h1)<br /> )<br /> (command "_.3DPOLY" p1 p2 p3 p4 "c")<br /> (vl-cmdf "extrude" "L" "" h2 )<br /> (vl-cmdf "_.UNION" "L" yx "")<br /> (princ)<br /> )<br />

杜阳

xyp1964 发表于 2014-7-19 08:03

院长老师你好，这两个函数  没有啊  Udist 7,,UREAL 7，，能否赐予学生  谢谢了

杜阳

ZZXXQQ 发表于 2014-7-19 08:31

你好  老师  你这个和我上面的执行结果是一样的  光画圆柱不画带有标高的矩形体   急等两位老师的解答  谢谢

杜阳

Andyhon 发表于 2014-7-18 22:19
(setq p1 (list (- (car z1) (/ l 2.0)) (+ (cadr z1) (/ w 2.0))   h1)
      p2 (list (- (car z1) (/ l ...

谢谢长老   我把你这段加入    执行了  圆柱体和矩形体的结合体   谢谢你   学生非常感谢   谢谢   

杜阳

Andyhon 发表于 2014-7-18 22:19
(setq p1 (list (- (car z1) (/ l 2.0)) (+ (cadr z1) (/ w 2.0))   h1)
      p2 (list (- (car z1) (/ l ...

谢谢 老师了  在此感谢  ，如果我把一个z值为0的圆形外偏移一定的距离得到第二个圆，用什么方法把第二个圆给设定一个输入的z值呢   学生等候老师的回答  谢谢