各位老师好，新手遇到问题，请老师指导

杜阳

我的思路是：绘制一个多点闭合多段线，向外偏移该多段线求得第二条多段线，拉伸绘制的第一条多段线一定高度h1，把偏移得到的第二条多段线的标高改成h1高度。
(defun c:tt ()
(setq h1(getdist "\n 输入高度：")
      d(getdist "\n 输入偏移距离：")
)
(command "pline")
(while (= (logand (getvar "CmdActive") 1) 1) (command pause))
(setq xx (entlast))
(command pause)
(vl-cmdf "offset" xx d "" "")
(setq yy (entlast))
(command "_.MOVE" yy "L" "" '(0 0 0) (list 0 0 h1))
(vl-cmdf "extrude" xx "" h "")
)

请老师给看看该段代码中的遗漏处，给予指导，学生谢谢老师了。。。。。

xyp1964

2. (defun c:tt ()
   
3.   (setq h1 (Udist 7 "" "拉伸高度<输入或鼠标直接量取>" h1 nil)
   
4.         dd (Udist 7 "" "偏移距离<输入或鼠标直接量取>" dd nil)
   
5.   )
   
6.   (command "pline")
   
7.   (while (/= (getvar "CmdActive") 0)
   
8.     (command pause)
   
9.   )
   
10.   (setq xx (entlast))
    
11.   (xyp-Offset xx dd t nil nil)
    
12.   (setq yy (entlast))
    
13.   (command "_.MOVE" yy "L" "" '(0 0 0) (list 0 0 h1))
    
14.   (vl-cmdf "extrude" xx "" h1 "")
    
15. )

(defun c:tt ()<br />   (setq h1 (Udist 7 "" "拉伸高度<输入或鼠标直接量取>" h1 nil)<br />         dd (Udist 7 "" "偏移距离<输入或鼠标直接量取>" dd nil)<br />   )<br />   (command "pline")<br />   (while (/= (getvar "CmdActive") 0)<br />     (command pause)<br />   )<br />   (setq xx (entlast))<br />   (xyp-Offset xx dd t nil nil)<br />   (setq yy (entlast))<br />   (command "_.MOVE" yy "L" "" '(0 0 0) (list 0 0 h1))<br />   (vl-cmdf "extrude" xx "" h1 "")<br /> )

ZZXXQQ

2. (defun c:tt ()
   
3. (setq h1 (getdist "\n输入高度: ")
   
4.       d (getdist "\n输入偏移距离: "))
   
5. (command "_.3DPOLY")
   
6. (while (> (getvar "CMDACTIVE") 0) (command pause))
   
7. (setq xx (entlast))
   
8. (vl-cmdf "_.OFFSET" d xx pause "")
   
9. (setq yy (entlast))
   
10. (command "_.MOVE" yy "" '(0 0 0) (list 0 0 h1))
    
11. (vl-cmdf "_.EXTRUDE" xx "" h)
    
12. (princ)
    
13. )
    

(defun c:tt ()<br /> (setq h1 (getdist "\n输入高度: ")<br />       d (getdist "\n输入偏移距离: "))<br /> (command "_.3DPOLY")<br /> (while (> (getvar "CMDACTIVE") 0) (command pause))<br /> (setq xx (entlast))<br /> (vl-cmdf "_.OFFSET" d xx pause "")<br /> (setq yy (entlast))<br /> (command "_.MOVE" yy "" '(0 0 0) (list 0 0 h1))<br /> (vl-cmdf "_.EXTRUDE" xx "" h)<br /> (princ)<br /> )<br />

杜阳

ZZXXQQ 发表于 2014-7-23 20:10

你好  老师  你的代码测试不成功   就能画线  其他的命令都没有实现   谢谢老师了

杜阳

xyp1964 发表于 2014-7-23 19:13

你好  院长老师   你这个代码 和我上面的得到的结果是一样的  偏移没有实现  谢谢老师

ZZXXQQ

杜阳 发表于 2014-7-23 21:15
你好  院长老师   你这个代码 和我上面的得到的结果是一样的  偏移没有实现  谢谢老师

偏移有方向，你要向哪个方向偏呢？

杜阳

ZZXXQQ 发表于 2014-7-24 08:00
偏移有方向，你要向哪个方向偏呢？

谢谢老师   我自己解决了  谢谢老师

杜阳

ZZXXQQ 发表于 2014-7-23 20:10

师傅  我不懂得放弃是什么   谢谢你那么高的智商 一直让我来放弃  

杜阳

xyp1964 发表于 2014-7-23 19:13

师傅  我不懂得放弃是什么   谢谢你那么高的智商 一直让我来放弃